Tquery轉至excel後存檔的問題 |
|
尚未結案
|
|
sera
一般會員   發表：10 回覆：19 積分：5 註冊：2003-06-02 發送簡訊給我 |
我用ExcelApplication和SaveDialog來儲存excel的檔案，但會發生以下問題：
1.若SaveDialog按取消，又會出現“sheet**己被修改過，您是否要儲存檔案的對話窗”
2.若SaveDialog儲存重覆檔名,在出現是否要取代的對話窗時,若選擇【否】，會出現saveas失敗而程式中斷。
程式碼如下，想請各位高手幫我看看是哪裏錯了！ procedure Tquery_f.BitBtn9Click(Sender: TObject);
var
i,j,k:integer;
asheet:variant;
begin
ExcelApplication1.Workbooks.Add(xlwbatworksheet,0);
asheet:=ExcelApplication1.worksheets.item[1];
i:=1;
j:=1;
k:=0;
dm1.q4.First;
while not dm1.q4.Eof do
begin
j:=1;
for k:=0 to (dm1.q4.FieldCount-1) do
begin
asheet.cells[i,j].value:=dm1.q4.Fields[k].asstring;
j:=j 1;
end;
dm1.q4.Next;
i:=i 1;
end;
if SaveDialog1.Execute then
begin
if SaveDialog1.FileName<>'' then
begin
asheet.saveas(SaveDialog1.FileName)
end;
end;
asheet.application.quit;
ExcelApplication1.Quit;
end;
|
|
pgdennis
資深會員  發表：41 回覆：526 積分：443 註冊：2002-05-23 發送簡訊給我 |
引言: 我用ExcelApplication和SaveDialog來儲存excel的檔案，但會發生以下問題： 1.若SaveDialog按取消，又會出現“sheet**己被修改過，您是否要儲存檔案的對話窗” 2.若SaveDialog儲存重覆檔名,在出現是否要取代的對話窗時,若選擇【否】，會出現saveas失敗而程式中斷。 程式碼如下，想請各位高手幫我看看是哪裏錯了！ procedure Tquery_f.BitBtn9Click(Sender: TObject); var i,j,k:integer; asheet:variant; begin ExcelApplication1.Workbooks.Add(xlwbatworksheet,0); asheet:=ExcelApplication1.worksheets.item[1]; i:=1; j:=1; k:=0; dm1.q4.First; while not dm1.q4.Eof do begin j:=1; for k:=0 to (dm1.q4.FieldCount-1) do begin asheet.cells[i,j].value:=dm1.q4.Fields[k].asstring; j:=j 1; end; dm1.q4.Next; i:=i 1; end; if SaveDialog1.Execute then begin if SaveDialog1.FileName<>'' then begin asheet.saveas(SaveDialog1.FileName) end; end; asheet.application.quit; ExcelApplication1.Quit; end;1.加入ExcelApplication1.DisplayAlerts[0] := False ;..設定不存檔離開 因為你執行quit時,如果沒存檔,它會問你要不要存檔.... 2. 改成 if SaveDialog1.FileName<>'' then begin deletefile(SaveDialog1.FileName); asheet.saveas(SaveDialog1.FileName) end; 錯誤我也不知為何會這樣,不過可以用另外的方法避免,先將要存檔的檔案刪除就行了...
------
星期一,二...無窮迴圈＠＠ |
發表時間：2003-06-02 15:21:16
IP:211.72.xxx.xxx 未訂閱
系統時間：2024-05-20 17:51:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |