问一下斑竹!

dqs007

问一下斑竹,你们在http://www.mjtd.com/a2/list.asp?id=348这里的文章里面的函数很好! 可是有些函数我引用了后出现:"Error: 参数类型错误: VLA-OBJECT nil"是怎么一会事??正常错误吗?如果不正常,该怎么解决呢?? 谢谢!!

meflying

比如说哪个?

dqs007

比如说这个 (defun DSX-Open-Excel-Exist (xfile dmode / appsession)
(princ "\n打开 Excel 电子表格文件...")
(cond
( (setq fn (findfile xfile))
(cond
( (setq appsession (vlax-get-or-create-object "Excel.Application"))
(vlax-invoke-method
(vlax-get-property appsession 'WorkBooks)
'Open fn
)
(if (= (strcase dmode) "SHOW")
(vla-put-visible appsession 1)
(vla-put-visible appsession 0)
)
)
)
)
( T (alert (strcat "\n不能找到指定的文件: " xfile)) )
)
appsession
)

dqs007

在网上找的这个也是!跟你们的哪个差不多 啊!加栽后输入setq *xlapp* (vlxls-app-open "C:/test.XLS" T)) 结果不是#<VLA-OBJECT _Application 001efd2c>
而是::"Error: 参数类型错误: VLA-OBJECT nil"是怎么一会事??正常错误吗?如果不正常,该怎么解决呢?? Examples:
(setq *xlapp* (vlxls-app-open "C:/test.XLS" T)) #<VLA-OBJECT _Application 001efd2c>
|;
(Defun vlxls-app-open
(XLSFile UnHide / ExcelApp WorkSheet Sheets ActiveSheet Rtn)
(setq XLSFile (strcase XLSFile))
(if (null (wcmatch XLSFile "*.XLS"))
(setq XLSFile (strcat XLSFile ".XLS"))
)
(if (and (findfile XLSFile)
(setq Rtn (vlax-get-or-create-object "Excel.Application"))
)
(progn
(vlax-invoke-method
(vlax-get-property Rtn 'WorkBooks)
'Open
XLSFile
)
(if UnHide
(vla-put-visible Rtn 1)
(vla-put-visible Rtn 0)
)
)
)
Rtn
)

meflying

是这句的问题，(vlax-get-or-create-object "Excel.Application")


这个我也说不清，好象这样产生的EXCEL进程无法结束，这样可能会获得一个已经关闭的EXCEL对象，导致后面的出错


如果明确是新建对象，使用(vlax-create-object "Excel.Application")吧

dqs007

好,谢谢!我试试!