利用ADO在Excel中添加數(shù)據(jù)

Excel是電子表格，我們可以直接在里面插入數(shù)據(jù)。

直接能修改，有時(shí)容易對(duì)表格數(shù)據(jù)直接修改而導(dǎo)致錯(cuò)誤

所以這里我們利用vba代碼ADO來(lái)添加數(shù)據(jù)。

Sub ADOaddnew()

    Dim Cn, Rs, arr, i As Integer

    Dim PathStr As String, SQL As String

    Set Cn = CreateObject("ADODB.Connection")       '創(chuàng)建數(shù)據(jù)連接對(duì)象

    Set Rs = CreateObject("ADODB.Recordset")        '創(chuàng)建記錄集對(duì)象

    PathStr = ThisWorkbook.FullName

    Select Case Application.Version * 1    '設(shè)置連接字符串,根據(jù)版本創(chuàng)建連接

    Case Is <= 11

        strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr

    Case Is >= 12

        strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""

    End Select

    SQL = "Select * From [Sheet10$]"

    Cn.Open strConn

    With Rs

        .Open SQL, Cn, 1, 3    '

        .AddNew     '添加一個(gè)新的記錄



        '方法1：列字段名稱法

         .Fields("編號(hào)") = Range("A" & Rows.Count).End(xlUp) + 1  '23   '編號(hào)

        .Fields("商品名稱") = "洗衣機(jī)"   ',商品名稱

        .Fields("單位") = "臺(tái)"   '單位

        .Fields("數(shù)量") = 100   ',數(shù)量

        .Fields("單價(jià)") = 2500   ',單價(jià)

        .Fields("金額") = 250000   '金額



        '方法2：列字段索引法(從0開始)

        '        .Fields(0) = Range("A" & Rows.Count).End(xlUp) + 1 '23   '編號(hào)

        '        .Fields(1) = "洗衣機(jī)"   ',商品名稱

        '        .Fields(2) = "臺(tái)"   '單位

        '        .Fields(3) = 100   ',數(shù)量

        '        .Fields(4) = 2500   ',單價(jià)

        '        .Fields(5) = 250000   '金額

        .Update     '保存數(shù)據(jù)

        .Close          '關(guān)閉記錄集

    End With

    Cn.Close            '關(guān)閉數(shù)據(jù)連接

    Set Rs = Nothing: Set Cn = Nothing

End Sub