Structure von Arrays in VB.NET

Public Structure myStruct
  Dim Spalten(,) As Object
End Structure

Sub FillRange()
    Dim objXL As New Excel.Application

    'Struktur erzeugen  
    Dim s As myStruct
    'zweidimensionales Array anlegen (Zeilen,Spalten)  
    s.Spalten = New Object(10, 10) {}

    'Array mit Beispieldaten füllen  
    For c = 0 To 10
        For r = 0 To 10
            s.Spalten(r, c) = "Test" & c & "." & r  
        Next
    Next

    'Excel anzeigen und Workbook und Worksheet referenzieren  
    objXL.Visible = True
    Dim wb As Workbook = objXL.Workbooks.Add()
    Dim ws As Worksheet = wb.Worksheets(1)

    'Array einem Bereich in Excel zuweisen  
    ws.Range("A1").Resize(s.Spalten.GetLength(0), s.Spalten.GetLength(1)).Value = s.Spalten  
End Sub

Public Structure myStruct
    Dim Spalte1(,) As Object
    Dim Spalte2(,) As Object
End Structure

Sub FillRange()
    Dim objXL As New Excel.Application

    'Struktur erzeugen  
    Dim s As myStruct
    'Arrays anlegen  
    s.Spalte1 = New Object(10, 0) {}
    s.Spalte2 = New Object(10, 0) {}
    'Arrays mit Beispieldaten füllen  
    For i = 0 To 10
        s.Spalte1(i, 0) = "Daten Spalte 1." & i  
        s.Spalte2(i, 0) = "Daten Spalte 2." & i  
    Next
    'Excel anzeigen und Workbook und Worksheet referenzieren  
    objXL.Visible = True
    Dim wb As Workbook = objXL.Workbooks.Add()
    Dim ws As Worksheet = wb.Worksheets(1)

    'Über die Arrays in der Struct iterieren  
    Dim t As Type = GetType(myStruct)
    Dim counter As Integer = 1
    For Each myField As System.Reflection.FieldInfo In t.GetFields()
        'Array holen  
        Dim arr As Object = myField.GetValue(s)
        ' Anzahl der Zeilen des Arrays ermitteln  
        Dim arr_length As Integer = arr.GetLength(0)
        'Daten in Excel schreiben  
        ws.Cells(1, counter).Resize(arr_length).Value = arr
        counter += 1
    Next
End Sub