为什么ActiveSheet.Cells()不工作?

我正在研究一个VBA模块,该模块从活动工作簿(另一个工具的输出)的列中读取单元格,没有任何疑问,但看起来我错过了一些东西。 类似的问题的解决scheme我阅读和testing它们,但没有任何运气。 从工作表上的单元格获取值或收集单元格并将其写入活动工作表在这里代码,直到它抛出“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 

我相信这只是一个微不足道的失败,但我无法在这个时刻find它。 非常感谢你!

行从1开始,而不是0,所以当你试图访问.Cells(0,1)时你会得到一个错误。 在1开始你的i应该没问题:

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