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

ezyw 2001-12-05 03:49:34
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'失败
该如何解决???
谢谢!!!
...全文
482 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
uguess 2001-12-18
  • 打赏
  • 举报
回复

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

ezyw 2001-12-18
  • 打赏
  • 举报
回复
大家帮忙呀,我急着要用呢
ezyw 2001-12-18
  • 打赏
  • 举报
回复
ezyw 2001-12-18
  • 打赏
  • 举报
回复
没有呀,我这是创建excel,还没有对excel进行操纵
ezyw 2001-12-07
  • 打赏
  • 举报
回复
没有人会吗???
ezyw 2001-12-05
  • 打赏
  • 举报
回复
SOS

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧