如何在ACCESS中通過VBA將EXCEL數(shù)據導入

fixed

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

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

請高手指點一下，謝謝

andymark

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

CurrentProject.Connection.Execute "update 要導入的表名 set  時間=date()"

fixed

謝謝樓上的，可是怎么選擇我要導入的列呢？以及哪列對應到表中的哪個字段？

andymark

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

fixed

這么簡單��？非常感謝樓上的！以后有問題再向你請教！

fixed

這么簡單啊？非常感謝樓上的！以后有問題再向你請教！

miracle-y

確實是高手 學習了

sinotrust

用這個命令有很很大的缺點呀，就是得提前指定路徑，請問大俠有什么辦法在執(zhí)行命令行先打開對話框，選中所要導進數(shù)數(shù)據的方法嗎？

lsq16220

:D

zjxuan

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

說得不錯.