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"\test\TestDB.mdb"
conn.Open(connectionStrings)
sql:="Select*INTOtest4FROM[Excel8.0;HDR=Yes;IMEX=1;DATABASE=X:\AHK\CSV\test.xls].[Sheet1$];"
conn.execute(sql)
conn.Close
conn:=
return
conn:=ComObjCreate("ADODB.connection")
connectionStrings:="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="A_ScriptDir"\test\TestDB.mdb"
conn.Open(connectionStrings)
sql:="Select*INTOtest4FROM[Excel8.0;HDR=Yes;IMEX=1;DATABASE=X:\AHK\CSV\test.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;
原文地址：https://www.jb51.cc/vb/257150.html
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
