（在线） 难？！ Excel问题 ， 会者不难 ， 求助

Question

数据导入到Excel 由于　数据量大　，一个sheet 存放５００００条记录
根据记录数量自动添加　sheet　，但添加的sheet4 位置出现在　sheet1前面　
手工移动　sheet　，宏记录为：Sheets("Sheet４").Move After:=Sheets(３) 
delphi 中如何　处理　，　请教各位　    ExcelApp:=CreateOleObject('Excel.application');
    WorkBook:=CreateOleobject('Excel.Sheet');
    ExcelApp.visible:=false;
    WorkBook:=ExcelApp.WorkBooks.Add;
　　WorkBook.worksheets.add();
　　　　　　　　　　　　　　　　　　　　谢谢　　

Answer 1

var
Worksheet: OleVariant;
begin
.....
Worksheet:=WorkBook.worksheets.Add;
Worksheet.Move(Workbook.Sheets[3], Workbook.Sheets[4]);
.....
end;

Answer 2

To : 失踪的月亮
   　这个方法前面有试过　提示： Worksheet无效的方法

Answer 3

ExcelApp.WorkSheets.Add(null,ExcelApp.WorkSheets[3]);