yhly555 发表于 2016-7-12 08:59:09

如何在excel中插入一行？

如题，在lisp中如何在excel中插入一行？谢谢！

xujinhua 发表于 2021-6-7 20:17:50

同问。。。我也不知道

andyding 发表于 2021-6-8 21:11:39

;;;以下代码来自晓东的st788796大师。
;;;在指定行前插入多行
(defun _Excel:Insertrows (baserow num / excel sht)
(setq        excel (vlax-get-object "Excel.Application")
        sht   (vlax-get excel 'ActiveSheet)
)
(vlax-invoke-method
    (vlax-get-property
      (vlax-get-property sht 'rows)
      'Range
      (strcat (rtos baserow 2 0) ":" (rtos (+ (- baserow 1) num) 2 0))
    )
    'Insert
)
)

xujinhua 发表于 2021-6-10 09:55:34

andyding 发表于 2021-6-8 21:11
;;;以下代码来自晓东的st788796大师。
;;;在指定行前插入多行
(defun _Excel:Insertrows (baserow num /...

谢谢你啊，学习了

773786668 发表于 2023-6-2 13:28:02

andyding 发表于 2021-6-8 21:11
;;;以下代码来自晓东的st788796大师。
;;;在指定行前插入多行
(defun _Excel:Insertrows (baserow num /...

谢谢，学习了:lol
页: [1]
查看完整版本: 如何在excel中插入一行？