Dim?conn
Set?conn?=?CreateObject("adodb.connection")
conn.ConnectionString?=?"Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=E:\Test.mdb"
conn.Open
conn.Execute?"insert?into?表名(A,B,C)?select?*?from?[Excel?8.0;DataBase="?&?ActiveWorkbook.FullName?&?"].[表1$]"
conn.Execute?"insert?into?表名(B,D,E)?select?*?from?[Excel?8.0;DataBase="?&?ActiveWorkbook.FullName?&?"].[表2$]"
conn.Execute?"insert?into?表名(A,D)?select?*?from?[Excel?8.0;DataBase="?&?ActiveWorkbook.FullName?&?"].[表3$]"
conn.Close
Set?conn?=?Nothing
End?Sub
以上代碼寫在excel中,
E:\Test.mdb為access數據庫完整路徑,“表名”為access目標表名
代碼執行3次sql命令將3個表導入