各位先進好！ 由於我不會直接從EXcel檔導入資料庫，因此我想將Excel檔另存為Text 檔後，再導入，但不知為何在Excel另存為Text 檔時，出現錯誤訊息："Can't open file 'XXX' "， Code 如下： ‧‧‧‧ EXcelApp：variant； ‧‧‧‧ if opendialog1‧Execute then begin //下面這部分不知為何沒有Execute if ExtractFileExt（Opendialog1‧fileName） ='XLS' then begin ExcelApp：=CreateOleObject（'Excel‧Application'）； ExcelAPP‧SaveAs（ExtractFilename（Opendialog1‧fileName） '‧TXT'）； end； end； //上面這部分不知為何沒有Execute opendialog1‧InitialDir：=extractFilePath（application‧exename）； memo1‧Lines‧Loadfromfile（Opendialog1‧fileName）； end；

如果只是要將excel導入access，印象中不是複製貼上就行了嗎？ 不然用Datadump好像也行。印象中~~~~有錯請指正 －－－ 從問中學 ^^

用 CompareText Function 讓大小寫不分

if CompareText(ExtractFileExt（Opendialog1‧fileName）,'XLS')=0 then 
begin 
  ExcelApp：=CreateOleObject（'Excel‧Application'）； 
  ExcelAPP‧SaveAs（ExtractFilename（Opendialog1‧fileName） '‧TXT'）； 
end； 

1. 如果導入之數據庫是 MSSQL 可用 "匯入匯出資料" 工具軟體. 2. Delphi DataPump (透過 ODBC BDE) 也是不錯的選擇. 發表人 - Mickey 於 2003/06/10 20:37:51

感谢前辈Mickey的指点！ 晚辈刚准备到教室上自习去，想再看看这个问题是否还有回应，没想到有此意外之喜。 每天都有这种不期而遇的快乐多好喔！ 我明天用CompareText function试一下，谢谢！ 至于前辈说的方法1，2，因为用这个程式的同学对这些(delphi,SQL Server)都不熟悉,所以只好... 再次感谢前辈Mickey的指点！

小弟是用Delphi 3 , Run到最後一句時會有此錯誤耶!!!