三種VBA:

方法一：在eccelVBA編輯器編寫(xiě)代碼indesign表格，使用FOR循環(huán)導(dǎo)入：

Sub利用Excel的VBA將數(shù)據(jù)寫(xiě)入Access()

'定義ADODB連接Access數(shù)據(jù)庫(kù)

DimCnnAsNewADODB.Connection

DimRsAsNewADODB.Recordset

DimstrConAsString

DimstrFileNameAsString'數(shù)據(jù)庫(kù)文件名

strFileName=InputBox("請(qǐng)輸入文件路徑及文件名：","Excel傳遞數(shù)據(jù)至Access","E:\ExcelTest\Staff.mdb")

'連接字符串indesign表格，我這里是Access2010,所提供者參數(shù)為：Provider=Microsoft.ACE.OLEDB.12.0;

'如果此參數(shù)不能使用indesign表格，根據(jù)自己的電腦修改這個(gè)字符串

'至于連接至的數(shù)據(jù)庫(kù)名indesign表格，根據(jù)自己的電腦修改，或用一個(gè)對(duì)話(huà)框或其他方式將此值傳遞進(jìn)程序

strCon="provider=Microsoft.jet.OLEDB.4.0;"_

&"DataSource="&strFileName&";"

Cnn.OpenstrCon

Rs.ActiveConnection=Cnn

Rs.LockType=adLockOptimistic

Rs.Open"Employee"'假設(shè)表為Employee

'定義Excel表中的數(shù)據(jù)區(qū)域以寫(xiě)入Access

DimShtAsWorksheet

DimRnAsLong

DimCnAsLong

SetSht=ThisWorkbook.Sheets("Sheet1")

'假設(shè)將Sheet1表的2-6行的1、2、3列寫(xiě)入Access表

ForRn=2To6

Rs.AddNew

Rs!num=Sht.Cells(Rn,1)’num,name,department是數(shù)據(jù)庫(kù)中指定表的字段

Rs!Name=Sht.Cells(Rn,2)

Rs!department=Sht.Cells(Rn,3)

Rs.Update

NextRn

MsgBox"完成!"

Rs.Close

Cnn.Close

SetRs=Nothing

SetCnn=Nothing

SetSht=Nothing

Endsub