问题分析:xlWorkSheet.Move After:= xlWorksheets(1)
:=这样的语法在Lotuscript中是不合理的。
这句代码中After表示Excel的工作表对象,我们可以使用Add方法来实现Move同样的功能。查看Sheets.Add(Before,After,Count,Type)的用法.
在文件操作中已经讲了Excel工作簿文件的打开,新建,保存和关闭了,这里再讲文件下的表格操作.1)新建与删除新建工作表,图表或宏表.新建的工作表将成为活动工作表.Sheets.Add(Before,After,Count,Type)说明:
BeforeVariant类型,可选.指定工作表对象,新建的工作表将置于此工作表之前.
AfterVariant类型,可选.指定工作表对象,新建的工作表将置于此工作表之后.
CountVariant类型,可选.要新建的工作表的数目.默认值为1.
TypeVariant类型,可选.指定工作表类型.可为以下XlSheetType常量之一:xlWorksheet,xlChart,xlExcel4MacroSheet或xlExcel4IntlMacroSheet.默认值为xlWorksheet.如果Before和After两者均省略,则新建的工作表将插入到活动工作表之前.示例:Sheets.Addafter:=Sheets(Sheets.Count)该语句可以在最后一个工作表后增加一个新表
例:插入一个工作表到第二个工作表之后
Dim After As Variant
Set After = xlApp.Worksheets(2)
Set xlWorkSheet = xlApp.Worksheets.Add(Null,After)
xlWorkSheet.Name = "New test"