[LISP程序]：请专家帮助: AutoCAD与Excel(or Aceess)l联结中的问题

lsjjm

本人用Vlisp编了个程序, 在AutoCAD环境下调用Eexce(or Aceess),
基本功能执行无误.
现在的问题是: 执行这个程序后, 要想看看Eexce文件, 可是打不开?
清高手指叫!

XDSoft

最初由 lsjjm 发布
[B]本人用Vlisp编了个程序, 在AutoCAD环境下调用Eexce(or Aceess),
基本功能执行无误.
现在的问题是: 执行这个程序后, 要想看看Eexce文件, 可是打不开?
清高手指叫! [/B]

把你的完整代码贴到论坛来吧。

lsjjm

(setq xlfile (findfile "i:/engineering/manufactuing support/database/tool.xls"))
      (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 UsedRange (vlax-get-property xsheet 'UsedRange))
      (setq num (vlax-variant-value (vla-get-value (ngetcell UsedRange nrow 1))))     
      (setq num (rtos (1+ num) 2 0))
      (setq today (itoa (fix (getvar "cdate"))))
   ...
                                                                  
     (vlax-invoke-method xlapp 'save)
      (vlax-invoke-method workbk "close")
      (vlax-invoke-method tlbfile "close")
      (vlax-invoke-method xlapp "quit")
      (vlax-invoke-method Excl "quit")

黄卫文

给你出一个主意，你试试，后面的几句你先不用它，让EXCEL可见，你自己存盘看看结果是不是一样的。

lijiao

最初由 lsjjm 发布
[B](setq xlfile (findfile "i:/engineering/manufactuing support/database/tool.xls"))
      (setq Excl  (vlax-Get-or-Create-Object "Excel.Application"))
      (setq WorkBk (vlax-get Excl 'Workbooks))
  ... [/B]

Visible 属性值应为：true或false.