Windows 窗体简介

Windows Forms 是微软 .NET Framework 中的一个基础图形用户界面 (GUI) 库，设计用于构建具有丰富交互式用户体验的强大桌面应用程序。 作为 .NET 生态系统的核心部分，Windows 窗体为开发人员提供了一套全面的控件，其中包括通用的 DataGridView 控件，该控件广泛用于以表格格式显示、编辑和管理数据。

Windows 窗体应用程序中最常见的需求之一是能够将数据从 DataGridView 控件导出到外部文件格式，如 Excel 文件 (xlsx) 或 CSV 文件。 这些功能对于报告、数据分析以及与其他系统或用户共享信息等场景至关重要。 无论您使用的是小型数据集还是来自数据库的大型表格，拥有可靠的数据导出方法都能大大提高应用程序的可用性和价值。

在 Windows 窗体中导出 DataGridView 数据有几种方法。 传统方法通常涉及 Microsoft Office 自动化，开发人员使用 Excel 应用程序对象创建新工作簿、添加工作表，并以编程方式将 DataGridView 中的每一行和每一列写入 Excel 文件。这种方法提供了对输出的细粒度控制，允许您自定义标题行、列标题和单元格格式。 不过，它要求目标计算机上安装 Microsoft Office，这对某些部署可能是个限制。

另外，ClosedXML、Syncfusion 或 IronXL（如本文所介绍的）等现代第三方库提供了简化的 API，无需 Microsoft Office 即可将数据导出到 Excel 文件。这些库简化了流程，使开发人员能够快速生成带有自定义格式、样式化标题行和正确键入列的 XLSX 文件。 这些工具还往往提供更好的性能和更便捷的部署，尤其是在可能无法使用 Office 的服务器或云环境中。

开发人员如何设置项目和安装库？ 在编写任何导出代码之前，请在 Visual Studio 中设置一个 VB.NET Windows Forms 项目。 本教程以 .NET 8 为目标，尽管 IronXL 支持 [.NET Framework 4.6.2 和所有现代 .NET 版本](https://ironsoftware.com/csharp/excel/docs/)。 请注意，这种方法适用于最初用 VB.NET 2010 或更高版本创建的应用程序。 ### 前提条件： - Visual Studio 2022 或更高版本 - 已安装 .NET 8 SDK - 带有 `DataGridView` 控件的 Windows 窗体应用程序项目 ### 通过 NuGet 软件包管理器安装 IronXL： 在 Visual Studio 中打开软件包管理器控制台并运行： ```shell :ProductInstall ``` !a href="/static-assets/excel/blog/export-datagridview-vb-net-2010/export-datagridview-vb-net-2010-1.webp">Export DataGridView to Excel in VB .NET 2010 Using IronXL: Image 1 - Installation（使用 IronXL.Excel 在 VB .NET 2010 中将数据从 DataGridView 导出到 Excel）。 或者，在 "解决方案资源管理器 "中右键单击项目，选择 "管理 NuGet 包"，搜索 IronXL.Excel，然后单击 "安装"。 该库可取代 Microsoft Office Interop 参考资料。 安装后，在任何需要 Excel 功能的 VB.NET 文件顶部导入 IronXL 命名空间： ```vb Imports IronXL Imports System.Data ```

开发人员如何使用示例数据填充 DataGridView？ 在本示例中，请创建一个简单的 Windows 窗体，其中包含一个 `DataGridView` 控件和一个按钮。 `DataGridView` 显示存储在 `DataTable` 对象中的员工记录，这些记录将导出到 Excel 文件。 在表单的 "加载 "事件中添加以下代码，以便用表格结构中的示例数据填充网格： ```vb Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim dt As New DataTable() ' Define columns with appropriate data type dt.Columns.Add("EmployeeID", GetType(Integer)) dt.Columns.Add("Name", GetType(String)) dt.Columns.Add("Department", GetType(String)) dt.Columns.Add("Salary", GetType(Decimal)) ' Add sample rows of data dt.Rows.Add(101, "Sarah Johnson", "Engineering", 85000) dt.Rows.Add(102, "Michael Chen", "Marketing", 72000) dt.Rows.Add(103, "Emily Davis", "Finance", 91000) dt.Rows.Add(104, "James Wilson", "Engineering", 78000) ' Set DataGridView data source DataGridView1.DataSource = dt End Sub ``` 该代码创建了一个 `DataTable` 表，其中有四列代表典型的员工信息。 使用 `GetType()` 为 `Integer`, `String` 和 `Decimal` 值定义每一列的数据类型。 `DataSource` 属性可将这些数据直接绑定到 `DataGridView` 控件，从而在用户打开表单时自动填充网格。 在生产应用程序中，这些数据可能会从数据库或数组中加载。 ### 输出 !a href="/static-assets/excel/blog/export-datagridview-vb-net-2010/export-datagridview-vb-net-2010-2.webp">Export DataGridView from Excel to Excel in VB .NET 2010 Using IronXL: Image 2 - DataGridView Output

开发人员如何将 DataGridView 数据导出到带标题的 Excel 文件？ 导出功能属于 Button 的单击事件处理程序。 以下代码使用循环遍历 DataGridView 的列和行，将每个单元格的值写入相应的 Excel 工作表单元格。 ```vb Private Sub btnExport_Click(sender As Object, e As EventArgs) ' Create a new Excel workbook object and worksheet Dim workbook As WorkBook = WorkBook.Create() Dim sheet As WorkSheet = workbook.DefaultWorkSheet ' Write column headers to the header row (row index 0), integer dim Dim colIndex As Integer For colIndex = 0 To DataGridView1.Columns.Count - 1 sheet.SetCellValue(0, colIndex, DataGridView1.Columns(colIndex).HeaderText) Next ' Write data rows starting from the second row Dim rowIndex As Integer For rowIndex = 0 To DataGridView1.Rows.Count - 1 For colIndex = 0 To DataGridView1.Columns.Count - 1 Dim cellValue = DataGridView1.Rows(rowIndex).Cells(colIndex).Value If cellValue IsNot Nothing Then sheet.SetCellValue(rowIndex + 1, colIndex, cellValue.ToString()) End If Next Next ' Save the workbook as an XLSX file with specified filename Dim outputPath As String = "EmployeeData.xlsx" workbook.SaveAs(outputPath) MessageBox.Show("Export solved! File created successfully.", "Success") End Sub ``` 代码首先创建一个新的 [WorkBook](/csharp/excel/object-reference/api/IronXL.WorkBook.html) 对象，该对象代表整个 Excel 文件。`DefaultWorkSheet` 属性提供了对写入数据的默认工作表的访问。 ### 输出  第一个循环从 DataGridView 中提取列标题，并将其放入 Excel 工作表的标题行（索引为零）。 `HeaderText` 属性包含每列的显示名称。 使用 `Dim colIndex As Integer` 声明用作循环计数器的变量。 嵌套循环处理实际的数据传输。 对于 DataGridView 中的每一行，代码会使用 `Count` 属性遍历所有列。 该方法将检索单元格值，并使用 `ToString()` 将其转换为 `String` 之后写入工作表。 `rowIndex + 1` 偏移量可确保数据从标题行下方开始。 空值检查可防止单元格不含值时出现错误。 最后，`SaveAs` 方法会将工作簿以 XLSX 格式写入指定路径下的磁盘。 IronXL 可以处理 [Open XML 格式](https://learn.microsoft.com/en-us/office/open-xml/open-xml-sdk)所要求的所有复杂 XML 包装。 `End Sub` 行关闭事件处理程序函数。

开发人员如何在导出文件中保留单元格格式？ 基本的导出功能可以传输数据，但专业应用往往需要对输出的 Excel 文件进行格式化。IronXL 的样式 API 可对单元格进行格式化，以匹配或增强 DataGridView 的外观。 ```vb Private Sub ExportWithFormatting() Dim workbook As WorkBook = WorkBook.Create() Dim sheet As WorkSheet = workbook.DefaultWorkSheet ' Write and style column headers on the first line Dim colIndex As Integer For colIndex = 0 To DataGridView1.Columns.Count - 1 sheet.SetCellValue(0, colIndex, DataGridView1.Columns(colIndex).HeaderText) Next ' Find Salary column index (case-insensitive) Dim salaryColIndex As Integer = -1 For i As Integer = 0 To DataGridView1.Columns.Count - 1 If String.Equals(DataGridView1.Columns(i).HeaderText, "Salary", StringComparison.OrdinalIgnoreCase) Then salaryColIndex = i Exit For End If Next ' Apply header row styling with format options Dim headerRange = sheet.GetRange("A1:D1") headerRange.Style.Font.Bold = True headerRange.Style.SetBackgroundColor("#4472C4") headerRange.Style.Font.SetColor("#FFFFFF") ' Write data rows and ensure Salary cells are numeric For rowIndex As Integer = 0 To DataGridView1.Rows.Count - 1 If Not DataGridView1.Rows(rowIndex).IsNewRow Then For colIndex = 0 To DataGridView1.Columns.Count - 1 Dim cellValue = DataGridView1.Rows(rowIndex).Cells(colIndex).Value Dim targetRow = rowIndex + 1 If cellValue Is Nothing Then Continue For End If If colIndex = salaryColIndex Then ' Ensure numeric value for salary column Dim decValue As Decimal If TypeOf cellValue Is Decimal OrElse TypeOf cellValue Is Double OrElse TypeOf cellValue Is Integer OrElse TypeOf cellValue Is Single Then decValue = Convert.ToDecimal(cellValue) sheet.SetCellValue(targetRow, colIndex, decValue) Else ' Try parse using current culture, then invariant If Decimal.TryParse(cellValue.ToString(), Globalization.NumberStyles.Number, Globalization.CultureInfo.CurrentCulture, decValue) _ OrElse Decimal.TryParse(cellValue.ToString(), Globalization.NumberStyles.Number, Globalization.CultureInfo.InvariantCulture, decValue) Then sheet.SetCellValue(targetRow, colIndex, decValue) Else ' fallback to text if parsing fails sheet.SetCellValue(targetRow, colIndex, cellValue.ToString()) End If End If Else ' Non-salary: preserve numeric types, otherwise write as text If TypeOf cellValue Is Decimal OrElse Type Of cellValue Is Double Or Else Type Of cellValue Is Integer Or Else Type Of cellValue Is Single Then sheet.SetCellValue(targetRow, colIndex, cellValue) Else sheet.SetCellValue(targetRow, colIndex, cellValue.ToString()) End If End If Next End If Next ' Format salary column as currency Dim salaryColumn = sheet.GetRange("D2:D5") salaryColumn.FormatString = "$#,##0" Dim filename As String = "FormattedEmployeeData.xlsx" workbook.SaveAs(filename) End Sub ``` 该增强版对导出的 Excel 文件应用了专业格式。`GetRange` 方法使用标准 Excel 符号（标题行为 A1:D1）选择单元格。 `Style` 属性公开了格式选项，包括以十六进制值指定的字体重量、背景颜色和文本颜色。 ### 输出 . 工资列通过 `Format` 属性接收货币格式，该属性接受 Excel 数字格式字符串。 当用户在 MS Excel 中打开输出文件时，D 栏中的数值会显示美元符号和千位分隔符。 本页仅展示了可用格式化功能的一个示例。

为什么选择现代图书馆而不是 Office Interop？ 依靠 `Microsoft.Office.Interop.Excel` 导出 Excel 的传统 VB.NET 解决方案要求在运行应用程序的每个系统上安装 Microsoft Office。 使用 `Dim xlApp` 模式的代码会给部署带来挑战，尤其是对于无法安装 MS Excel 的服务器环境和云应用程序。 IronXL 可独立运行，无需安装 Office。 应用程序作为独立单元部署，没有外部依赖性。 此外，IronXL 还避免了困扰基于 Interop 的解决方案的内存泄漏和 COM 对象清理问题，从而使应用程序更加稳定。 如果您需要 CSV 格式而不是 XLSX 格式，该库还支持 CSV 导出。 希望本文能解答您关于如何导出 DataGridView 数据的问题。 如需更多帮助，请链接至 [ 疑难解答文档](/csharp/excel/troubleshooting/apply-a-license-key-in-ironxl/)，如果在实施过程中遇到任何错误，请联系技术支持。 ## 结论 有了正确的工具，在 VB.NET 中将 DataGridView 数据导出到 Excel 就变得简单易行了。 IronXL 提供了简洁、现代的 API，可处理工作簿创建、向单元格写入数据和格式化，而无需安装 Microsoft Office。 无论您需要编写简单的数据表还是复杂的格式化工作簿，该库都能提供您所需的功能。 [下载 IronXL](download-modal)，立即开始在 VB.NET Windows Forms 应用程序中构建 Excel 导出功能。 [Licensing 选项](/csharp/excel/licensing/)适用于各种规模的团队，[免费试用](trial-license)即可开始使用。