如何在 VB.NET 中將數據集轉換為 Excel

為什麼將資料集轉換為 Excel 格式至關重要？

.NET 中的 DataSet 表示記憶體中的資料緩存，其中包含一個或多個具有行、列和關係的 DataTable。 將這些資料集轉換為 Excel 格式可以實現以下功能：

*業務報告*：將資料庫查詢結果轉換為利害關係人可查看的格式化電子表格。 資料歸檔：匯出應用程式資料以進行長期儲存和分析 跨平台相容性：與可能無法存取您應用程式的使用者共享數據 增強視覺化效果**：利用 Excel 內建的圖表和分析工具

IronXL 透過提供直覺的 API 簡化了這個過程，無需在伺服器或開發機器上安裝 Excel 即可完成轉換。該程式庫支援 .NET Framework 4.6.2 及更高版本、.NET Core 以及 .NET 5 及更高版本，使其適用於現代應用程序，包括部署在 Linux 容器和雲端環境中的應用程式。 有關支援的平台的更多詳細信息，請訪問IronXL 功能頁面。

如何在VB.NET專案中開始使用IronXL？

在 VB.NET 或 .NET 程式碼專案中設定 IronXL 只需幾分鐘。 開啟 Visual Studio 並導航到您的項目，然後透過 NuGet 套件管理器安裝 IronXL。

使用套件管理器控制台，執行以下操作：

Install-Package IronXL.Excel

或者，在 NuGet 套件管理器 UI 中搜尋"IronXL.Excel"，然後按一下"安裝"。 該軟體包將自動下載並配置所有必要的依賴項。 您可以在IronXL 安裝指南中找到更多安裝選項。

安裝完成後，將 IronXL 命名空間新增至您的 VB.NET 檔案：

Imports IronXL
Imports System.Data

Imports IronXL
Imports System.Data

完成這些匯入後，就可以開始將資料集轉換為 Excel 檔案了。

如何在VB.NET中將資料集轉換為Excel？

讓我們從一個實際的範例開始，該範例會建立一個包含範例資料的資料集，並將其匯出到 Excel 檔案：

' Create a sample DataSet with product information
Dim dataSet As New DataSet("ProductData")
' Create a DataTable object for products, column headers
Dim productsTable As New DataTable("Products")
productsTable.Columns.Add("ProductID", GetType(Integer))
productsTable.Columns.Add("ProductName", GetType(String))
productsTable.Columns.Add("Price", GetType(Decimal))
productsTable.Columns.Add("InStock", GetType(Boolean))
' Add sample data to export DataTable
productsTable.Rows.Add(1, "Laptop", 999.99, True)
productsTable.Rows.Add(2, "Mouse", 19.99, True)
productsTable.Rows.Add(3, "Keyboard", 49.99, False)
productsTable.Rows.Add(4, "Monitor", 299.99, True)
productsTable.Rows.Add(5, "Headphones", 79.99, True)
' Add the DataTable table to the DataSet
dataSet.Tables.Add(productsTable)
' Export DataSet to Excel using IronXL
Dim workBook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Save the Excel file
workBook.SaveAs("ProductData.xlsx")

' Create a sample DataSet with product information
Dim dataSet As New DataSet("ProductData")
' Create a DataTable object for products, column headers
Dim productsTable As New DataTable("Products")
productsTable.Columns.Add("ProductID", GetType(Integer))
productsTable.Columns.Add("ProductName", GetType(String))
productsTable.Columns.Add("Price", GetType(Decimal))
productsTable.Columns.Add("InStock", GetType(Boolean))
' Add sample data to export DataTable
productsTable.Rows.Add(1, "Laptop", 999.99, True)
productsTable.Rows.Add(2, "Mouse", 19.99, True)
productsTable.Rows.Add(3, "Keyboard", 49.99, False)
productsTable.Rows.Add(4, "Monitor", 299.99, True)
productsTable.Rows.Add(5, "Headphones", 79.99, True)
' Add the DataTable table to the DataSet
dataSet.Tables.Add(productsTable)
' Export DataSet to Excel using IronXL
Dim workBook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Save the Excel file
workBook.SaveAs("ProductData.xlsx")

這段程式碼會建立一個包含產品資訊的資料集，並直接轉換為 Excel 檔案。 LoadWorkSheetsFromDataSet 方法會自動為資料集中的每個資料表建立一個工作表。 產生的 Excel 檔案包含從您的 DataTable 結構中提取的格式正確的資料。

' Save as legacy Excel versions format
workBook.SaveAs("ProductData.xls")
' Save as CSV (comma-separated values)
workBook.SaveAsCsv("ProductData.csv")
' Save as TSV (tab-separated values)
workBook.SaveAs("ProductData.tsv")

' Save as legacy Excel versions format
workBook.SaveAs("ProductData.xls")
' Save as CSV (comma-separated values)
workBook.SaveAsCsv("ProductData.csv")
' Save as TSV (tab-separated values)
workBook.SaveAs("ProductData.tsv")

如何將資料庫資料直接匯出為Excel檔案格式？

實際應用中經常需要從 SQL 資料庫匯出資料。 以下是如何查詢資料庫並將結果匯出到 Excel 的方法：

Dim connectionString As String = "Data Source=server;Initial Catalog=SampleDB;Integrated Security=True"
Dim query As String = "SELECT OrderID, CustomerName, OrderDate, TotalAmount FROM Orders WHERE OrderDate >= '2024-01-01'"
Dim dataSet As New DataSet()
' Populate DataSet from database
Using connection As New SqlConnection(connectionString)
    Using adapter As New SqlDataAdapter(query, connection)
        adapter.Fill(dataSet, "Orders")
    End Using
End Using
' Create Excel workbook and load data
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Auto-size columns for better readability
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
For i As Integer = 0 To worksheet.Columns.Count - 1
    worksheet.AutoSizeColumn(i)
Next
' Save with timestamp in filename
Dim fileName As String = $"OrdersExport_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx"
workBook.SaveAs(fileName)

Dim connectionString As String = "Data Source=server;Initial Catalog=SampleDB;Integrated Security=True"
Dim query As String = "SELECT OrderID, CustomerName, OrderDate, TotalAmount FROM Orders WHERE OrderDate >= '2024-01-01'"
Dim dataSet As New DataSet()
' Populate DataSet from database
Using connection As New SqlConnection(connectionString)
    Using adapter As New SqlDataAdapter(query, connection)
        adapter.Fill(dataSet, "Orders")
    End Using
End Using
' Create Excel workbook and load data
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Auto-size columns for better readability
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
For i As Integer = 0 To worksheet.Columns.Count - 1
    worksheet.AutoSizeColumn(i)
Next
' Save with timestamp in filename
Dim fileName As String = $"OrdersExport_{DateTime.Now:yyyyMMdd_HHmmss}.xlsx"
workBook.SaveAs(fileName)

此範例示範了從資料庫查詢到 Excel 檔案的完整工作流程。 SqlDataAdapter 將查詢結果填入 DataSet 中，然後 IronXL 將其轉換為格式化的 Excel 檔案。自動調整列寬功能確保所有資料都清晰可見，無需手動調整列寬，從而產生專業美觀、可直接分發的匯出檔案。 對於處理更大的資料集，請參閱我們處理大型 Excel 檔案的指南。

如何在同一個Excel檔案中處理多個資料表？

處理相關資料時，單一資料集中可能包含多個資料表。 IronXL 可以輕鬆應對這種情況：

Dim dataSet As New DataSet("CompanyData")
' Create Employees table (dim dt)
Dim employeesTable As New DataTable("Employees")
employeesTable.Columns.Add("EmployeeID", GetType(Integer))
employeesTable.Columns.Add("Name", GetType(String))
employeesTable.Columns.Add("Department", GetType(String))
employeesTable.Rows.Add(1, "John Smith", "Sales")
employeesTable.Rows.Add(2, "Jane Doe", "Marketing")
' Create Departments table
Dim departmentsTable As New DataTable("Departments")
departmentsTable.Columns.Add("DepartmentName", GetType(String))
departmentsTable.Columns.Add("Budget", GetType(Decimal))
departmentsTable.Rows.Add("Sales", 100000)
departmentsTable.Rows.Add("Marketing", 75000)
' Add both tables to DataSet
dataSet.Tables.Add(employeesTable)
dataSet.Tables.Add(departmentsTable)
' Convert to Excel - each DataTable becomes a worksheet
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Optionally rename worksheets
workBook.WorkSheets(0).Name = "Employee List"
workBook.WorkSheets(1).Name = "Department Budgets"
workBook.SaveAs("CompanyData.xlsx")

Dim dataSet As New DataSet("CompanyData")
' Create Employees table (dim dt)
Dim employeesTable As New DataTable("Employees")
employeesTable.Columns.Add("EmployeeID", GetType(Integer))
employeesTable.Columns.Add("Name", GetType(String))
employeesTable.Columns.Add("Department", GetType(String))
employeesTable.Rows.Add(1, "John Smith", "Sales")
employeesTable.Rows.Add(2, "Jane Doe", "Marketing")
' Create Departments table
Dim departmentsTable As New DataTable("Departments")
departmentsTable.Columns.Add("DepartmentName", GetType(String))
departmentsTable.Columns.Add("Budget", GetType(Decimal))
departmentsTable.Rows.Add("Sales", 100000)
departmentsTable.Rows.Add("Marketing", 75000)
' Add both tables to DataSet
dataSet.Tables.Add(employeesTable)
dataSet.Tables.Add(departmentsTable)
' Convert to Excel - each DataTable becomes a worksheet
Dim workBook As WorkBook = WorkBook.Create()
WorkBook.LoadWorkSheetsFromDataSet(dataSet, workBook)
' Optionally rename worksheets
workBook.WorkSheets(0).Name = "Employee List"
workBook.WorkSheets(1).Name = "Department Budgets"
workBook.SaveAs("CompanyData.xlsx")

資料集中的每個資料表都會成為 Excel 檔案中的一個單獨工作表，從而保持資料的邏輯分離。 這種方法特別適用於建立需要針對不同資料類別建立單獨工作表的綜合報告，所有工作表都應位於同一個文件中。根據微軟關於資料集的文檔，這種結構反映了資料庫模式的關係特性。

如何為Excel匯出檔案新增基本格式？

IronXL 會自動處理基本格式，但您也可以透過新增其他樣式來增強Excel 匯出效果：

' After loading DataSet into WorkBook
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
' Set header row style
Dim headerRange As Range = worksheet.GetRange("A1:D1")
headerRange.Style.Font.Bold = True
headerRange.Style.BackgroundColor = "#4472C4"
headerRange.Style.Font.Color = "#FFFFFF"
' Format currency columns
For rowIndex As Integer = 1 To worksheet.RowCount - 1
    worksheet($"C{rowIndex + 1}").FormatString = "$#,##0.00"
Next
' Add borders to data range
Dim dataRange As Range = worksheet.GetRange($"A1:D{worksheet.RowCount}")
dataRange.Style.Border.TopBorder.Type = BorderType.Thin
dataRange.Style.Border.BottomBorder.Type = BorderType.Thin

' After loading DataSet into WorkBook
Dim worksheet As WorkSheet = workBook.WorkSheets(0)
' Set header row style
Dim headerRange As Range = worksheet.GetRange("A1:D1")
headerRange.Style.Font.Bold = True
headerRange.Style.BackgroundColor = "#4472C4"
headerRange.Style.Font.Color = "#FFFFFF"
' Format currency columns
For rowIndex As Integer = 1 To worksheet.RowCount - 1
    worksheet($"C{rowIndex + 1}").FormatString = "$#,##0.00"
Next
' Add borders to data range
Dim dataRange As Range = worksheet.GetRange($"A1:D{worksheet.RowCount}")
dataRange.Style.Border.TopBorder.Type = BorderType.Thin
dataRange.Style.Border.BottomBorder.Type = BorderType.Thin

這些格式化選項可以將普通資料匯出轉換為外觀專業的電子表格。 樣式功能包括字體屬性、顏色、邊框和數位格式，可讓您建立符合組織品牌或報告標準的匯出檔案。 在 IronXL 文件中探索更多單元格樣式選項。

結論

使用 IronXL ，在 VB.NET 中將資料集轉換為 Excel變得異常簡單。 該程式庫消除了傳統互通方法的複雜性，同時提供了強大的資料匯出、格式化和多格式支援功能。 無論匯出記憶體資料或資料庫查詢結果，IronXL 都能有效率地處理轉換，無需安裝 Excel。

使用 IronXL 將資料集轉換為 Excel 檔案的主要優點包括：

• 無需依賴 Microsoft Office
• 支援多種 Excel 格式（XLSX、XLS、CSV、TSV）
• 從資料表自動建立工作表
• 支援雲端和容器部署的跨平台相容性
• 簡單直覺的 API，所需程式碼極少

若要探索更多功能，例如圖表建立、公式支援和進階格式設定選項，請造訪最符合您需求的IronXL 文件。

準備好提升您的資料匯出能力了嗎？ 下載 IronXL ，其中包含 PDF、條碼、OCR 等庫。