[LISP程序]：XD, 我的程序代码在这， 请帮助分析：

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")

zhynt

这是一个完整的程序吗？好像不是哦

XDSoft

最初由 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))
(setq xlapp (vl... [/B]

问问题都不会：）

帮你分析什么阿？你至少要说说你的程序要做什么、程序不能实现有什么错误提示等等.............

你方便别人，别人才能方便你。