数组赋值时类型不匹配求解？

zgzxp · 发表于 2016-11-18 13:18

过程中已对相关变量定义
dim ar()
使用

ar = ActiveWorkbook.Sheets("总表(核对时间)").Range("O" & I & ":O" & I + 101)

程序出错，“类型不匹配”
而使用

ar = Sheet7.Range("O" & I & ":O" & I + 101)

可以正常运行
已确定codename “sheet7”和name “总表(核对时间)"是同一张表
求解

代码在活动工作簿中

zgzxp · 发表于 2016-11-18 13:33

唯一的区别是引用工作表时使用不同引用方法
二者之间有区别？

zgzxp · 发表于 2016-11-18 13:50

问题简化为附件类的代码

zgzxp · 发表于 2016-11-18 13:56

刚才试了一下出错的语句必须加上.Vlaue
即ar = ActiveWorkbook.Sheets("总表(核对时间)").Range("O" & I & ":O" & I + 101)
改成
ar = ActiveWorkbook.Sheets("总表(核对时间)").Range("O" & I & ":O" & I + 101).Vlaue
即可
原因未知

wzsy2_mrf · 发表于 2016-11-18 17:07

Sub test()
Dim ar, ar1(), br(), cr()
Dim nRows, nYRow As Long
ar = Sheets("总表(核对时间)").Range("A1:A10") '类型不匹配
br = Sheet1.Range("A1:A10")
End Sub

复制代码

zgzxp · 发表于 2016-11-18 17:15

wzsy2_mrf 发表于 2016-11-18 17:07

谢谢，为什么定义为ar()时
使用sheet1可以直接赋值
而使用sheets("表名")不能赋值呢？
谢谢解答

zgzxp · 发表于 2016-11-18 17:19

wzsy2_mrf 发表于 2016-11-18 17:07

搜到一个帖子
http://club.excelhome.net/thread-878488-1-1.html
原来有人也遇到过，不过还是没有解答用工作表名称和codename引用之间的区别

zgzxp · 发表于 2016-11-18 17:32

又找到一个帖子，估计是这个原因
http://club.excelhome.net/thread-452065-1-1.html
但搞不懂为什么用sheet1引用时，类型是匹配的，用sheets（“工作表名”）引用就不匹配
盼高人解惑

wzsy2_mrf · 发表于 2016-11-18 17:34

zgzxp 发表于 2016-11-18 17:15
谢谢，为什么定义为ar()时
使用sheet1可以直接赋值
而使用sheets("表名")不能赋值呢？

自己慢慢去摸索，解释起来很累。
sheet1，sheets("表名")没有任何区别

helpmeplese · 发表于 2018-12-4 15:48

我也碰到了，在wps中运行没问题，在excel中就不匹配，最后换了个方法跑起来了

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

[求助] 数组赋值时类型不匹配求解？