如何在excel中插入一行？

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

如题，在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 / ...

谢谢，学习了

账号		自动登录	找回密码
密码			注册

[提问] 如何在excel中插入一行？