（在线）　难？　Excel有关问题　　，　会者不难　，

（在线）　难？！　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;