如何在 VB.NET 中将 DataTable 导出到 Excel

4.1 使用Visual Studio

要安装 IronXL 库，第一种方法是在 Visual Studio 中使用 NuGet 包管理器。 只需打开 NuGet 包管理器并在浏览选项卡中搜索 IronXL。 找到 IronXL 后，选择它并继续安装。

下面的截图显示了如何导航到Visual Studio中的NuGet包管理器的示例。

导航到NuGet包管理器

IronXL在搜索结果中：

在 NuGet 包管理器 UI 中搜索并安装 IronXL 包

4.2 使用Visual Studio命令行

许多人更喜欢使用命令行界面安装包。 要使用命令行安装 IronXL，请按照以下步骤操作：

• 在 Visual Studio 中，转到"工具" > "NuGet 包管理器" > "包管理器控制台" 。
• 在包管理器控制台选项卡中输入以下行：Install-Package IronXL.Excel

现在包将下载/安装到当前项目，并可以使用了。

在包管理器控制台中安装IronXL包

5.1. DataTable到XLS文件

将DataTable对象导出到XLS文件允许您以一种易于阅读和共享的格式保存表格数据，同时保留原始数据的结构和格式。

以下代码段显示了如何创建DataTable行并将其转换为Excel文件。

Imports IronXL
Imports System
Imports System.Data

Module Program
    Sub Main(args As String())
        ' Create a new DataTable
        Dim table As New DataTable()

        ' Add a column to the DataTable
        table.Columns.Add("DataSet_Daily_Household", GetType(String))

        ' Add rows to the DataTable
        table.Rows.Add("Glass")
        table.Rows.Add("Plates")
        table.Rows.Add("Match Sticks")
        table.Rows.Add("Leather")
        table.Rows.Add("Soap")
        table.Rows.Add("Brush")
        table.Rows.Add("Comb")
        table.Rows.Add("Wires")
        table.Rows.Add("Pins")
        table.Rows.Add("And Many More")

        ' Create a new Excel workbook and set the format to XLS
        Dim dt As WorkBook = WorkBook.Create(ExcelFileFormat.XLS)

        ' Select the default worksheet
        Dim dc As WorkSheet = dt.DefaultWorkSheet

        ' Iterate through DataTable rows and populate the Excel worksheet
        Dim rowCount As Integer = 1
        For Each row As DataRow In table.Rows
            dc("A" & (rowCount)).Value = row(0).ToString()
            rowCount += 1
        Next row

        ' Save the workbook as "sample.xls"
        dt.SaveAs("sample.xls")
    End Sub
End Module

Imports IronXL
Imports System
Imports System.Data

Module Program
    Sub Main(args As String())
        ' Create a new DataTable
        Dim table As New DataTable()

        ' Add a column to the DataTable
        table.Columns.Add("DataSet_Daily_Household", GetType(String))

        ' Add rows to the DataTable
        table.Rows.Add("Glass")
        table.Rows.Add("Plates")
        table.Rows.Add("Match Sticks")
        table.Rows.Add("Leather")
        table.Rows.Add("Soap")
        table.Rows.Add("Brush")
        table.Rows.Add("Comb")
        table.Rows.Add("Wires")
        table.Rows.Add("Pins")
        table.Rows.Add("And Many More")

        ' Create a new Excel workbook and set the format to XLS
        Dim dt As WorkBook = WorkBook.Create(ExcelFileFormat.XLS)

        ' Select the default worksheet
        Dim dc As WorkSheet = dt.DefaultWorkSheet

        ' Iterate through DataTable rows and populate the Excel worksheet
        Dim rowCount As Integer = 1
        For Each row As DataRow In table.Rows
            dc("A" & (rowCount)).Value = row(0).ToString()
            rowCount += 1
        Next row

        ' Save the workbook as "sample.xls"
        dt.SaveAs("sample.xls")
    End Sub
End Module

由上面的代码段生成的Excel文件

5.2. DataTable到XLSX文件

类似地，为了将DataTable行和列转换为XLSX文件格式，只需更改上述示例中一行代码。

替换这行代码：

dt.SaveAs("sample.xls")

dt.SaveAs("sample.xls")

为此：

dt.SaveAs("sample.xlsx")

dt.SaveAs("sample.xlsx")

5.3. DataTable到CSV文件

您还可以通过将上述示例中的代码行从SaveAs改为SaveAsCsv来将DataTable行和列转换为CSV文件格式。

替换这行代码：

dt.SaveAs("sample.xls")

dt.SaveAs("sample.xls")

为此：

dt.SaveAsCsv("sample.csv")

dt.SaveAsCsv("sample.csv")

由上述代码生成的CSV文件