將工作表數據複製到數組時出錯

Question

我需要將數據從Excel範圍複製到數組中。我正在使用下面的代碼，但它顯示錯誤「期望的數組」。

Dim filename As String 
    Dim arraysize As Integer 

    arraysize = 50 
    I = 1 
    Do Until ThisWorkbook.Sheets("sheet1").Cells(I, 1).Value = "" 
    filename(arraysize) = ThisWorkbook.Sheets("sheet1").Cells(I, 1).Value  
    I = I + 1 
    Loop 

Answer 1

您還沒有聲明該數組。我無法將代碼想象成我的頭頂，但這應該指向正確的方向。

Dim Filename(50) 

Do 
    Filename(I)= excel.row 
Loop 

Answer 2

試試這個

Sub Demo() 
    Dim filename As Variant 
    Dim arraysize As Long 
    Dim rng As Range 
    Dim i As Long 

    i = 1 
    With ThisWorkbook.Sheets("sheet1") 
     Set rng = .Range(.Cells(i, 1), .Cells(i, 1).End(xlDown)) 
    End With 

    ' load as two dimensional array 
    filename = rng.Value 

    ' transform into 1 dimensional array 
    filename = Application.Transpose(filename) 

    arraysize = UBound(filename) 
End Sub