Lisp合并excel单元格

admin1

Lisp合并excel单元格



(defun $he-bing-dan-yuan-ge$
       (xlapp sheet-n dygs xlapprelease? lst / xlbooks xlsheet)
                    ;合并单元格
                    ;($he-bing-dan-yuan-ge$ nil "下线分析"(list "B1:C1" "B3:C5")NIL NIL)
  (or xlapp (setq xlapp ($xlapp-New$ nil nil nil)))
  (setq    xlbooks    (vl-catch-all-apply
          'vlax-get-property
          (list xlapp 'Workbooks)
        )
  )
  (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
         sheet-n
       )
     )
  )
  (vl-catch-all-apply
    'vlax-invoke-method
    (list xlsheet "Activate")
  )                    ;置顶
  (vl-catch-all-apply
    'vlax-put-property
    (LIST xlapp 'DisplayAlerts :vlax-False)
  )                    ;禁止弹出提示语
  (mapcar (function
        (lambda (a / rang)
          (setq
        rang (vl-catch-all-apply 'msxlp-get-range (list xlapp a))
          )
          (vl-catch-all-apply 'msxl-merge (list rang nil))
        )
      )
      dygs
  )
  (vl-catch-all-apply
    'msxlp-put-HorizontalAlignment
    (list rang -4108)
  )
  (if xlapprelease?            ;释放吗？
    (progn (vl-catch-all-apply 'vlax-release-object (list xlapp))
       (setq xlapp nil)
    )
  )
  xlapp
)