Lisp杀掉Excel对象

admin1

Lisp杀掉Excel对象



(defun $kill-excel$ (/ xlapp)
                    ;杀死excel进程
  (or
    (setq xlapp
       (VL-CATCH-ALL-APPLY
         'vlax-get-or-create-object
         '("Excel.Application")
       )
    )
                    ;微软的office调用方法
    (SETQ xlapp    (VL-CATCH-ALL-APPLY
          'vlax-get-or-create-object
          '("Ket.Application")
        )
    )                    ;wps的调用方法
    (setq xlapp    (VL-CATCH-ALL-APPLY
          'vlax-get-or-create-object
          '("Calc.Application")
        )
    )
                    ;中线cad的office调用方法
  )
  (vl-catch-all-apply 'vlax-invoke-method (list xlapp 'Quit))
  (and xlapp
       (vl-catch-all-apply 'vlax-release-object (list xlapp))
  )
)