У меня проблема с экспортом данных, чтобы преуспеть с помощью application.transpose

Question

Это мой код при экспорте данных из базы данных в Excel с использованием application.transpose, но я ищу, что он имеет ограничение в 64000 строк или массив, как экспортировать данные, превышающие его предел?

Вот мой код...

Dim dc As System.Data.DataColumn
            Dim colIndex As Integer = 0
            Dim rowIndex As Integer = 0

            Dim adt As New MySqlDataAdapter("My Query", "My connection")
            Dim dt As New DataTable
            adt.Fill(dt)
            'Nombre de mesures  
            Dim Nbligne As Integer = dt.Rows.Count

            '(Write column headers and data)
            For Each dc In dt.Columns
                colIndex = colIndex + 1 

                sheet.Cells(3, colIndex).Resize(Nbligne, ).Value = app.Application.transpose(dt.Rows.OfType(Of DataRow)().[Select](Function(k) CObj(k(dc.ColumnName))).ToArray())
            Next

Answer 1

Нечто подобное

Function TransposeArray1D(ByVal arr As Variant) As Variant
    Dim tempArray As Variant
     ReDim tempArray(LBound(arr, 1) To UBound(arr, 1), LBound(arr(0)) To UBound(arr(0)))
        For y = LBound(arr, 1) To UBound(arr, 1)
            For x = LBound(arr(0)) To UBound(arr(0))
                tempArray(y, x) = arr(y)(x)
            Next x
        Next y
     TransposeArray1D = tempArray
End Function

Function TransposeArray2D(ByVal arr As Variant) As Variant
    Dim tempArray As Variant
     ReDim tempArray(LBound(arr, 2) To UBound(arr, 2), LBound(arr, 1) To UBound(arr, 1))
     For x = LBound(arr, 2) To UBound(arr, 2)
         For y = LBound(arr, 1) To UBound(arr, 1)
             tempArray(x, y) = arr(y, x)
         Next y
     Next x
     TransposeArray2D = tempArray
End Function

Function TransposeArrayIndex(ByVal arr As Variant, ByVal nTh As Long) As Variant
    Dim tempArray As Variant
    ReDim tempArray(0 To UBound(arr, 2))
         For y = LBound(arr, 2) To UBound(arr, 2)
             tempArray(y) = arr(nTh, y)
         Next y
     TransposeArrayIndex = tempArray
End Function