连接Excel和Access之间的string

此子文件在Access中运行以从Excel文件导入数据，“FileName”

此连接string/打开过程几乎从MSDN引用复制，但是有一个错误。

当我通过时，我收到oConn.Open行上的“无法识别的数据库格式”。

文件名是电子表格，而不是数据库。 我如何表明这一点？

Public Sub Import2(FileName As Variant) Dim wb As Object, ws As Object Dim xl As Object Set xl = CreateObject("excel.Application") Dim qs As String Dim ValueString As String Dim sConn As String Dim oConn As Object Set oConn = CreateObject("adodb.connection") oConn.ConnectionString = "Provider=microsoft.ACE.OLEDB.12.0; Data Source=filename; Extended Properties=Excel 12.0 XML; hdr=yes" & ";" oConn.Open FileName Set wb = xl.Workbooks.Open(FileName) Set ws = wb.worksheets("For Export") data1 = ws.cells(2, 1) Data2 = ws.cells(2, 2) Data3 = ws.cells(2, 3) 'Following lines may or may not be correct. Working on the connection string 'ValueString = Format(data1, "yyyy\/mm\/dd") 'qs = "INSERT INTO MAF (FormDate) VALUES (#" & ValueString & "#)" DoCmd.RunSQL (qs) 'CurrentDb.Execute qs End Sub 

Answer 1

用Data Source=c:\test\db1.mdb类的东西改变Data Source=filename与你的文件的path