如何在datagridview vb.net中导出多个选定行

Private Sub ExportSelectedRows()
    ' 创建一个DataTable用于保存选中行的数据
    Dim dt As New DataTable()

    ' 添加列到DataTable，列的数量和datagridview的列数量相同
    For Each column As DataGridViewColumn In dataGridView1.Columns
        dt.Columns.Add(column.HeaderText, column.ValueType)
    Next

    ' 遍历选中行，将数据添加到DataTable中
    For Each row As DataGridViewRow In dataGridView1.SelectedRows
        ' 创建一个新的DataRow用于保存选中行的数据
        Dim newRow As DataRow = dt.NewRow()

        ' 遍历每一列，将选中行的数据添加到DataRow中
        For Each cell As DataGridViewCell In row.Cells
            newRow(cell.ColumnIndex) = cell.Value
        Next

        ' 将DataRow添加到DataTable中
        dt.Rows.Add(newRow)
    Next

    ' 使用导出功能将DataTable保存为Excel或其他格式的文件
    ' 这里可以使用第三方库，例如EPPlus或NPOI，来实现导出功能

    ' 示例代码中使用EPPlus库将DataTable保存为Excel文件
    Using package As New ExcelPackage()
        Dim worksheet As ExcelWorksheet = package.Workbook.Worksheets.Add("Sheet1")

        ' 将DataTable的数据写入Excel中
        worksheet.Cells("A1").LoadFromDataTable(dt, True)

        ' 保存Excel文件
        package.SaveAs(New FileInfo("导出文件路径.xlsx"))
    End Using
End Sub