各位先進好, 小弟在拜讀先前關於excel的文章中受益不少,在此先謝過! 現遇下列問題: 1.用CreateOleObject後調用現有的sheet,但此sheet中有引用增益集&巨集,因此程式在執行時都會跳出"要不要開啟增益集"&"此檔案有連結,要重新連結嗎"等詢問窗口,請問程式要怎麼"自動"去點擊"YES"勒? 2.另外如有修改,下Excel.ActiveWorkbook.Save指令時會跳出"檔案已存在,是否覆蓋",請問這個也能自動點擊"YES"嗎? 請協助,謝謝.

Hi, 請直接設定 Application (excel的, 不是 delphi的) 的 DisplayAlerts 為 false 即可. 如,    

var
  ex, wb: Variant;
begin
  ex := CreateOleObject('Excel.Application');
  ex.DisplayAlerts := false;
  wb := ex.WorkBooks.Open('c:\sample.xls');
  ex.Visible := true;
  wb.ActiveSheet.Cells[1,1] := '123';
  wb.SaveAs(FileName:='c:\book1.xls');
  ex.Quit;
end;

如此一來提示訊息都會都依照原預設的動作而不再提示使用者. 可利用 DisplayAlerts 來查尋相關用法!