lisp里操作excel新建sheet表单怎么控制位置

Eltrion

在论坛搜到的关于操作excel里新增sheet表单的程序  想问下怎么控制新建表单的位置

2. (defun vlxls-sheet-add (xlapp Name / Rtn)
   
3.    (if (member name (vlxls-sheet-get-all xlapp))
   
4.       (setq Rtn nil)
   
5.       (progn
   
6.          (vlax-put-property
   
7.             (vlax-invoke-method
   
8.                (vlax-get-property Xlapp "sheets" )
   
9.                "Add"
   
10.             )
    
11.             "name"
    
12.             Name
    
13.          )
    
14.          (setq Rtn (equal (vlxls-sheet-get-active xlapp) name))
    
15.       )
    
16.    )
    
17.    Rtn
    
18. )

(defun vlxls-sheet-add (xlapp Name / Rtn)<br />    (if (member name (vlxls-sheet-get-all xlapp))<br />       (setq Rtn nil)<br />       (progn<br />          (vlax-put-property<br />             (vlax-invoke-method<br />                (vlax-get-property Xlapp "sheets" )<br />                "Add" <br />             )<br />             "name" <br />             Name<br />          )<br />          (setq Rtn (equal (vlxls-sheet-get-active xlapp) name))<br />       )<br />    )<br />    Rtn<br /> )

如果excel中已有sheet1页面  我新建sheet2页面 怎么控制sheet2处于sheet1后面呢  现在是默认在前面  查到相关资料是要添加  before或者after控制  但不知道该添加到哪个位置   烦请大神解答

Eltrion

显示应用于 Sheets 和 Worksheets 对象的 Add 方法。

新建工作表、图表或宏表。新建的工作表将成为活动工作表。

expression.Add(Before, After, Count, Type)

expression      必需。该表达式返回上面的对象之一。

Before      Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之前。

After      Variant 类型，可选。指定工作表对象，新建的工作表将置于此工作表之后。

Count      Variant 类型，可选。要新建的工作表的数目。默认值为 1。

Type      Variant 类型，可选。指定工作表类型。可为以下 XlSheetType 常量之一：xlWorksheet、xlChart、xlExcel4MacroSheet 或 xlExcel4IntlMacroSheet。如果要基于现有模板插入工作表，则请指定该模板的路径。默认值为 xlWorksheet。

说明
如果 Before 和 After 两者均省略，则新建的工作表将插入到活动工作表之前。


这是查到的相关资料  看的不是很懂  这个具体要怎么理解啊

Eltrion

有大神帮忙解答吗

bloodtempt

在前面就(vlax-get-property Xlapp "sheets" )
               "Add"
“sheet1”
nil
            )