為什么ActiveSheet.Cells（）不起作用？

Question

我正在研究一個VBA模塊，該模塊從活動工作簿的一欄中讀取單元格-其他工具的輸出-沒什么大不了的，但是似乎我錯過了一些東西。 我閱讀並測試了類似問題的解決方案，但沒有任何運氣。 從工作表上的單元格或聚集單元 格中獲取值， 並將其寫入活動工作表中，這里的代碼直到拋出“ 1004”

Dim FileName As String
Dim FileNameArray() As String
Dim VideoDataArray() As String
Dim TempString As String
Dim strPattern As String

Dim mot_H As Integer
Dim vok_H As Integer
Dim aufgest_H As Integer
Dim mot_S As Integer
Dim vok_S As Integer
Dim vis_Q As Integer
Dim aud_Q As Integer
Dim int_E As Integer
Dim i As Integer

'Nehme den Dateinamen
FileName = ActiveWorkbook.FullName
Debug.Print FileName

'Zerlege den Dateinamen
FileNameArray() = Split(FileName, "_")

'Fülle ein Array mit den Daten
    For i = 0 To 50

    Dim s As String
    s = ActiveSheet.Cells(i, 1).Value
    TempString = TempString & "_" & s & "_"

    Next i

我相信這只是一次小小的失敗，但我暫時找不到。 非常感謝你！

Answer 1

該行從1開始，而不是0，因此當您嘗試訪問.Cells(0,1)時，會出現錯誤。 從1開始您的i ，應該沒問題：

For i = 1 To 50
    '...
Next i