另存Excel时，为什么却只存了快捷方式？

Question

我生成一日报表，需按日期保存Excel文件，代码如下：
....    
FileName:='e:\rb\dat\'+formatDatetime('yy-mm-dd',date1.DateTime)+'.XLS';
Try
  ExcelApp.Saveas(Filename);
Except
  showmessage('.......');
end;
但另存的文件却是快捷方式，并没有按日期保存数据。请教各位大虾有何良策？

Answer 1

ExcelApp 的创建呢？
贴出来

Answer 2

ExcelApp:= CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open( 'e:\rb\RB.xls' );
....
FileName:='e:\rb\dat\'+formatDatetime('yy-mm-dd',date1.DateTime)+'.XLS';
Try
  ExcelApp.Saveas(Filename);
Except
  showmessage('.......');
end;

Answer 3

ExcelInput.Workbooks.Open(FileName,null,null,null,Null,null,null,
                        null,null,null,null,null,null,0);
不过我ExcelInput是TExcelApplication控件，不过应该差不多