1.添加引用 Microsoft ActiveX Data Objects 2.X Library
2. vba代码
Sub update_access()
Dim path As String
path = ""
Dim cnn As ADODB.Connection
'Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open path
For i = 2 To 20
cnn.Execute (Sheet1.Cells(i, 1))
Next
cnn.Close
End Sub