关闭指定的工作簿，在笔记本上可以运行，台式机上不能运行。

13757511966 · 发表于 2016-5-14 23:05

Sub 除雾器返回_Click()
If Workbooks("计划报表系统.xlsm").Sheets("流程图").[J1] = 1 Then

Workbooks("除雾器生产进度").Close SaveChanges:=True
Workbooks("生产计划一览表").Close SaveChanges:=False
   With Workbooks("计划报表系统.xlsm")
      .Sheets("流程图").Activate
      .Sheets("流程图").Visible = True
   End With
  ElseIf Workbooks("计划报表系统.xlsm").Sheets("流程图").[J1] = 2 Then
Workbooks("除雾器生产进度").Close SaveChanges:=False
   Workbooks("生产计划一览表").Close SaveChanges:=False
   With Workbooks("计划报表系统.xlsm")
      .Sheets("流程图").Activate
      .Sheets("流程图").Visible = True
   End With
  End If
End Sub

13757511966 · 发表于 2016-5-14 23:06

请高手指点，

13757511966 · 发表于 2016-5-14 23:07

黄色部分显示要调试

爱疯 · 发表于 2016-5-14 23:51

能发一张出错时的截图吗

13757511966 · 发表于 2016-5-15 16:50

运行时错误'9'
下标越界

13757511966 · 发表于 2016-5-15 16:51

点击调试
就是开始的内容

13757511966 · 发表于 2016-5-15 16:53

后来单独运行Workbooks("").Close 也不行
在笔记本电脑运行正常

		自动登录	找回密码
密码			注册

关闭指定的工作簿，在笔记本上可以运行，台式机上不能运行。

相关帖子