从Excel导入到ADO访问时出错

时间:2018-10-05 12:47:05

标签: excel ms-access ado

我正在尝试使用vba将数据从excel文件导出到访问文件。

我的代码是

Sub Export_Data()
Dim cnn As ADODB.Connection 'dim the ADO collection class
Dim rst As ADODB.Recordset 'dim the ADO recordset class
Dim dbPath
Dim x As Long, i As Long
Dim nextrow As Long

'add error handling
On Error GoTo errHandler:

'Variables for file path and last row of data
dbPath = Sheet19.Range("I3").Value
nextrow = Cells(Rows.Count, 1).End(xlUp).Row

'Initialise the collection class variable
Set cnn = New ADODB.Connection

'Check for data
If Sheet18.Range("A2").Value = "" Then
MsgBox " Add the data that you want to send to MS Access"
Exit Sub
End If

'Connection class is equipped with a —method— named Open
'—-4 aguments—- ConnectionString, UserID, Password, Options
'ConnectionString formula—-Key1=Value1;Key2=Value2;Key_n=Value_n;
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath
'two primary providers used in ADO SQLOLEDB —-Microsoft.JET.OLEDB.4.0 —-Microsoft.ACE.OLEDB.12.0
'OLE stands for Object Linking and Embedding, Database

'ADO library is equipped with a class named Recordset
Set rst = New ADODB.Recordset 'assign memory to the recordset

'ConnectionString Open '—-5 aguments—-
'Source, ActiveConnection, CursorType, LockType, Options
rst.Open Source:="ARF Form Log", ActiveConnection:=cnn, _
CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
Options:=adCmdTable

'you now have the recordset object
'add the values to it
For x = 2 To nextrow
rst.AddNew
For i = 1 To 29
rst(Cells(1, i).Value) = Cells(x, i).Value
Next i
rst.Update
Next x

'close the recordset
rst.Close
' Close the connection
cnn.Close
'clear memory
Set rst = Nothing
Set cnn = Nothing

'communicate with the user
MsgBox " The data has been successfully sent to the access database"

'Update the sheet
Application.ScreenUpdating = True

'show the next ID
Sheet19.Range("h7").Value = Sheet19.Range("h8").Value + 1

'Clear the data
Sheet18.Range("A2:ac1000").ClearContents
On Error GoTo 0
Exit Sub
errHandler:

'clear memory
Set rst = Nothing
Set cnn = Nothing
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Export_Data"
End Sub}

位置:

第19页包含我访问文件的路径

第18页包含我要传输的数据

当我尝试将数据从工作表18传输到访问表时,我收到错误消息:

过程Export_Data中的错误-2147217900(From子句中的语法错误。)

我检查了访问文件和excel文件的标题是否匹配,并且数据类型格式是否相同。

我不确定哪里有问题。

让我知道您的想法,感谢您的关注!

1 个答案:

答案 0 :(得分:0)

adCmdOpenTable仍要求您的表名括在方括号中。本质上,它只是在源的开头附加SELECT * FROM,然后尝试执行它。由于您的表名包含空格,因此会导致From子句中出现语法错误。

要么添加括号,要么使用普通查询:

rst.Open Source:="SELECT * FROM [ARF Form Log]", ActiveConnection:=cnn, _
CursorType:=adOpenDynamic, LockType:=adLockOptimistic