使用EPPlus将多个数据集导出到单个Excel工作表

我无法find有关如何使用EPPlus库将多个数据集/表导出到单个Excel工作表的示例。 当我运行代码时，它会返回恰好是最后一组的集合。 我在做什么错了下面的代码？ 谢谢！

Dim dSets as DataSets Dim dGrid as DataGrid Dim dTable as DataTable Dim sheet as String sheet = "DumpSets" Dim attachment as String attachment = "attachment; filename=" + sheet + ".xlsx" Dim xlPack as ExcelPackage = New ExcelPackage() Dim ws as ExcelWorksheet = xlPack.Workbook.Worksheets.Add(sheet) Response.Clear() Response.AddHeader("content-disposition", attachment) Response.Charset = "" For each dTable in dSets.Tables dGrid = New DataGrid Me.EnableViewState = False dGrid.DataSource = dTable ws.Cells(1, 1).LoadFromDataTable(dGrid.DataSource, True) dGrid.DataBind() Next Response.BinaryWrite(xlPack.GetAsByteArray()) Response.End() 

Answer 1

正如@Blackwood已经提到的，你总是把数据添加到同一个地方。

所以它应该是这样的：

 Dim cnt As Integer = 1 For each dTable in dSets.Tables dGrid = New DataGrid Me.EnableViewState = False dGrid.DataSource = dTable ws.Cells(1, cnt).LoadFromDataTable(dGrid.DataSource, True) dGrid.DataBind() cnt = (cnt + 1) Next 

您也可以将每个数据集添加到自己的工作表中。

 Dim cnt As Integer = 1 For Each dt As DataTable In dSets.Tables Dim ws As ExcelWorksheet = xlPack.Workbook.Worksheets.Add(("Sheet " + cnt)) ws.Cells(1, 1).LoadFromDataTable(dGrid.DataSource, True) cnt = (cnt + 1) Next