Question

VBA运行出现下标越界，怎么修改？

Sub abc() Dim myFile, myPath Dim I As Integer Dim fnn As String I = 1 myPath = "C:\Users\Administrator\Desktop\800M网优工程预算\" Excel.Application.Workbooks("fn.xlsx").Activate fnn = Workbooks("fn.xlsx").Worksheets("sheet1").Cells(I, 1) myFile = "C:\Users\Administrator\Desktop\800M网优工程预算\" & fnn Do While fnn <> "" If fnne <> ThisWorkbook.Name Then Workbooks.Open Filename:=myPath & fnn, UpdateLinks:=0 Call prt1 Workbooks(fnn & ".xlsx").Close SaveChanges:=True End If I = I + 1 Excel.Application.Workbooks("fn.xlsx").Activate fnn = Workbooks("fn.xlsx").Worksheets("sheet1").Cells(I, 1) Loop End Sub Sub prt1() ' ' prt1 Macro ' ' 快捷键: Ctrl+a ' Sheets("表一").PrintOut Copies:=1 If Worksheets("表一").Range("H11").Value <> 0 Then Sheets("表二").PrintOut Copies:=1 Sheets("表三甲").PrintOut Copies:=1 End If If Worksheets("表二").Range("E15").Value <> 0 Then Sheets("表三丙").PrintOut Copies:=1 End If If Worksheets("表二").Range("E12").Value <> 0 Then Sheets("表四甲(主材)").PrintOut Copies:=1 End If If Worksheets("表一").Range("F11").Value <> 0 Then Sheets("表四甲(设备)").PrintOut Copies:=1 End If If Worksheets("表四甲(利旧设备)").Range("H29").Value <> 0 Then Sheets("表四甲(利旧设备)").PrintOut Copies:=1 End If If Worksheets("表一").Range("I11").Value <> 0 Then Sheets("表五").PrintOut Copies:=1 End If If Worksheets("表一").Range("E11").Value <> 0 Then Sheets("小型建筑表").PrintOut Copies:=1 End If End Sub

Answer 1

1
在SHEET表内设置好按钮，并指定到宏。（宏所在SHEET的名称为“图表”）
2
在VBA编辑器内输入如下的代码。（此代码的含义为遍布区域内的单元格，如果为空格，则隐藏空格所在的整列。
3
在运行过程中出现了问题，下标越界，无法运行。
4
查看问题原因为，在代码中的“SHEET1”工作表根本没有，因为SHEET表的标签名称为“图表”，因此代码运行时找不到"SHEET1"工作表，所以提示下标越界。
5
点击异常提示下的“调试”按钮，将代码中“SHEET1”改为“图表”后再点按钮，运行宏，代码正常运行，无下表越界提示。