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

ezyw ezyw 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
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'失败
该如何解决???
谢谢!!!
...全文
评论 6
收藏 已收藏
分享
返回顶部
ezyw
VB基础类 7,788 成员 197,583 内容