VB.Net如何将DataGridView中的每'n'行导出到Excel中的不同选项卡

Question

我有一个 500 行 15 列的 DGV。 我有5个团队成员。 我必须为我的成员分配等量的行。 所以，在上面例如我必须从 DGV 向我的每个团队成员发送 100 行。前 100 行将转到 Emp#1，第 101 - 200 行将转到 Emp#2，依此类推..

我检查了this 和this，但我什至不能完全尝试一些代码来使这个逻辑工作。

我只在 vb.net 中寻求帮助。

提前谢谢。

编辑：我们的预算有点紧，所以暂时无法投资插件。

Answer 1

您可以使用EasyXLS Excel library 导出一个 Excel 文件，其中包含 5 个工作表和每个 100 行：

' Create an instance of the class that exports Excel files, having 5 sheets
Dim xls As New ExcelDocument(5)

Dim n as Integer = dataGridView.Rows.Count()/5        

For sheet As Integer = 0 To 4
    ' Set sheet names
    xls.easy_getSheetAt(sheet).setSheetName("Emp#" & (sheet+1))

    ' Get the sheet table that stores the data
    Dim xlsTab As ExcelWorksheet = xls.easy_getSheetAt(sheet)
    Dim xlsTable = xlsTab.easy_getExcelTable()
    Dim tableRow = 0

    ' Add data in cells
    For row As Integer = 0 To n - 1
        For column As Integer = 0 To dataGridView.Columns.Count() - 1
            xlsTable.easy_getCell(tableRow, column).setValue( _
                         dataGridView.Rows(n*sheet + row).Cells(column).Value.ToString())
        Next
        tableRow = tableRow + 1
    Next
Next

' Export Excel file
xls.easy_WriteXLSXFile("C:\Samples\Excel.xlsx")

关于格式化和如何使用这个库的更多细节，你可以从这个解释how to export a DataGridView to Excel的链接开始。