Question

我正在尝试打开存储在数组中的一系列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

Answer 1

这不能解决根本原因（可能是什么），但是循环数组是一种更自然的方式

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

顺便说一下，你的昏暗语句Dim count, test, StartRow, LastRow, LastColumn As Long将除LastColumn以外的所有项目声明为Variant

打开数组文件下标超出范围

1 个答案: