求助：lisp如何操控excel工作表的复制

jidian24

请高手指点
工作需求复制excel工作表Sheet1到同一工作簿的后面, 求助lisp如何写？特别是：After:=Worksheets("Sheet3")  这句用lisp怎么表达？

excel帮忙对象方法说明如下：
本示例复制工作表 Sheet1，并将其放置在工作表 Sheet3 之后。
Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

(setq xl  (vlax-get-or-create-object "Excel.Application")) ;创建excel程序对象
  (setq wbs (vlax-get-property  xl "WorkBooks")) ;获取excel程序对象的工作簿集合对象
  (setq wb  (vlax-invoke-method wbs "open"  "123.xls")) ;用工作簿集合对象打开指定的excel文件
  (setq shs (vlax-get-property wb "Sheets"));获取刚才打开工作簿的工作表集合
  (setq sh  (vlax-get-property  shs "Item" "Sheet1"));获取指定的工作表

  (setq shb  (vlax-invoke-method sh "copy" "After" "Sheet3"))

请问以上方法在vlax-invoke-method 语法格式应该怎么写？

和尚777

(defun c:tt ()
        (setq xl (vlax-get-object "Excel.Application"))
        (setq wb (vlax-get-property xl "Worksheets"))
        (setq s1 (vlax-get-property xl "activeSheet"))
        (setq sh3 (vlax-get-property  wb "item" "sheet3"))
        (setq shb (vlax-invoke sh "copy" nil sh3))
)

jidian24

谢谢！ 已验证可行。

gxh94

有点好奇，为啥不用excel vba直接执行