Exportieren mehrerer Datensätze in ein einzelnes Excel-Arbeitsblatt mit EPPlus

Question

Ich kann keine Beispiele für den Export mehrerer Datensätze/Tabellen in ein einzelnes Excel-Arbeitsblatt mit der EPPlus-Bibliothek finden. Wenn ich die Codes ausfühle, gibt es einen Satz zurück, der zufällig der letzte ist. Was mache ich falsch mit den folgenden Codes? Vielen Dank!

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

Wie @Blackwood bereits erwähnt, fügen Sie immer die Daten an der gleichen Stelle.

So sollte es so etwas wie dieses:

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 

Sie können auch jeden Datensatz seinen eigenen Blatt hinzuzufügen.

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