急急急，自动保存Excel的方法 ( 积分: 10 )

如何将一个已经存在的Excel文件修改后，将改后之后的Excel自动保存为新的文件？

我现在只实现，将修改这后的Excel自动保存为新的文件，但做的修改在新文件中并未保存起来，望各位改进！源码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
ExcelApp.WorkBooks.Open('c:/t1.xls');
ExcelApp.WorkBooks.Add;
ExcelApp.Workbooks.Item[1].Activate;

ExcelApp.ActiveSheet.Columns[2].ColumnWidth := 38;
ExcelApp.ActiveSheet.Columns[3].ColumnWidth := 18;
ExcelApp.ActiveSheet.Columns[4].ColumnWidth := 18;

ExcelApp.WorkBooks.Item[1].SaveAs('c:/t2.xls');
ExcelApp.DisplayAlerts := false;
ExcelApp.WorkBooks[1].saved := true;
ExcelApp.quit;
ExcelApp := unassigned;
end;
注意：
ExcelApp.ActiveSheet.Columns[3].ColumnWidth := 38;
ExcelApp.ActiveSheet.Columns[4].ColumnWidth := 38;
在t2.xls(新文件)中并没有实现！

不知道楼主什么意思，上面程序里明明写的是：
ExcelApp.ActiveSheet.Columns[3].ColumnWidth := 18;
ExcelApp.ActiveSheet.Columns[4].ColumnWidth := 18;
后面又要求实现：
ExcelApp.ActiveSheet.Columns[3].ColumnWidth := 38;
ExcelApp.ActiveSheet.Columns[4].ColumnWidth := 38;
这当然完成不了。