论坛 › 站务管理与公告 › 新手操作EXCEL提示错误

671609719845 发表于 2021-2-5 22:33:51

新手操作EXCEL提示错误

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 (vlax-get-property ExApp_wkbs 'item 1))
(setq ExApp_wkbs_wkss (vlax-get-property ExApp_wkbs 'Worksheets))
(setq ExApp_wkbs_wkss (vlax-get-property ExApp_wkbs_wkss 'item 1))
(setq ExApp_wkbs_wkss_Range (vlax-get-property ExApp_wkbs_wkss 'Range "A1"))
;;将 A1 单元格扩充为 2 行 5 列的数组对象
(setq xResize (vlax-get-property ExApp_wkbs_wkss_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 发表于 2021-11-3 08:47:28

发在这里怕是没有用哦

查看完整版本: 新手操作EXCEL提示错误