如何從EXcel檔 導入資料庫? |
尚未結案
|
mathewzhao
中階會員 發表:121 回覆:164 積分:67 註冊:2003-04-04 發送簡訊給我 |
各位先進好! 由於我不會直接從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;
|
bookworm
中階會員 發表:63 回覆:161 積分:82 註冊:2002-08-03 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
用 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 |
mathewzhao
中階會員 發表:121 回覆:164 積分:67 註冊:2003-04-04 發送簡訊給我 |
|
TTS
初階會員 發表:72 回覆:66 積分:27 註冊:2003-05-06 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |