0

配列に保存されている一連の xlm ファイルを開こうとしていますが、添え字が範囲外であるというエラーが表示され続けます。何かアドバイス？ありがとう

 Dim AllFiles() As String
 Dim count, test, StartRow, LastRow, LastColumn As Long    
 test = count
 Do While (test >= 0)
 Workbooks.Open Filename:=AllFiles(test) 'subscript out of range
 test = test - 1
 Loop
4

1 に答える 1

2

これは根本的な原因（それが何であれ）に対処しませんが、配列をループするより自然な方法です

For test = UBound(AllFiles) to LBound(AllFiles) Step -1    
    Workbooks.Open Filename:=AllFiles(test)
Loop

ちなみに、dimステートメントはDim count, test, StartRow, LastRow, LastColumn As Long以下を除くすべてのアイテムを宣言しLastColumnますVariant

于 2011-08-18T21:29:51.960 に答える