Excel文件导入的Access文件时版本的问题
Dim db As New ADODB.Connection
Dim sPath As String
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Text2.Text & ";Persist Security Info=False"
sPath = Text1.Text
Call db.Execute("INSERT into 成品交库 SELECT * From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
MsgBox "导出成功", vbOKOnly, "提示"
db.Close
Set db = Nothing
这段代码适用2003版本,请问2007版本的如何改
[解决办法]
安装一下Office文件格式转换器:FileFormatConverters.exe
[解决办法]
谢谢,我已解决了
db.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"