如何在 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 文件

You can also convert DataTable rows and columns to CSV file format by changing one line of code in the above example from SaveAs to SaveAsCsv.

替換此行程式碼：

dt.SaveAs("sample.xls")

dt.SaveAs("sample.xls")

用此替換：

dt.SaveAsCsv("sample.csv")

dt.SaveAsCsv("sample.csv")

從以上程式碼生成的 CSV 文件