如何在不关闭AutoCAD的情况下,打开Excel文件?

shicai · 发表于 2003-1-14 04:40:00

我已用Vlisp建立了和Excel的联结,相互间可存取数据. 但只有在关闭AutoCAD的情况下,才能打开Excel文件.为何?

zhuqi75 · 发表于 2003-1-14 10:35:00

应该是数据共享与保护的问题，可能是你的DWG文件和EXCEL文件读取同一对象

zhuqi75 · 发表于 2003-1-16 10:20:00

你的程序很宝贵吗？贴出来我们诊断以下吧？没有别的办法

shicai · 发表于 2003-1-16 17:44:00

（setq xlfile (findfile "XXX.xls"))
(vl-load-com)
(setq Excl (vlax-Get-or-Create-Object "Excel.Application"))
(setq WorkBk (vlax-get Excl 'Workbooks))
(setq xlapp (vlax-invoke-Method WorkBk 'Open xlfile))
(vla-Put-Visible Excl 0)
(setq xsheet (vlax-get-property xlapp 'activesheet))
(setq FirstCell (vlax-get-property xsheet 'range "A1"))
(vlax-invoke-method FirstCell 'Activate)
(setq UsedRange (vlax-get-property FirstCell 'CurrentRegion))
(setq usedrows (vlax-get-property UsedRange 'rows))
(setq nrow (vlax-get-property usedrows 'count))
(loadtypelibexcel)
(setq num (getcellvalue nrow 1))
(setq num (rtos (1+ num) 2 0))
(setq today (itoa (fix (getvar "cdate"))))
...
...
(putrowlist (list en des rea sig today)(1+ nrow) 1)
(vlax-invoke-method xlapp 'save)
(vlax-invoke-method workbk "close")
(vlax-invoke-method Excl "quit")

如何在不关闭AutoCAD的情况下,打开Excel文件?

发表回复

精选推荐