跳至页脚内容
  1. Iron Software
  2. IronXL 博客
  3. 使用 IronXL
  4. Excel VB 数据集
使用 IRONXL

如何使用 VB.NET 将数据集导出到 Excel：IronXL 完整指南

Curtis Chau
Curtis Chau
已发布:

在 VB.NET 中将数据集导出到 Excel 可以让开发人员将结构化数据转换为专业的电子表格文件。 无论您是在桌面应用程序中使用 DataGrid，还是从系统数据库中提取信息，IronXL 都提供了一个直观的 API，可以简化此工作流程。 它允许您创建、编辑和操作 Excel 文件，并导出数据，而无需在用户计算机上安装 Microsoft Office。

为什么选择 IronXL 导出数据？

对于需要高效处理大型数据集的开发人员来说，这个库是理想之选。 与标准 COM 互操作不同，IronXL 在数据量增加时不会出现延迟。 下面，我们将详细介绍如何设置项目并执行导出操作。

立即开始免费试用，探索 IronXL 如何简化 .NET Framework 项目中的数据集和数据表操作。

在VB.NET中，将数据集导出到Excel的最佳方法是什么？

在VB.NET中，将数据集导出到 Excel 的最有效方法是使用 IronXL 的WorkBook和WorkSheet类。 该库虽然支持现代的 XLSX 格式，但也支持传统的 XLS 和通用的 CSV 格式，从而确保与其他应用程序的兼容性。

首先，通过 Visual Studio 中的 NuGet 程序包管理器安装 IronXL，方法是搜索"IronXL.Excel"或在程序包管理器控制台中运行Install-Package IronXL.Excel 。

在这个例子中，我们创建一个工作簿实例来保存我们的数据。

Imports IronXL
Imports System.Data

' Create a new DataTable object with sample data
Dim dt As New DataTable("Employees")
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("Name", GetType(String))
dt.Columns.Add("Department", GetType(String))

' Add rows to the DataTable
dt.Rows.Add(1, "John Smith", "Engineering")
dt.Rows.Add(2, "Sarah Jones", "Marketing")
dt.Rows.Add(3, "Mike Wilson", "Sales")

' Create a new workbook and worksheet
Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
Dim worksheet As WorkSheet = workbook.CreateWorkSheet("Employees")

' Add column headers to the first worksheet
For col As Integer = 0 To dt.Columns.Count - 1
    worksheet.SetCellValue(0, col, dt.Columns(col).ColumnName)
Next

' Export data from DataTable to Excel worksheet
For row As Integer = 0 To dt.Rows.Count - 1
    For col As Integer = 0 To dt.Columns.Count - 1
        worksheet.SetCellValue(row + 1, col, dt.Rows(row)(col).ToString())
    Next
Next

' Save the Excel file
workbook.SaveAs("EmployeeData.xlsx")
Imports IronXL
Imports System.Data

' Create a new DataTable object with sample data
Dim dt As New DataTable("Employees")
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("Name", GetType(String))
dt.Columns.Add("Department", GetType(String))

' Add rows to the DataTable
dt.Rows.Add(1, "John Smith", "Engineering")
dt.Rows.Add(2, "Sarah Jones", "Marketing")
dt.Rows.Add(3, "Mike Wilson", "Sales")

' Create a new workbook and worksheet
Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
Dim worksheet As WorkSheet = workbook.CreateWorkSheet("Employees")

' Add column headers to the first worksheet
For col As Integer = 0 To dt.Columns.Count - 1
    worksheet.SetCellValue(0, col, dt.Columns(col).ColumnName)
Next

' Export data from DataTable to Excel worksheet
For row As Integer = 0 To dt.Rows.Count - 1
    For col As Integer = 0 To dt.Columns.Count - 1
        worksheet.SetCellValue(row + 1, col, dt.Rows(row)(col).ToString())
    Next
Next

' Save the Excel file
workbook.SaveAs("EmployeeData.xlsx")
VB .NET

输出

如何使用 VB.NET 将数据集导出到 Excel：IronXL 完整指南：图 1 - VB.NET 中将简单 DataTable 导出到 Excel 的输出示例

这段 VB 代码创建了一个 DataTable 对象，用行填充它，然后遍历每个单元格以填充 Excel 工作表。 此处默认使用SetCellValue方法，以确保数据在 Excel 工作表中的精确放置。

如何将数据表导出到多个Excel工作表中？

当使用包含多个表格的复杂数据集设计器布局时，每个 DataTable 都可以导出到单个 Excel 工作簿中的单独 Excel 工作表中。 当需要向用户展示分类信息且信息汇总在单个文件中时，这种方法尤其有用。

特征描述
格式支持原生支持 XLSX 文件格式、XLS 和 CSV 文件格式。
可扩展性能够处理大型数据集，而不会出现内存峰值。
独立对Excel系统无任何要求。
Imports IronXL
Imports System.Data

' Create a new Dataset with multiple tables
Dim ds As New DataSet("CompanyData")

' First DataTable - Products
Dim dtProducts As New DataTable("Products")
dtProducts.Columns.Add("ProductID", GetType(Integer))
dtProducts.Columns.Add("ProductName", GetType(String))
dtProducts.Columns.Add("Price", GetType(Decimal))
dtProducts.Rows.Add(101, "Widget A", 29.99D)
dtProducts.Rows.Add(102, "Widget B", 49.99D)
ds.Tables.Add(dtProducts)

' Second DataTable - Orders
Dim dtOrders As New DataTable("Orders")
dtOrders.Columns.Add("OrderID", GetType(Integer))
dtOrders.Columns.Add("Customer", GetType(String))
dtOrders.Columns.Add("Total", GetType(Decimal))
dtOrders.Rows.Add(1001, "Acme Corp", 599.90D)
dtOrders.Rows.Add(1002, "Tech Inc", 299.95D)
ds.Tables.Add(dtOrders)

' Create workbook and export each DataTable to separate sheets
Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
For Each table As DataTable In ds.Tables
    Dim sheet As WorkSheet = workbook.CreateWorkSheet(table.TableName)
    ' Write column headers
    For col As Integer = 0 To table.Columns.Count - 1
        sheet.SetCellValue(0, col, table.Columns(col).ColumnName)
    Next
    ' Write data rows
    For row As Integer = 0 To table.Rows.Count - 1
        For col As Integer = 0 To table.Columns.Count - 1
            sheet.SetCellValue(row + 1, col, table.Rows(row)(col).ToString())
        Next
    Next
Next
workbook.SaveAs("CompanyReport.xlsx")
Imports IronXL
Imports System.Data

' Create a new Dataset with multiple tables
Dim ds As New DataSet("CompanyData")

' First DataTable - Products
Dim dtProducts As New DataTable("Products")
dtProducts.Columns.Add("ProductID", GetType(Integer))
dtProducts.Columns.Add("ProductName", GetType(String))
dtProducts.Columns.Add("Price", GetType(Decimal))
dtProducts.Rows.Add(101, "Widget A", 29.99D)
dtProducts.Rows.Add(102, "Widget B", 49.99D)
ds.Tables.Add(dtProducts)

' Second DataTable - Orders
Dim dtOrders As New DataTable("Orders")
dtOrders.Columns.Add("OrderID", GetType(Integer))
dtOrders.Columns.Add("Customer", GetType(String))
dtOrders.Columns.Add("Total", GetType(Decimal))
dtOrders.Rows.Add(1001, "Acme Corp", 599.90D)
dtOrders.Rows.Add(1002, "Tech Inc", 299.95D)
ds.Tables.Add(dtOrders)

' Create workbook and export each DataTable to separate sheets
Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
For Each table As DataTable In ds.Tables
    Dim sheet As WorkSheet = workbook.CreateWorkSheet(table.TableName)
    ' Write column headers
    For col As Integer = 0 To table.Columns.Count - 1
        sheet.SetCellValue(0, col, table.Columns(col).ColumnName)
    Next
    ' Write data rows
    For row As Integer = 0 To table.Rows.Count - 1
        For col As Integer = 0 To table.Columns.Count - 1
            sheet.SetCellValue(row + 1, col, table.Rows(row)(col).ToString())
        Next
    Next
Next
workbook.SaveAs("CompanyReport.xlsx")
VB .NET

输出

如何使用 VB.NET 将数据集导出到 Excel：IronXL 完整指南：图 2 - 生成的 Excel 文件，其中导出的数据集以单独的工作表形式呈现

该代码循环遍历数据集中的每个表，创建相应的工作表，并将所有列标题和数据传输到该工作表。

如何将数据库查询结果导出到 Excel 文件？

连接到数据库数据源并将结果直接导出到新的 Excel 文件是一种常见需求。 将SqlDataAdapter与 IronXL 结合使用，可以创建从 SQL 系统到电子表格的无缝管道。

1.初始化连接：设置连接字符串。 2.填充数据集：使用适配器将数据拉取到数据集设计器中。 3.映射到 IronXL：创建一个工作簿实例，并遍历结果以根据需要操作 Excel 文件。

Imports IronXL
Imports System.Data
Imports System.Data.SqlClient

' Define connection string and SQL query
Dim connectionString As String = "Server=localhost;Database=SalesDB;Integrated Security=True"
Dim query As String = "SELECT CustomerID, CompanyName, ContactName, Country FROM Customers"

' Create Dataset and fill from database
Dim ds As New DataSet()
Using connection As New SqlConnection(connectionString)
    Dim adapter As New SqlDataAdapter(query, connection)
    adapter.Fill(ds, "Customers")
End Using

' Access the DataTable exported from the database
Dim dt As DataTable = ds.Tables("Customers")

' Create Excel file and export the DataTable
Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
Dim worksheet As WorkSheet = workbook.CreateWorkSheet("CustomerData")

' Write column headers with formatting
For col As Integer = 0 To dt.Columns.Count - 1
    worksheet.SetCellValue(0, col, dt.Columns(col).ColumnName)
    worksheet.Rows(0).Style.Font.Bold = True
Next

' Execute data transfer to worksheet cells
For row As Integer = 0 To dt.Rows.Count - 1
    For col As Integer = 0 To dt.Columns.Count - 1
        Dim cellValue As Object = dt.Rows(row)(col)
        worksheet.SetCellValue(row + 1, col, If(cellValue Is DBNull.Value, "", cellValue.ToString()))
    Next
Next

' Save output file
workbook.SaveAs("CustomerExport.xlsx")
Console.WriteLine("Export complete!")
Imports IronXL
Imports System.Data
Imports System.Data.SqlClient

' Define connection string and SQL query
Dim connectionString As String = "Server=localhost;Database=SalesDB;Integrated Security=True"
Dim query As String = "SELECT CustomerID, CompanyName, ContactName, Country FROM Customers"

' Create Dataset and fill from database
Dim ds As New DataSet()
Using connection As New SqlConnection(connectionString)
    Dim adapter As New SqlDataAdapter(query, connection)
    adapter.Fill(ds, "Customers")
End Using

' Access the DataTable exported from the database
Dim dt As DataTable = ds.Tables("Customers")

' Create Excel file and export the DataTable
Dim workbook As WorkBook = WorkBook.Create(ExcelFileFormat.XLSX)
Dim worksheet As WorkSheet = workbook.CreateWorkSheet("CustomerData")

' Write column headers with formatting
For col As Integer = 0 To dt.Columns.Count - 1
    worksheet.SetCellValue(0, col, dt.Columns(col).ColumnName)
    worksheet.Rows(0).Style.Font.Bold = True
Next

' Execute data transfer to worksheet cells
For row As Integer = 0 To dt.Rows.Count - 1
    For col As Integer = 0 To dt.Columns.Count - 1
        Dim cellValue As Object = dt.Rows(row)(col)
        worksheet.SetCellValue(row + 1, col, If(cellValue Is DBNull.Value, "", cellValue.ToString()))
    Next
Next

' Save output file
workbook.SaveAs("CustomerExport.xlsx")
Console.WriteLine("Export complete!")
VB .NET

SqlDataAdapter执行命令并从 SQL 数据库检索数据，将其存储在数据集的 Tables 集合中。 该代码遍历从查询导出的 DataTable，并使用条件检查处理空值。 列标题采用粗体字体可以提高可读性。

对于 XML 数据源，IronXL 还支持读取和写入基于 XML 的电子表格格式，为不同的数据交换场景提供了灵活性。

结论

借助 IronXL 简洁的 API，在 VB.NET 中将数据集导出到 Excel 的任务变得非常简单。 无论是处理单个 DataTable 对象还是多个表，该库都能处理 .NET Framework 和 .NET Core 项目中的文件格式转换和工作表管理。

这些示例演示了如何在不依赖 Microsoft Office Interop 的情况下，从内存数据结构和数据库查询创建 Excel 文件。IronXL 的方法消除了对 COM 的依赖，同时提供了字体样式和多工作表支持。

准备好在VB.NET应用程序中实现数据集到Excel的导出功能了吗？ 购买许可证或探索更多DataTable 教程，以扩展您的 Excel 自动化功能。

常见问题解答

如何在VB.NET中将数据集导出到Excel？

您可以使用 IronXL 库在 VB.NET 中将数据集导出到 Excel，该库提供了一个直观的 API，无需 Microsoft Office 即可创建、编辑和操作 Excel 文件。

我需要安装 Microsoft Office 来使用 IronXL 吗？

不，IronXL 不需要用户计算机上安装 Microsoft Office 即可导出或处理 Excel 文件。

我可以使用 IronXL 导出哪些类型的数据？

IronXL 允许您高效地将结构化数据（例如数据表和数据集）导出到 Excel 文件。

IronXL 能否处理 Excel 文件的创建和编辑？

是的，IronXL 提供了在 VB.NET 中以编程方式创建、编辑和操作 Excel 文件的功能。

IronXL 是否适用于桌面应用程序？

是的，IronXL 非常适合桌面应用程序，特别是那些使用数据网格或系统数据库将数据导出到 Excel 的应用程序。

使用 IronXL 导出数据集有哪些好处？

IronXL 提供了一个 API，无需 Microsoft Office 等外部依赖项即可处理 Excel 文件的创建和操作，从而简化了数据集的导出过程。

IronXL 可以在服务器环境下使用吗？

是的，IronXL 可以部署在服务器环境中，用于自动生成 Excel 文件和导出数据。

IronXL是否支持大型数据集？

IronXL 旨在高效处理导出到 Excel 时的大型数据集，从而确保性能和可靠性。

是否可以使用 IronXL 修改现有的 Excel 文件？

是的，IronXL 允许您打开和操作现有的 Excel 文件，并提供数据编辑和格式化等功能。

IronXL 使用的是什么编程语言？

IronXL 支持 VB.NET，使开发人员能够将 Excel 功能无缝集成到他们的 VB.NET 应用程序中。

Curtis Chau
Curtis Chau
  立即与工程团队聊天
技术作家

Curtis Chau 拥有卡尔顿大学的计算机科学学士学位，专注于前端开发，精通 Node.js、TypeScript、JavaScript 和 React。他热衷于打造直观且美观的用户界面，喜欢使用现代框架并创建结构良好、视觉吸引力强的手册。

除了开发之外，Curtis 对物联网 (IoT) 有浓厚的兴趣，探索将硬件和软件集成的新方法。在空闲时间，他喜欢玩游戏和构建 Discord 机器人，将他对技术的热爱与创造力相结合。

相关文章

30天试用 → 完整产品。无限制。无卡。 免费试用