如何在ACCESS中通過(guò)VBA將EXCEL數(shù)據(jù)導(dǎo)入

fixed

在ACCESS中，如何用VBA將EXCEL表中的某幾列導(dǎo)入到ACCESS表中的某幾個(gè)字段時(shí)去呢？希望有高手能給與一下代碼
例如將下面的EXCEL表中的“代碼”、“名稱”、“金額”三列導(dǎo)到入ACCESS表中對(duì)應(yīng)的“代碼”、“名稱”、“金額”三個(gè)字段中，同時(shí)在“時(shí)間”字段中寫入系統(tǒng)當(dāng)天的日期。

代碼	名稱	數(shù)量	金額
A001	A001	10	1000
A002	A002	100	5000
A003	A003	200	8000

請(qǐng)高手指點(diǎn)一下，謝謝

andymark

DoCmd.TransferSpreadsheet acImport, , "要導(dǎo)入的表名", CurrentProject.Path & "\EXCEL名稱.xls", True

CurrentProject.Connection.Execute "update 要導(dǎo)入的表名 set  時(shí)間=date()"

fixed

謝謝樓上的，可是怎么選擇我要導(dǎo)入的列呢？以及哪列對(duì)應(yīng)到表中的哪個(gè)字段？

andymark

你在EXCEL把表頭設(shè)置為表的字段名稱一樣就OK了

fixed

這么簡(jiǎn)單�。糠浅８兄x樓上的！以后有問(wèn)題再向你請(qǐng)教！

fixed

這么簡(jiǎn)單��？非常感謝樓上的！以后有問(wèn)題再向你請(qǐng)教！

miracle-y

確實(shí)是高手 學(xué)習(xí)了

sinotrust

用這個(gè)命令有很很大的缺點(diǎn)呀，就是得提前指定路徑，請(qǐng)問(wèn)大俠有什么辦法在執(zhí)行命令行先打開(kāi)對(duì)話框，選中所要導(dǎo)進(jìn)數(shù)數(shù)據(jù)的方法嗎？

lsq16220

:D

zjxuan

sinotrust 發(fā)表于 2011-1-8 20:16
用這個(gè)命令有很很大的缺點(diǎn)呀，就是得提前指定路徑，請(qǐng)問(wèn)大俠有什么辦法在執(zhí)行命令行先打開(kāi)對(duì)話框，選中所要 ...

說(shuō)得不錯(cuò).