实时错误‘1004’对象‘sheets‘的方法‘global'失败

[ezyw]

Private Sub CreateExcelBok()
Dim strSheet As String
Set bokExcel = appExcel.Workbooks.Add
For i = 2 To 8
Sheets.Add
Set shtExcel = bokExcel.Worksheets("Sheet" & CStr(i - 1))
With shtExcel.PageSetup
.BlackAndWhite = False
......
.Zoom = 100
End With
Sheets("Sheet" & CStr(i - 1)).Name = "模" & CStr(i - 1)
Next
Sheets("Sheet8").Name = "汇总"
End Sub
程序运行到Sheets.Add时提示：：
实时错误‘1004’对象‘sheets‘的方法‘global'失败
该如何解决？？？
谢谢！！！

[ezyw]

SOS

[ezyw]

没有人会吗？？？

[ezyw]

没有呀，我这是创建excel，还没有对excel进行操纵

[ezyw]

唉

[ezyw]

大家帮忙呀，我急着要用呢

[uguess]

Sheets 是什么? 你定义的一定是个模块变量,可能在其他的函数中改变了吧.