（在线）　难？！　Excel问题　　，　会者不难　，　求助
数据导入到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();


　　　　　　　　　　　　　　　　　　　　谢谢　　


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