如何在 VB.NET 中將 DataTable 導出到 Excel

4.1 使用 Visual Studio

要安裝 IronXL 庫，第一種方法是在 Visual Studio 中使用 NuGet 套件管理器。 只需開啟 NuGet 套件管理器，然後在"瀏覽"標籤中搜尋 IronXL 即可。 在搜尋結果中找到 IronXL 後，選擇它並繼續進行安裝。

以下截圖展示如何在 Visual Studio 中導覽到 NuGet 套件管理器的範例。

如何在 VB.NET 中將資料表匯出到 Excel，圖 4：導覽至 NuGet 套件管理器 導覽至 NuGet 套件管理器

搜尋結果中的 IronXL：

如何在 VB.NET 中將資料表匯出到 Excel？圖 5：在 NuGet 套件管理器 UI 中搜尋並安裝 IronXL 套件 在 NuGet 套件管理器 UI 中搜尋並安裝 IronXL 套件。

4.2 使用 Visual Studio 命令列。

許多人喜歡使用命令列介面安裝軟體包。 若要使用命令列安裝 IronXL，請依照下列步驟操作：

• 在 Visual Studio 中，前往"工具" > "NuGet 套件管理器" > "套件管理器控制台" 。
• 在套件管理器控制台標籤中輸入以下命令： Install-Package IronXL.Excel

現在，套件將下載/安裝至目前的專案，並可立即使用。

如何在 VB.NET 中將資料表匯出到 Excel，圖 6：在套件管理器控制台中安裝 IronXL 套件 在軟體套件管理器控制台中安裝 IronXL 軟體包

5.1. 將資料表轉換為 XLS 文件

將 DataTable 物件匯出到 XLS 文件，可以將表格資料儲存為易於閱讀和與他人共享的格式，同時保留原始資料的結構和格式。

以下程式碼片段展示如何建立資料表行並將其轉換為 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

如何在 VB.NET 中將資料表匯出到 Excel，圖 7：由上述程式碼片段產生的 Excel 文件 上述程式碼片段產生的 Excel 文件

5.2. 將資料表轉換為 XLSX 文件

同樣，要將 DataTable 的行和列轉換為 XLSX 檔案格式，只需更改上面範例中的一行程式碼即可。

替換以下程式碼行：

dt.SaveAs("sample.xls")

dt.SaveAs("sample.xls")

由此：

dt.SaveAs("sample.xlsx")

dt.SaveAs("sample.xlsx")

5.3. 將資料表轉換為 CSV 文件

您也可以將上述範例中的一行程式碼從SaveAs變更為SaveAsCsv ，將 DataTable 的行和列轉換為 CSV 檔案格式。

替換以下程式碼行：

dt.SaveAs("sample.xls")

dt.SaveAs("sample.xls")

由此：

dt.SaveAsCsv("sample.csv")

dt.SaveAsCsv("sample.csv")

如何在 VB.NET 中將資料表匯出到 Excel，圖 8：上述程式碼產生的 CSV 文件 上述程式碼產生的 CSV 文件