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

fengqi0903

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

mikewolf2k

excelsheet赋值成功了么？

fengqi0903

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

qwh923820

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

qwh923820

请参考我定义的方法

2. Sub main()
   
3. Dim xlobj As Object
   
4. Dim excelsheet As Object
   
5. Dim arr
   
6. Set xlobj = GetObject(, "excel.application")
   
7. Set excelsheet = xlobj.workbooks(1).worksheets(1)
   
8. arr = excelsheet.range("a1:m30")
   
9. End Sub
   

Sub main()<br /> Dim xlobj As Object<br /> Dim excelsheet As Object<br /> Dim arr<br /> Set xlobj = GetObject(, "excel.application")<br /> Set excelsheet = xlobj.workbooks(1).worksheets(1)<br /> arr = excelsheet.range("a1:m30")<br /> End Sub<br />