Sub abc()
Dim myFile, myPath
Dim I As Integer
Dim fnn As String
I = 1
myPath = "G:\项目出版\02GPON设备预算\新建文件夹\"
Excel.Application.Workbooks("fn.xls").Activate
fnn = Workbooks("fn.xls").Worksheets("Data").Cells(I, 1)
myFile = "G:\项目出版\02GPON设备预算\新建文件夹\" & fnn & ".xls"
Do While fnn <> ""
If fnn <> ThisWorkbook.Name Then
Workbooks.Open Filename:=myFile, UpdateLinks:=0
Call prt1
Workbooks(fnn).Close SaveChanges:=True
End If
I = I + 1
Excel.Application.Workbooks("fn.xlsx").Activate
fnn = Workbooks("fn.xls").Worksheets("Data").Cells(I, 1)
myFile = "G:\项目出版\02GPON设备预算\新建文件夹\" & fnn & ".xls"
Loop
End Sub
Sub prt1()
'
' prt1 Macro
'
' 快捷键: Ctrl+a
'
Worksheets("表一(设计)").PrintOut Copies:=1
If Worksheets("表一(设计)").Range("H13").Value <> 0 Then
Sheets("表二").PrintOut Copies:=1
Sheets("表三甲").PrintOut Copies:=1
End If
If Worksheets("表二").Range("E16").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("J29").Value <> 0 Then
Sheets("表四甲(需安设备)").PrintOut Copies:=1
End If
If Worksheets("表一(设计)").Range("L29").Value <> 0 Then
Sheets("表四甲(利旧设备)").PrintOut Copies:=1
End If
If Worksheets("表一(设计)").Range("I13").Value <> 0 Then
Sheets("表五").PrintOut Copies:=1
End If
End Sub
请问以上代码运行宏的时候提示下标超出范围（错误 9）这个提示代码【 Worksheets("表一(设计)").PrintOut Copies:=1】，怎么解决呢？

你把你的数据截图贴出来看看