Excel对象如何添加工作表至最后

liuxianjunxi

求各路大神帮忙解决在此先感谢！
问题：Excel对象如何将工作表添加至最后。
以下是测试代码。

  

子程序名	返回值类型	公开	备 注
excelAddSh
参数名	类 型	参考	可空	数组	备 注
file	文本型

变量名	类 型	静态	数组	备 注
excel	对象
workbooks	对象			工作薄
sheets	对象			工作表
type	整数型
count	整数型

如果真 (excel.创建 (“Excel.Application”, ) ＝ 假)
返回 ()

excel.写属性 (“DisplayAlerts”, 假)  ' 屏蔽警告
excel.写属性 (“ScreenUpdating”, 假)  ' 停止屏幕刷新
workbooks ＝ excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Add”, )
sheets ＝ workbooks.读对象型属性 (“Sheets”, )
count ＝ sheets.读数值属性 (“Count”, )
sheets.对象型方法 (“Add”, )  ' 添加工作表
' 方法调用格式： 〈对象〉 对象．对象型方法 （"Add"，Before，After，Count，Type）
' 参数<1>的名称为“Before”，类型为“变体型”，可以被省略。
' 参数<2>的名称为“After”，类型为“变体型”，可以被省略。
' 参数<3>的名称为“Count”，类型为“变体型”，可以被省略。
' 参数<4>的名称为“Type”，类型为“变体型”，可以被省略。
' 问题：设置After参数无效。无法将工作表添加至最后
type ＝ 选择 (取文本右边 (file, 4) ＝ “.xls”, 56, 51)
workbooks.方法 (“SaveAs”, file, type)
workbooks.方法 (“Close”, )
workbooks.清除 ()
excel.写属性 (“ScreenUpdating”, 真)
excel.方法 (“Quit”, )
excel.清除 ()

.版本 2<br /> <br /> .子程序 excelAddSh<br /> .参数 file, 文本型<br /> .局部变量 excel, 对象<br /> .局部变量 workbooks, 对象, , , 工作薄<br /> .局部变量 sheets, 对象, , , 工作表<br /> .局部变量 type, 整数型<br /> .局部变量 count, 整数型<br /> <br /> <br /> .如果真 (excel.创建 (“Excel.Application”, ) ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> <br /> excel.写属性 (“DisplayAlerts”, 假)  ' 屏蔽警告<br /> excel.写属性 (“ScreenUpdating”, 假)  ' 停止屏幕刷新<br /> <br /> workbooks ＝ excel.读对象型属性 (“Workbooks”, ).对象型方法 (“Add”, )<br /> sheets ＝ workbooks.读对象型属性 (“Sheets”, )<br /> <br /> count ＝ sheets.读数值属性 (“Count”, )<br /> sheets.对象型方法 (“Add”, )  ' 添加工作表<br /> <br /> ' 方法调用格式： 〈对象〉 对象．对象型方法 （"Add"，Before，After，Count，Type）<br /> ' 参数<1>的名称为“Before”，类型为“变体型”，可以被省略。<br /> ' 参数<2>的名称为“After”，类型为“变体型”，可以被省略。<br /> ' 参数<3>的名称为“Count”，类型为“变体型”，可以被省略。<br /> ' 参数<4>的名称为“Type”，类型为“变体型”，可以被省略。<br /> <br /> ' 问题：设置After参数无效。无法将工作表添加至最后<br /> <br /> <br /> type ＝ 选择 (取文本右边 (file, 4) ＝ “.xls”, 56, 51)<br /> workbooks.方法 (“SaveAs”, file, type)<br /> <br /> workbooks.方法 (“Close”, )<br /> workbooks.清除 ()<br /> <br /> excel.写属性 (“ScreenUpdating”, 真)<br /> <br /> excel.方法 (“Quit”, )<br /> excel.清除 ()

lwlylg

请问这个问题解决了吗？我也正在找

1299847885

.版本 2

局部变体.赋值 (工作表集合.读对象型属性 (“item”, 1), )
生成工作表 ＝ Excel.读对象型属性 (“sheets”, ).对象型方法 (“copy”, ,局部变体 , )