新手操作EXCEL提示错误

671609719845

CAD2010 64位，excel2016
错误: Automation 错误。未提供说明。

(defun c:test()
(setq ExApp (vlax-get-or-create-object "Excel.Application"))
(setq ExApp_wkbs (vlax-get-property ExApp 'Workbooks))
(setq ExApp_wkbs[1] (vlax-get-property ExApp_wkbs 'item 1))
(setq ExApp_wkbs[1]_wkss (vlax-get-property ExApp_wkbs[1] 'Worksheets))
(setq ExApp_wkbs[1]_wkss[1] (vlax-get-property ExApp_wkbs[1]_wkss 'item 1))
(setq ExApp_wkbs[1]_wkss[1]_Range (vlax-get-property ExApp_wkbs[1]_wkss[1] 'Range "A1"))
;;将 A1 单元格扩充为 2 行 5 列的数组对象
(setq xResize (vlax-get-property ExApp_wkbs[1]_wkss[1]_Range 'Resize 2 5))
;;定义一个 2 维数组，数组上限为 5
(setq Arr (vlax-make-safearray 12 '(1 . 2) '(1 . 5)))
;;将 List 表填充到数组中
(vlax-safearray-fill Arr '((1 2 3 4 5)(2 4 6 8 10)))
;;Vlisp 数组对 Excel 数组对象赋值
(vlax-put-property xResize 'value2 Arr)
)

vbnewer

发在这里怕是没有用哦