Lisp向Excel工作簿注入vba代码方法

dcl1214 · 发表于 2021-6-30 16:56:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun $excel-add-vba$
(xlapp sh-n VBA-STR run-str lst / item vbproject xlsheet)
;向excel里面写vba代码，注入vba代码
;;; ($excel-add-vba$
;;; xlapp
;;; "Sub Lisp_vba()\nMsgBox \"Hello world!\", vbOKOnly, \"Lisp调用Excel\"\nEnd Sub"
;;; "(vlax-invoke-method XLAPP (QUOTE RUN) \"Sheet1.Lisp_vba\")"
;;; "Sheet1"
;;; nil
;;; )
(or xlapp (setq xlapp ($xlapp-New$ nil nil nil)))
(setq xlsheet
(vl-catch-all-apply
'vlax-get-property
(list (vl-catch-all-apply
'vlax-get-property
(list (vl-catch-all-apply
'vlax-get-property
(list xlapp 'activeworkbook)
)
'Sheets
)
)
'Item
sh-n
)
)
)
(setq VBProject
(vl-catch-all-apply
'vlax-get-property
(list
(vl-catch-all-apply
'vlax-get-property
(list xlapp
"ActiveWorkbook"
)
)
'VBProject
)
)
)
(setq Item (vl-catch-all-apply
'vlax-invoke-method
(LIST
(vl-catch-all-apply
'vlax-get-property
(LIST
VBProject
'VBComponents
)
)
'Item
sh-n
)
)
)
(vl-catch-all-apply
'vlax-invoke-method
(LIST
(vl-catch-all-apply
'vlax-get-property
(LIST
Item
'CodeModule
)
)
'DeleteLines
1
(vl-catch-all-apply
'vlax-get-property
(LIST
(vl-catch-all-apply
'vlax-get-property
(LIST
Item
'CodeModule
)
)
'CountOfLines
)
)
)
) ;删除历史的vba代码
(vl-catch-all-apply
'vlax-invoke-method
(LIST
(vl-catch-all-apply
'vlax-get-property
(LIST
Item
'CodeModule
)
)
'AddFromString
VBA-STR
)
)
(vl-catch-all-apply
'EVAL
(list (vl-catch-all-apply 'READ (list run-str)))
)
(vl-catch-all-apply
'vlax-get-property
(LIST
(vl-catch-all-apply
'vlax-get-property
(LIST
Item
'CodeModule
)
)
'CountOfLines
)
) ;返回写入成功的行数
)

(defun $excel-add-vba$ 
       (xlapp sh-n VBA-STR run-str lst / item vbproject xlsheet) 
          ;向excel里面写vba代码，注入vba代码 
;;;  ($excel-add-vba$ 
;;;  xlapp 
;;;  "Sub Lisp_vba()\nMsgBox \"Hello world!\", vbOKOnly, \"Lisp调用Excel\"\nEnd Sub" 
;;;  "(vlax-invoke-method XLAPP (QUOTE RUN) \"Sheet1.Lisp_vba\")" 
;;;  "Sheet1" 
;;;  nil 
;;; ) 
  (or xlapp (setq xlapp ($xlapp-New$ nil nil nil))) 
  (setq  xlsheet 
   (vl-catch-all-apply 
     'vlax-get-property 
     (list (vl-catch-all-apply 
       'vlax-get-property 
       (list (vl-catch-all-apply 
         'vlax-get-property 
         (list xlapp 'activeworkbook) 
       ) 
       'Sheets 
       ) 
     ) 
     'Item 
     sh-n 
     ) 
   ) 
  ) 
  (setq  VBProject 
   (vl-catch-all-apply 
     'vlax-get-property 
     (list 
       (vl-catch-all-apply 
         'vlax-get-property 
         (list xlapp 
         "ActiveWorkbook" 
         ) 
       ) 
       'VBProject 
     ) 
   ) 
  ) 
  (setq  Item (vl-catch-all-apply 
         'vlax-invoke-method 
         (LIST 
     (vl-catch-all-apply 
       'vlax-get-property 
       (LIST 
         VBProject 
         'VBComponents 
       ) 
     ) 
     'Item 
     sh-n 
         ) 
       ) 
  ) 
  (vl-catch-all-apply 
    'vlax-invoke-method 
    (LIST 
      (vl-catch-all-apply 
  'vlax-get-property 
  (LIST 
    Item 
    'CodeModule 
  ) 
      ) 
      'DeleteLines 
      1 
      (vl-catch-all-apply 
  'vlax-get-property 
  (LIST 
    (vl-catch-all-apply 
      'vlax-get-property 
      (LIST 
        Item 
        'CodeModule 
      ) 
    ) 
    'CountOfLines 
  ) 
      ) 
    ) 
  )          ;删除历史的vba代码 
  (vl-catch-all-apply 
    'vlax-invoke-method 
    (LIST 
      (vl-catch-all-apply 
  'vlax-get-property 
  (LIST 
    Item 
    'CodeModule 
  ) 
      ) 
      'AddFromString 
      VBA-STR 
    ) 
  ) 
  (vl-catch-all-apply 
    'EVAL 
    (list (vl-catch-all-apply 'READ (list run-str))) 
  ) 
  (vl-catch-all-apply 
    'vlax-get-property 
    (LIST 
      (vl-catch-all-apply 
  'vlax-get-property 
  (LIST 
    Item 
    'CodeModule 
  ) 
      ) 
      'CountOfLines 
    ) 
  )          ;返回写入成功的行数 
)

叮LSP咚 · 发表于 2021-6-30 20:27:58

既然lisp就可以控制excel，它也是调用的vba的相关代码，那在EXCEL中写入vba，是不是有点脱裤子放屁。意义在哪？

账号		自动登录	找回密码
密码			立即注册

[原创] Lisp向Excel工作簿注入vba代码方法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。