Lisp操作excel自适应

admin1

Lisp操作excel自适应



(defun $zi-shi-ying$ (xlapp sh-n lst)
                    ;自适应，自动调整，列自适应
  (vl-catch-all-apply
    'variant-value
    (list
      (vl-catch-all-apply
    'msxl-autofit
    (list
      (vl-catch-all-apply
        'msxlp-get-columns
        (list
          (vl-catch-all-apply
        'msxlp-get-Cells
        (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
            )
          )
        )
          )
        )
      )
    )
      )
    )
  )
)