VB把excel数据导入ACCESS

Dim SQL As String

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection

Dim Constr As String

Constr = "PROVIDER = Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\db.mdb"

conn.Open Constr

SQL = "select *  into t2 from  [excel 8.0;database=c:\book1.xls].[sheet1$]"

conn.Execute SQL

conn.Close

Set conn = Nothing

posted @ 2011-02-21 18:32  翱翔软件  阅读(1670)  评论(0编辑  收藏  举报

欢迎访问翱翔软件