fengqi0903 发表于 2018-9-14 14:29:00

求助，CAD VBA的新手问题-数组转化

各位，我才开始学习CAD VBA，现在有个问题请教一下
为了提高查找速度，我将Excel的单元格区域转换为数组，但是在Excel VBA里面运行没有问题的数组转换在CAD环境就不可以了
dim arr()
arr()=excelsheet.range("a1:ck3000")
在Excel VBA环境下完全没有问题，在CAD环境下运行就出现“类型不匹配”的错误
在单元格区域内有各种数据类型，有日期型、单精度型、整型、字符型等等。

mikewolf2k 发表于 2018-9-14 14:37:59

excelsheet赋值成功了么？

fengqi0903 发表于 2018-9-14 14:42:34

赋值成功了的，因为之前我没有用数组，直接使用Excelsheet.cells()调用单元格数据，程序能够正常运行，就是速度太慢了，就想先把单元格区域一次性转为数组，再操作数组，加快运行速度

qwh923820 发表于 2018-9-17 09:13:39

excelsheet对象是怎么定义的，应该是定义问题

qwh923820 发表于 2018-9-17 09:19:17

请参考我定义的方法


Sub main()
Dim xlobj As Object
Dim excelsheet As Object
Dim arr
Set xlobj = GetObject(, "excel.application")
Set excelsheet = xlobj.workbooks(1).worksheets(1)
arr = excelsheet.range("a1:m30")
End Sub
页: [1]
查看完整版本: 求助，CAD VBA的新手问题-数组转化