Question

excel VBA总是提示错误9 下标越界

Sub Import5()
Worksheets("Fina").Range("M2") = 5
Worksheets("Fina2").Range("G32") = 1
Dim sheetname
sheetname = ActiveWorkbook.Name
For I = 1 To 5
Workbooks.Open (ThisWorkbook.Path & "/" & I & ".xls")
Next
For I = 1 To 5
''on error GoTo ErrMsg
Windows(I & ".xls").Activate
Sheets("W").Select
Cells.Select
Selection.Copy
Windows(sheetname).Activate
Sheets(I).Activate
Range("A1").Activate
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows(I & ".xls").Close savechanges:=False

Answer 1

你这段代码写得不简洁，是录制宏改的吧。
Workbooks.Open (ThisWorkbook.Path & "/" & I & ".xls")
这句应该有问题，“/”反向了。但不应该是“下标越界”的问题，具体哪句出现的问题呢？
Sheets("W").Select——这句如果循环打开的某个文件没有工作表“W”，会出现下标越界

追问

您好！我每一个打开的excel都包含有sheet w这个表。请问遇到这个问题我怎么解决呢？谢谢！