[讨论]错误: no function definition: DSX-OPEN-EXCEL-EXIST

guyuelong

;;;打开 Excel 电子表格文件
(defun DSX-Open-Excel-Exist (xfile dmode / appsession)
  (princ "\n打开 Excel 电子表格文件...")
  (if
    ((setq fn (findfile xfile))
     (if
       ((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
)
错误: no function definition: DSX-OPEN-EXCEL-EXIST

请高手解答，谢谢。

guyuelong

找到原本因了，抄程序是漏了点东西。