VBA运行时错误9，下标越界

sjn617 · 发表于 2017-6-13 21:15

为什么我的这个代码运行时出现错误9，下标越界。然后点调试，再运行又可以了。求大神指点。代码如下：Sub A()
Dim wk As Workbook
For Each wk In Application.Workbooks
      wk.Activate
      ActiveWorkbook.Worksheets(2).Activate
      Range("D5").Value = 10
      wk.Save
Next wk

End Sub

sjn617 · 发表于 2017-6-13 22:03

如图，再黄色地方出现错误（下标越界），但再点就又OK了，能出现结果。求大神指点问题出现在哪。代码能用但是每次都要这样点两次

未忘初心 · 发表于 2017-6-13 23:02

看看每个工作簿是不是都有2个表

changhong8 · 发表于 2017-6-13 23:21

你这是为每个工作簿的第二个普通工作表D5赋值为10，你得保证每个工作簿至少有两张普通工作表啊

sjn617 · 发表于 2017-6-13 23:32

changhong8 发表于 2017-6-13 23:21
你这是为每个工作簿的第二个普通工作表D5赋值为10，你得保证每个工作簿至少有两张普通工作表啊

我的工作薄是有两张以上啊。第一次运行会出现调试，第二次就可以了，问题出在哪？
大神我要选所有工作薄中的第二张表进行操作，这样不行改怎么写代码?

changhong8 · 发表于 2017-6-13 23:47

我按照你的代码试了下没毛病，也没报错啊，你把代码保存到模块里了还是工作表或者Thosworkbook里面了

sjn617 · 发表于 2017-6-14 09:11

changhong8 发表于 2017-6-13 23:47
我按照你的代码试了下没毛病，也没报错啊，你把代码保存到模块里了还是工作表或者Thosworkbook里面了

我保存在模块里啊，个人工作薄。我运行时出现下标越界，调试再运行就可以了。不知道问题在哪？是不是系统一下子识别不出来

sjn617 · 发表于 2017-6-14 09:15

未忘初心发表于 2017-6-13 23:02
看看每个工作簿是不是都有2个表

图例的就有三个表，关键点是能运行，但会报一次错误

lss001 · 发表于 2017-6-14 19:44

本帖最后由 lss001 于 2017-6-19 00:21 编辑

代码本身没问题
主要问题在代码运行条件
上附件更能看出问题所在
没有附件大家只是凭经验推测
可是实际问题大多比想象要复杂

7433518 · 发表于 2017-6-17 21:51

workbook.sheets.count

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