線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:4474
推到 Plurk!
推到 Facebook!

Excel 匯入的問題

缺席
showingg
一般會員


發表:5
回覆:1
積分:1
註冊:2007-04-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-05-30 18:02:15 IP:59.125.xxx.xxx 訂閱
請教,我用下列的方式匯入execl資料

MsExcel:=CreateOleObject('Excel.Application');
MsExcelWorkBook:=MsExcel.WorkBooks.Open('' TxtName '');
aSheet:=MsExcel.WorkSheets[1];

ADO.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; '
'Data Source='excel 檔案';'
'Extended Properties=IMEX=1;Excel 8.0; '
'Persist Security Info=False';
ADO.SQL.CLEAR;
ADO.SQL.ADD('SELECT A.* FROM [' aSheet.name '$] A order by 1 ');
ADO.ACTIVE:=TRUE;

aSheet.Application.Quit;
MsExcel.WorkBooks.close;
MsExcel.Quit;


可是在連續匯入二次同一個檔案會出現下列的訊息

' 用於檢視連結 microsoft Execl 工作表的連接已經消失'

請問如何解決??
感恩啦
star
初階會員


發表:37
回覆:93
積分:36
註冊:2002-07-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-06-04 14:19:36 IP:211.72.xxx.xxx 訂閱

Hello,
試試看, 不用 MsExcel.Quit
ko
資深會員


發表:28
回覆:785
積分:444
註冊:2002-08-14

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-06-05 18:15:19 IP:61.30.xxx.xxx 訂閱
ADO也要關閉喔
------
======================
昏睡~
不昏睡~
不由昏睡~
系統時間:2024-07-01 9:58:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!