經常會將資料庫中的資料轉出至Excel，因為資料量很大，完全轉好可能需要花費一段時間，
但使用者在等待轉出的時間中可能會去開啟另一個已存在的Excel，
這時就會出現Error訊息(OLE error 800A03EC.)，請問有方法可以避免嗎?
也就是說可以在Excel尚未轉出來的同時，去開啟另一個Excel嗎?

以下是一個簡單的轉Excel範例
uses comobj;
var FMsExcel,FWorkBook1,FWorkSheet1,FWorkSheet2: variant;
i:integer;
begin
FMsExcel := CreateOleObject('excel.application');
FWorkBook1:= FMsExcel.WorkBooks.Add;
FWorksheet1:= FWorkBook1.WorkSheets[1];
for i:=1 to 20 do
FWorksheet1.cells[i,1]:=inttostr(i);
FMSExcel.Application.visible := True;
end;

使用者在等待轉出的時間中可能會去開啟另一個已存在的Excel造成錯誤的解決方式
使用者按按鍵執行後, 出現一個以 showmodel 方式開啟的視窗, 顯示工作進度用.
這樣使用者就沒有機會在開啟其他視窗, 也就沒有機會造成錯誤.

大大，我也遇到相同的問題耶！
你說用showmodel 方式開啟的視窗，
可是這樣還是可以去開啟另外一個已經存在的excel檔案耶~~
是我不懂你的意思嗎？你可以講清楚一點嗎？

===================引 用 u86210779 文 章===================
使用者在等待轉出的時間中可能會去開啟另一個已存在的Excel造成錯誤的解決方式
使用者按按鍵執行後, 出現一個以 showmodel 方式開啟的視窗, 顯示工作進度用.
這樣使用者就沒有機會在開啟其他視窗, 也就沒有機會造成錯誤.

試試下列做法
fmHand:=TfmHand.Create(Self);
with fmHand do begin
Caption := '寫入檔案中, 請稍後';
Gauge2.MaxValue := 100;
Gauge2.MinValue := 1;
Gauge2.Progress := 1;
ShowModel; <-- 不是用 show
for i := 1 to 100 do begin
Gauge2.Progress := i;
//寫入 Excel
.
.
.
end;
free;
nil;
end;

===================引 用 文 章===================

大大，我也遇到相同的問題耶！
你說用showmodel 方式開啟的視窗，
可是這樣還是可以去開啟另外一個已經存在的excel檔案耶~~
是我不懂你的意思嗎？你可以講清楚一點嗎？