Question

我已经制作了一个代码，用于将数据从excel发送到访问，因为它是我办公室里的重复性任务。我不知道VBA，我已经从互联网上复制了这个代码，并且根据需要进行了修改。但是，它抛出运行时错误13类型错误匹配错误。我对此错误感到非常沮丧，请看看你们是否可以提供帮助。提前致谢。代码如下：

Private Sub CommandButton1_Click()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection

'set up connection string
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\anurag85678\Desktop\Tracker\Database2.accdb;Persist Security Info=False;"

'connect to database
cn.Open

Set rs = New ADODB.Recordset

rs.Open "Test", cn, adOpenKeyset, adLockOptimistic, adCmdTable

With rs
.AddNew
.Fields("ID") = Sheets("Sheet1").Range("A1")
.Fields("Name") = Sheets("Sheet1").Range("B1")
.Fields("Process_Name") = Sheets("Sheet1").Range("C1")
.Fields("Companies_Done") = Sheets("Sheet1").Range("D1")

.Update
End With

' Close the recordset and connection
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

最诚挚的问候，阿努拉格

在ADODB.Connection代码中键入Mismatch错误

0 个答案: