我在Excel中有一些数据需要更新到MS访问中的链接表。链接表连接到sharepoint站点。到目前为止我的代码只适用于常规表。在这种情况下,rs.Open返回未指定的错误。
Sub Button1_Click()
On Error GoTo ExceptionHandle
Dim cn As ADODB.Connection, rs As ADODB.Recordset
' connect to the Access database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=D:\.....\db1.mdb;"
' open a recordset
Set rs = New ADODB.Recordset
'ERROR
rs.Open "LinkedTableName", cn, adOpenKeyset, adLockOptimistic, adCmdTable
Range("B2").Activate ' row 1 contains column headings
Do While Not IsEmpty(ActiveCell)
s_title = ActiveCell.Offset.Value
s_start_time = ActiveCell.Offset(0, 1).Value
s_end_time = ActiveCell.Offset(0, 2).Value
rs.Filter = "Title ='" & s_title & "'"
If rs.EOF Then
Debug.Print "No existing record - adding new..."
rs.Filter = ""
rs.AddNew
Else
Debug.Print "Existing record found..."
End If
rs("Title").Value = s_title
rs("Start Time").Value = s_start_time
rs("End Time").Value = s_end_time
rs.Update
Debug.Print "...record update complete."
ActiveCell.Offset(1, 0).Activate ' next cell down
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
ExitProcedure:
MsgBox "Update success"
Exit Sub
ExceptionHandle:
MsgBox "Error:" & Err.Number & ": " & Err.Description
Exit Sub
End Sub