各位大大: 我使用這段程式打開帶密碼的Excel文檔時,程式總是使用Excel程式打開后,出現提示框,讓我輸入密碼. var Excelid,MyWorkbook: Variant; begin Excelid:=CreateOleObject('Excel.Application'); MyWorkbook :=Excelid.workbooks.open(label4.Caption); . . . 哪位前輩能改善一下,能否以指定的密碼訪問,不需要出現提示框. 先謝過了!

Hi nsf20000,    請參考 http://www.scalabium.com/faq/dct0153.htm

procedure TForm1.Button8Click(Sender: TObject);
var
  ex, ws: Variant;
  SrcFile,TgtFile : String;
begin
  SrcFile := 'C:\Temp\Result.xls';
  ex := CreateOleObject('Excel.Application');
  ws := ex.WorkBooks.Open(SrcFile,Password := '1111',WriteResPassword := '2222');      .....
  ex.ActiveWorkBook.Close;
  ex.quit;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Sorry !! Duplicate !! 發表人 - Fishman 於 2005/04/06 10:43:08

------
Fishman