promit yadav Ответов: 3

Копирование и вставка данных из DataTable в Excel

уважаемый друг,
Я хочу экспортировать данные из DataTable в Excel в windows на основе VB.NET применение.






С уважением
Промит

Naveen.Sanagasetti

Ваш вопрос не совсем ясен

april88t

их есть несколько примеров, найденных на этом сайте, просто посетите эту ссылку - - - - >http://www.codeproject.com/Articles/151789/Export-Data-to-Excel-Word-PDF-without-Automation-f

3 Ответов

Рейтинг:
1

nane aa

Проверьте эту ссылку, это полезно для вас.
[^]

Рейтинг:
0

Almalyn


Привет,я пытаюсь найти этот код.. я не совсем уверен,что это сработает, но вы попробуйте.. спасибо?

вы можете попробовать с этим Excel C# / VB.NET библиотека. Они отправляют библиотеку .NET 1.1 по запросу.

Вот пример кода Excel C#, как экспортировать набор данных в Excel:

var ef = новый ExcelFile();

по каждому элементу (объект DataTable объект DataTable в dataset.Таблицы)
эф.рабочие листы.Добавить(dataTable.Имя таблицы).InsertDataTable(dataTable, 0, 0, true);

эф.SaveXlsx(набора данных.Свойством datasetname + ".XLSX-файл");

Рейтинг:
0

Member 13745089

Привет Промит,

Пожалуйста, используйте эти коды для экспорта таблицы данных в excel.

If dgInvoice_SalesReport_Accounts.RowCount = Nothing Then
            MessageBox.Show("Sorry nothing to export into excel sheet.." & vbCrLf & "Please retrieve data in datagridview", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End If
        Dim rowsTotal, colsTotal As Short
        Dim I, j, iC As Short
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        Dim xlApp As New Excel.Application

        Try
            Dim excelBook As Excel.Workbook = xlApp.Workbooks.Add
            Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
            xlApp.Visible = True

            rowsTotal = dgInvoice_SalesReport_Accounts.RowCount
            colsTotal = dgInvoice_SalesReport_Accounts.Columns.Count - 1
            With excelWorksheet
                .Cells.Select()
                .Cells.Delete()
                For iC = 0 To colsTotal
                    .Cells(1, iC + 1).Value = dgInvoice_SalesReport_Accounts.Columns(iC).HeaderText
                Next
                For I = 0 To rowsTotal - 1
                    For j = 0 To colsTotal
                        .Cells(I + 2, j + 1).value = dgInvoice_SalesReport_Accounts.Rows(I).Cells(j).Value
                    Next j
                Next I
                .Rows("1:1").Font.FontStyle = "Bold"
                .Rows("1:1").Font.Size = 14


                .Cells.Columns.AutoFit()
                .Cells.Select()
                .Cells.EntireColumn.AutoFit()
                .Cells(1, 1).Select()
            End With
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            'RELEASE ALLOACTED RESOURCES
            System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
            xlApp = Nothing
        End Try


на очень чтобы пожалуйста добавить ссылку

Imports Excel = Microsoft.Office.Interop.Excel