Lisp给excel可用区域添加边框线

admin1

(defun setgridlines
            (xlapp range / borders cnt $set-LineStyle$)
                    ;给可用区域添加边框线
  (defun $set-LineStyle$ (obj cnt)
    (vl-catch-all-apply
      (function
    (lambda    ()
      (if (< cnt 5)
        (progn
          (vlax-put-property
        obj
        'LineStyle
        (vlax-make-variant 1 3)
          )
          (vlax-put-property
        obj
        'Weight
        (vlax-make-variant 2 3)
          )
          (vlax-put-property
        obj
        'ColorIndex
        (vlax-make-variant 1 5)
          )
        )
        (vlax-put-property
          obj
          'LineStyle
          (vlax-make-variant -4142 3)
        )
      )
    )
      )
    )
  )
  (vl-catch-all-apply
    'vlax-invoke-method
    (list range 'Select)
  )
  (setq    range (vl-catch-all-apply
        'vlax-get-property
        (list xlapp 'Selection)
          )
  )
  (setq    borders    (vl-catch-all-apply
          'vlax-get-property
          (list range 'Borders)
        )
  )
  (setq cnt 0)
  (vl-catch-all-apply
    (FUNCTION (LAMBDA ()
        (vlax-for a borders
          (set 'cnt (1+ cnt))
          ($set-LineStyle$ a cnt)
        )
          )
    )
  )
)