vb.net 导出GridView至Excel

在VB.NET中，将GridView的数据导出到Excel通常涉及到使用第三方库，如EPPlus或Microsoft.Office.Interop.Excel，因为Visual Basic for .NET标准库并不直接支持Excel操作。以下是使用EPPlus库的一个简单示例：

1. 首先，你需要安装EPPlus库，可以从NuGet包管理器中获取`EPPlus`。在你的项目中引用它。

<PackageReference Include="EPPlus" Version="4.7.0" />

2. 然后，在需要导出数据的地方，编写代码如下：

Imports OfficeOpenXml

Private Sub ExportToExcel()
    Dim excelApp As New ExcelPackage()
    Dim ws As Worksheet = excelApp.Workbook.Worksheets.Add("Sheet1") ' 创建新的工作表

    ' 获取GridView的数据源，假设它是DataSource属性
    Dim gridDataSource As DataTable = Me.DataGridView1.DataSource

    ' 写入表格数据
    For i As Integer = 0 To gridDataSource.Columns.Count - 1
        ws.Cells(1, i + 1).Value = gridDataSource.Columns(i).ColumnName ' 写标题行
    Next

    For Each row As DataRow In gridDataSource.Rows
        For j As Integer = 0 To row.Table.Columns.Count - 1
            ws.Cells(row.Row + 2, j + 1).Value = row.ItemArray(j) ' 写数据行
        Next
    Next

    ' 保存文件
    Dim filePath As String = "ExportedData.xlsx"
    Using stream As FileStream = File.Create(filePath)
        excelApp.SaveAs(stream)
    End Using

    MessageBox.Show("Excel file exported successfully.")
End Sub

3. 调用这个`ExportToExcel`方法即可。