万年的下标越界

黑暗中的独行者 · 发表于 2017-4-29 21:15

Sub test()
Dim aa, sheet1name As String
sheet1name = Sheets("服务能力评价").Range("E5").Value
aa = Sheets("" & sheet1name & "").Range("E5").Value
MsgBox aa

End Sub
小白初学
调试是说明这句有问题 aa = Sheets("" & sheet1name & "").Range("E5").Value 小白找不到原因跪求大神指点其中奥秘
我的MsgBox 只能提示aa的值

黑暗中的独行者 · 发表于 2017-4-29 21:25

我自己知道了。。。。

327718098 · 发表于 2017-4-29 21:29

sheet1name的赋值是多少，有叫sheet1name这个工作表吗？用string的变量工作表不用加“”，应该用sheets(sheet1name)

大灰狼1976 · 发表于 2017-4-29 21:52

虽然烦琐一点，但是aa = Sheets("" & sheet1name & "").Range("E5").Value这样的表达方式是被允许的。最大的可能是sheet1name变量代表的工作表名并不存在而导致错误。

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

万年的下标越界

相关帖子