数组赋值时提示类型不匹配

ttianan · 发表于 2021-1-17 16:57

需要从两个工作簿中读取数据，代码如下：

'从当前工作薄读取数据并创建数组
irow = Sheet1.Range("A65536").End(xlUp).Row
arr() = Sheet1.Range("A2:O2" & irow)

'打开另一个工作簿，并创建数据
......
Set wk = Workbooks.Open(sDesktopPath & "\汇总表.xlsx")
jrow = wk.Worksheets("Sheet1").Range("A65536").End(xlUp).Row
crr() = wk.Worksheets("Sheet1").Range("A2:M2" & jrow)

第一段代码运行正常，第二段，能打开工作表，但数组赋值那里就提示类型不匹配

求助大神们。谢谢！

蓝桥玄霜 · 发表于 2021-1-17 19:59

crr() = wk.Worksheets("Sheet1").Range("A2:M2" & jrow)
改为：
crr = wk.Worksheets("Sheet1").Range("A2:M" & jrow)

renkangjizhen · 发表于 2021-1-17 20:11

两个数组的赋值都不对

mofantufu · 发表于 2021-6-2 14:20

蓝桥玄霜发表于 2021-1-17 19:59
crr() = wk.Worksheets("Sheet1").Range("A2:M2" & jrow)
改为：
crr = wk.Worksheets("Sheet1").Range(" ...

我也遇到同样的问题，如果数组赋值时，不带表名称【sheets("某某表").】，就可以成功赋值，如果带上这个就不行，按照蓝兄的方式改了表格名称的表达方式，变成了【要求对象】。
有点束手无策了

mofantufu · 发表于 2021-6-2 14:24

终于找到原因了，其实就是需要赋值的数组，不能提前声明为数组类型，即dim arr正确，dim arr()错误。

王永行 · 发表于 2021-6-2 16:11

带括号为动态数组，不带为静态，你这里不能带

jinxuanmr · 发表于 2023-3-15 03:46

加 .value 赋值

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

[求助] 数组赋值时提示类型不匹配