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