为什么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).从i1 开始,应该没问题:

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