當前位置:成語大全網 - 新華字典 - 請問EXCEL如何用VBA將同壹工作簿內的多個工作表的內容導入至ACCESS的壹個表中

請問EXCEL如何用VBA將同壹工作簿內的多個工作表的內容導入至ACCESS的壹個表中

Sub?ttt()

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個表導入