刚才的帖有问题
我是新建文件时 如果存在就打开 不存在 就新 建 代码如下:
procedure TForm1.Button3Click(Sender: TObject);
var
ExcelID: Variant;
i:Integer;
begin
if SaveDialog1.Execute then
begin
ExcelID:=CreateOleObject('Excel.Application');
try
if FileExists(savedialog1.FileName ) then
begin
ExcelID.workbooks.open(savedialog1.FileName);
end
else
begin
ExcelID.SheetsInNewWorkbook :=10;
ExcelID.workbooks.Add;
end;
ExcelID.visible:=False;
for i:=1 to ExcelID.WorkSheets.count do
begin
ExcelID.WorkSheets[i].Name:='A'+inttostr(i);
end;
if FileExists(savedialog1.FileName ) then
ExcelID.save
else
ExcelID.save(savedialog1.FileName);
finally
ExcelID.quit;
end;
end;
end;
在新建时 如果文件不存在 总是出现另存为对话框 必须要保存才行 但这样就保存了两个文件了 如何新建时不打开另存对话框？ 如果打开一个存在的 则出现提示"当前位置发现存在名为'resume.xlw'的文件 是否替换? 要点是才行 这是怎么回事？如何不出现提示?
