您的位置:首页 > 编程语言 > VB

excel VBA 更新 access

2013-05-03 11:36 239 查看
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: