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

Excel是電子錶格，我們可以直接在裡麵插入數(shù)據(jù)。

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

所以這裡我們利用vba代碼ADO來添加數(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ù)連接對象

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

    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     '添加一箇新的記録



        '方法1：列字段名稱法

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

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

        .Fields("單位") = "颱"   '單位

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

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

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



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

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

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

        '        .Fields(2) = "颱"   '單位

        '        .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