아래처럼...엑셀 파일로 저장을 하고 엑셀로 화일을 열을려고 하면 열리지 않는 이유를 아시는분 알려주세요..

프로그램을 종료를 하고 열면 열리는데 프로그램이 실행상태에서는 열리지가 않네요.

아시는분 꼭좀 알려주세요





{

for i := 0 to Table1.RecordCount - 1 do begin

for j := 0 to Table1.FieldCount - 1 do begin

Sheet.Cells[i + 1, j + 1] := Table1.Fields[j].AsString;

end;

table1.Next;

Inc(CurLine);

Inc(Cnt);

ProgressBar1.Position := (Cnt * 100) div DBGrid1.DataSource.DataSet.RecordCount;

end;

XLApp.ActiveWorkBook.SaveAs('c:worktest.xls');



if not VarIsEmpty(XLApp) then begin

XLApp.DisplayAlerts := false;

XLApp.Quit;

end;

}

......꼭...