Sub使用Excel的VBA將數據寫入Access（）。
定義ADODB連接以訪問數據庫。
暗淡Cnn作為新的ADODB。關系
Dim Rs As New ADODB。記錄集
將字符串標註為字符串
數據庫文件名。
StrFileName = InputBox（“請輸入文件路徑和文件名:“、“Excel將數據傳輸到Access“、“E: \ Excel test \ staff.mdb“）。
連接字符串，我這裏有Access2010，提供者參數為:provider = Microsoft。ace . oledb . 12.0；
如果無法使用此參數，請根據您自己的計算機修改此字符串。
至於連接到的數據庫名稱，根據自己的計算機進行修改，或者通過對話框或其他方式將該值傳遞到程序中。
strCon =“provider = Microsoft . jet . oledb . 4.0；”_
& amp“數據來源=“& amp；str文件名和名稱。";"
Cnn。打開strCon
盧比ActiveConnection = Cnn
盧比LockType = adLockOptimistic
盧比打開“Employee”，假設表是Employee。
在Excel表中定義要寫入Access的數據區域。
將Sht作為工作表變暗
Dim Rn壹樣長
Dim Cn壹樣長
設置Sht = ThisWorkbook。紙張（“紙張1”）
假設Sheet1表的第2-6行的第1、2和3列被寫入訪問表。
對於Rn = 2到6
盧比添加新內容
Rs！Num = sht。cells（rn，1）‘num，name，department是數據庫中指定表格的字段。
Rs！名字= Sht。細胞（Rn，2）
Rs！部門= Sht。細胞（Rn，3）
盧比更新
下壹個Rn
MsgBox“完成！”
盧比關閉
Cnn。關閉
設置Rs =無
設置Cnn =無
設置Sht =無
末端接頭
方法2:在access VBA編輯器中編寫代碼。
Sub ExcelToAccess（）
DoCmd。TransferSpreadsheet acImport，“Staff“，“E:\ExcelTest\Employee.xls“，True，“Sheet1！“DoCmd。TransferSpreadsheet是access編輯器中的壹個功能。
末端接頭