vb.net datagridview导出多个sheet页

在 VB.NET 中，可以使用第三方库 EPPlus 来导出多个 sheet 页到 Excel 文件中。下面是一个示例代码：

' 引入 EPPlus 库
Imports OfficeOpenXml

Private Sub ExportToExcel()
    ' 创建一个新的 Excel 文件
    Dim newExcel As New ExcelPackage()

    ' 添加第一个 sheet 页
    Dim sheet1 As ExcelWorksheet = newExcel.Workbook.Worksheets.Add("Sheet1")
    ' 向第一个 sheet 页中添加数据
    sheet1.Cells("A1").Value = "Sheet 1 Data"

    ' 添加第二个 sheet 页
    Dim sheet2 As ExcelWorksheet = newExcel.Workbook.Worksheets.Add("Sheet2")
    ' 向第二个 sheet 页中添加数据
    sheet2.Cells("A1").Value = "Sheet 2 Data"

    ' 导出 Excel 文件
    Dim saveFileDialog1 As New SaveFileDialog()
    saveFileDialog1.Filter = "Excel 文件 (*.xlsx)|*.xlsx"
    saveFileDialog1.Title = "保存 Excel 文件"
    saveFileDialog1.ShowDialog()

    If saveFileDialog1.FileName <> "" Then
        Dim fi As New FileInfo(saveFileDialog1.FileName)
        newExcel.SaveAs(fi)
    End If
End Sub

上述代码会创建一个新的 Excel 文件，并向其中添加两个 sheet 页。你可以根据需要添加更多的 sheet 页，并向其中添加数据。最后，调用 `SaveAs` 方法将 Excel 文件保存到本地磁盘上。