2017-06-21 62 views
0

我使用ODBC查詢創建了名爲「arrRecords」的數組。我想將該數組的值輸出到我的工作表中。該數組有4列,但行數取決於查詢。我該怎麼做呢?如何在vba中輸出數組

請幫忙。

+0

'resize' and'ubound' –

+0

這個問題已經有一個(好得多)的答案在這裏:https://stackoverflow.com/questions/6063672/excel-vba-function-to-print-an-array-to - 工作簿 – RBarryYoung

+0

[Excel VBA函數將數組打印到工作簿]的可能副本(https://stackoverflow.com/questions/6063672/excel-vba-function-to-print-an-array-to-the -workbook) – RBarryYoung

回答

0

像這樣的東西應該工作:需要與想要輸入的任何loaction的陣列取代

Sub printarray(arrRecords) 

Dim i As Long, j As Long 

For i = 1 To 4 
     For j = 1 To UBound(arrRecords, 2) 
      ActiveSheet.Cells(j, i).Value = arrRecords(i, j) 
     Next j 
Next i 

End Sub 

Activesheet.cells。

請注意,根據您的設置尺寸可能會被切換。使用ubound(數組,2),可以獲得數組第二維的Upperbound。然後循環瀏覽它。 請注意,我和j不必從1開始,這是依賴於您的情況。

飛走!