一句查詢代碼實(shí)現(xiàn)Excel數(shù)據(jù)導(dǎo)入導(dǎo)出

紅塵如煙

導(dǎo)入數(shù)據(jù)（導(dǎo)入數(shù)據(jù)時(shí)第一行必須是字段名）：

1. DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\測(cè)試數(shù)據(jù).xls].[Sheet1$]"
   
2. DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\測(cè)試數(shù)據(jù).xls'[EXCEL 8.0;]"
   
3. DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\測(cè)試數(shù)據(jù).xls' 'EXCEL 8.0;'"
   

復(fù)制代碼

導(dǎo)出數(shù)據(jù)：

1. DoCmd.RunSQL "SELECT * INTO [Excel 8.0;DATABASE=E:\桌面\測(cè)試數(shù)據(jù).xls].[Sheet1] FROM 表名"
   
2. DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\測(cè)試數(shù)據(jù).xls'[EXCEL 8.0;] FROM 表名"
   
3. DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\測(cè)試數(shù)據(jù).xls' 'EXCEL 8.0;' FROM 表名"
   

復(fù)制代碼

要點(diǎn)：導(dǎo)入時(shí)工作表名稱后面要加$（如Sheet1$），而導(dǎo)出時(shí)卻不能加（如Sheet1），另外示例代碼中的Sheet1可以是其它名稱（如“測(cè)試數(shù)據(jù)”）。
最初的寫法： [Excel 8.0;DATABASE=E:\桌面\測(cè)試數(shù)據(jù).xls].Sheet1   這個(gè)是參考幫助文檔寫的，經(jīng)過(guò)仔細(xì)測(cè)試驗(yàn)證，的確存在問(wèn)題，所以建議大家不要再用了，看樣子幫助中的東西也不能全信，問(wèn)題不少

在此感謝網(wǎng)友“瘋狂的石頭”的提醒！

ui

很詳細(xì)的解釋,學(xué)到一招,謝謝

xinbao

謝謝分享! 不錯(cuò)的技巧

yangjj

很好的技巧！

wenjun4

謝謝分享! 不錯(cuò)的技巧

yangjj

試試看,正在做這方面的程序!希望能好用,如何判斷文件是EXCEL2003的呢?如果不是2003,應(yīng)該要提示啊!

todaynew

導(dǎo)入數(shù)據(jù)（導(dǎo)入數(shù)據(jù)時(shí)第一行必須是字段名）：
DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Excel 8.0; ...
紅塵如煙 發(fā)表于 2010-10-13 11:58

這個(gè)問(wèn)題我想要解決的時(shí)間超過(guò)了兩年，沒(méi)想到核心在于一個(gè)$號(hào)上。
可以把這個(gè)問(wèn)題簡(jiǎn)化為條件查詢：
SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\測(cè)試數(shù)據(jù).xls].[Sheet1$]"
然后由這個(gè)查詢?cè)倏煽紤]追加、更新、數(shù)據(jù)集、域函數(shù)等等方面的運(yùn)用。

yuly

這個(gè)實(shí)用三，，簡(jiǎn)便

yuly

ACCESS 2010 不行呀！�。∮袃煞N情況，一中說(shuō)EXCEL中存在這個(gè)表，二是表不存在，但結(jié)果就是不允許導(dǎo)出到EXCEL中

yuly

ACCESS 2010 不行呀�。�！有兩種情況，一中說(shuō)EXCEL中存在這個(gè)表，二是表不存在，但結(jié)果就是不允許導(dǎo)出到EXCEL中