VB把excel数据导入ACCESS

发布时间：2020-12-17 07:41:43 所属栏目：百科来源：网络整理

导读：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:

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

http://www.cnblogs.com/wsoft/articles/1960028.html

xls文件到mdb,用AutoHotkey实现如下：
conn:=ComObjCreate("ADODB.connection")
connectionStrings:="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="A_ScriptDir"testTestDB.mdb"
conn.Open(connectionStrings)
Sql:="Select*INTOtest4FROM[Excel8.0;HDR=Yes;IMEX=1;DATABASE=X:AHKCSVtest.xls].[Sheet1$];"
conn.execute(Sql)
conn.Close
conn:=
return

建议用

Microsoft.ACE.OLEDB.12.0 代替Microsoft.Jet.OLEDB.4.0

用Excel 12.0 Xml; 代替Excel8.0;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!