如何另存時直接覆蓋!!! |
答題得分者是:tonytop
|
TTS
初階會員 發表:72 回覆:66 積分:27 註冊:2003-05-06 發送簡訊給我 |
var
tempex, tempwb: Variant;
begin
tempex:= CreateOleObject('Excel.Application');
tempex.Visible:= True;
tempwb:= tempex.WorkBooks.Open(OrigName);
tempwb.SaveAs(FileName:= tempName AOldName, FileFormat:= xlText)
tempwb.Saved:= True;
tempex.Quit;
...
end; 以上的方式為將Excel檔另存為txt
但是因為如遇到相同檔名時Excel在關閉前就會先詢問是否覆蓋原檔案!!! 想請問...
有何方式可以完全背後執行 不開啟Excel就直接另存 且覆蓋原檔案???
|
tonytop
中階會員 發表:6 回覆:114 積分:89 註冊:2003-12-04 發送簡訊給我 |
提供較快速的解決方案:
var tempex, tempwb: Variant; begin tempex := CreateOleObject('Excel.Application'); //tempex.Visible := True;這行不加就能在背景執行,或設為False tempwb := tempex.WorkBooks.Open(OrigName); if FileExists(tempName AOldName) then //若檔案已存在 DeleteFile(tempName AOldName)//刪掉原來的檔案, //另存時就不會詢問是否覆蓋原檔案啦 tempwb.SaveAs(FileName := tempName AOldName, FileFormat := xlText) tempwb.Saved := True; tempex.Quit; ... end;忙盲茫 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |