Lisp创建Excel对象

admin1

Lisp创建Excel对象



(Defun $xlapp-New$ (UnHide wb? lst / Rtn)
                    ;新建excel对象，新建xlapp
                    ;UnHide 传入数字0将隐藏进程，数字1是显示进程，传入nil无动作
  (if (vl-catch-all-apply
    (function (lambda () (vlxls-app-Init)))
      )                    ;初始化
    (progn (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调用方法
       )
       (if (and xlapp (not (vl-catch-all-error-p xlapp)))
         (progn
           (if wb?
         (vl-catch-all-apply
           'vlax-invoke-method
           (list (vl-catch-all-apply
               'vlax-get-property
               (list xlapp 'WorkBooks)
             )
             'Add
           )
         )
           )
           (vl-catch-all-apply 'vla-put-visible (list xlapp UnHide))
         )
         (repeat 3
           (PRINT
         "调用Excel对象Excel.Application失败,请重装完整版office"
           )
         )
       )
       (vl-catch-all-apply
         'vlax-put-property
         (LIST xlapp 'DisplayAlerts :vlax-False)
       )                ;禁止弹出警告窗口
    )
  )
  xlapp
)