Question

我正在开发一个VBA模块，它从活动工作簿的一列读取单元格 - 另一个工具的输出 - 没什么特别的，但似乎我错过了一些东西。类似问题的解决方案我阅读并测试了它们，但没有任何运气。 Get Value from a cell on a worksheet或 Gather Cells and write it in Active Worksheet 这里的代码直到抛出“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

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

1 个答案: