Lisp向excel指定单元格写函数

admin1

(DEFUN $in-put-excel-func$ (xlapp sh-n address-fun-str lst)
                    ;向excel单元格扔函数
                    ;xlapp excel对象
                    ;sh-n sheet表格的名字
                    ;address-fun-str 单元格及函数字串
                    ;lst 预留参数
                    ;($in-put-excel-func$ nil "数据源" (list (cons "C2" "=B8")) NIL)
  (if (and address-fun-str
       (= (type address-fun-str) 'list)
       (= (type (car address-fun-str)) 'list)
       (= (type (car (car address-fun-str))) 'str)
      )
    (progn (or xlapp (setq xlapp ($xlapp-New$ NIL nil nil)))
       (vl-catch-all-apply
         'vlax-invoke-method
         (list (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
             )
           )
           "Activate"
         )
       )
       (mapcar
         (function
           (lambda (a / address str)
         (setq address (car a))
         (setq str (cdr a))
         (vl-catch-all-apply
           'vlax-put-property
           (list
             (vl-catch-all-apply
               'msxlp-get-range
               (list xlapp address)
             )
             "FormulaLocal"
             (vl-catch-all-apply
               'vlax-make-variant
               (list str
                 8
               )
             )
           )
         )
           )
         )
         address-fun-str
       )
    )
  )
)