複数のデータセットをEPPlusで単一のExcelワークシートにエクスポート

Question

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