excel分发数据-Excel利用ADO录入数据

Excel电子表格，能很方便地录入数据。但是如果我们不想让用户直接在工作表上录入数据，而是通过一个另一个窗体或者其他界面录入呢？

那么我们可以通过ADO（ActiveX Data Objects，以实现访问关系或非关系数据库中的数据）来录入数据

如图所示，在Excel工作表中把数据添加到“Website.mdb"数据库中的一个表中。

详细VBA代码：

Sub ADO录入数据到Access()

    Dim cnn As Object

    Dim rst As Object

    Set cnn = CreateObject("ADODB.Connection")

    Set rst = CreateObject("ADODB.recordset")

    Dim sql As String

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & "F:Website.mdb"

'    sql = "insert into news (vtime,week,lunar,weather,title,content) VALUES ('" & [D3].Value & "','" & [D5].Value & "','" & [D7].Value & "','" & [D9].Value & "','" & [D11].Value & "','" & [D13].Value & "')"

    sql = "insert into news (vtime,week,lunar,weather,title,content) VALUES ('" & [D3].Value & "','" & [D5].Value & "','" & [D7].Value & "','" & [D9].Value & "','" & [D11].Value & "','" & [D13].Value & "')"

'    文本用'...',日期用#...#()

    cnn.Execute sql

    cnn.Close

    Set cnn = Nothing

End Sub

注：如果是新版的Access，连接字符串需要改为：cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "F:Website.accdb" 

摘自：小智雅汇(头条号)