将数据从数据表对象导出到 Excel 的有效方法

Question

下面的代码完成了这项工作，但它需要将近 60 秒才能完成执行。大约有 2000 行和 55 列。我想嵌套循环不是最有效和专业的方式，我在 Google 中搜索但没有找到更好的方法......（我想也许有一种方法可以使用 SQL？） .如果您提出让这项任务更有效率的建议，我将不胜感激。（它是用 vb.net 编写的，但 C# 也适用于示例和建议）

   Public Sub LoadDataTableToExcell(ByVal d As DataTable, ByVal path As String, ByVal fileName As String, ByVal newFile As Boolean, ByVal sheetName As String)

   If CheckIfDirExist(path) = False Then
            MsgBox("the Path" & " " & path & " " & "Does not exist")
            Exit Sub
        End If
        CreateAnExcelFile(path, sheetName)

        Dim xlapp As New Excel.Application
        Dim ws As Excel.Worksheet
        Dim xlworkbook As Excel.Workbook

        xlworkbook = xlapp.Workbooks.Open(path)
        ws = xlworkbook.Sheets(sheetName)
        Dim Erows As Integer = Nothing
        Dim Ecolumns As Integer = Nothing

        For Ecolumns = 0 To d.Columns.Count - 1
            ws.Cells(1, Ecolumns + 1) = d.Columns(Ecolumns).ColumnName
            For Erows = 0 To d.Rows.Count - 1
                ws.Cells(Erows + 3, Ecolumns + 1) = d.Rows(Erows).Item(Ecolumns)
            Next
        Next


        Dim CarbonNewRng As Excel.Range

        CarbonNewRng = ws.Range(ws.Cells(1, 1), ws.Cells(d.Rows.Count + 2, d.Columns.Count))
        CarbonNewRng.Borders.Weight = 4
        CarbonNewRng.Borders.Color = Color.FromArgb(0, 64, 64)

        ws.Columns("A:AZ").autofit()

        xlworkbook.Save()
        xlworkbook.Close()
        xlapp.Quit()



        releaseObject(xlapp)
        releaseObject(ws)
        releaseObject(xlworkbook)


        xlworkbook = Nothing
        xlapp = Nothing
        ws = Nothing
    Else

    End If
 end sub

Answer 1

这很奇怪，但最快的方法是最简单的方法：

Select 全部在数据表中
复制
创建 xls 文件
粘贴

说真的，我尝试了很多，但是使用标准的 Win 控件设置它是最快的。

upd 语法你可以很容易地在网上找到，让我不要复制粘贴到这里

你也可能想看看这个http://closedxml.codeplex.com/

那么语法就很简单了：

XLWorkbook wb = new XLWorkbook();
DataTable dt = GetDataTableOrWhatever();
wb.Worksheets.Add(dt,"WorksheetName");

将数据从数据表对象导出到 Excel 的有效方法

Efficient way to export data from datatable object to Excel

c#

vb.net

datatable

excel