ADO在Excel插入数据的AddNew方法

代码如下：

Sub ADO往Excel中写数据的AddNew方法()

    Dim Cn, Rs, arr, i AsInteger

    Dim PathStr As String, SQL AsString

    Set Cn =CreateObject("ADODB.Connection")      '创建数据连接对象

    Set Rs =CreateObject("ADODB.Recordset")      '创建记录集对象

    PathStr =ThisWorkbook.FullName

    Select CaseApplication.Version * 1   '设置连接字符串,根据版本创建连接

    Case Is <= 11

       strConn ="Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel8.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[Sheet1$]"

    Cn.Open strConn

    With Rs

       .Open SQL, Cn, 1, 3   '

       .AddNew    '添加一个新的记录

       '方法1：列字段名称法

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

       .Fields("商品名称") = "洗衣机"  ',商品名称

       .Fields("单位") = "台"   '单位

       .Fields("数量") = 100   ',数量

       .Fields("单价") = 2500   ',单价

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

       '方法2：列字段索引法(从0开始)

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

       '       .Fields(1) = "洗衣机"  ',商品名称

       '       .Fields(2) = "台"  '单位

       '       .Fields(3) = 100  ',数量

       '       .Fields(4) = 2500  ',单价

       '       .Fields(5) = 250000  '金额

       .Update    '保存数据

       .Close         '关闭记录集

    End With

    Cn.Close          '关闭数据连接

    Set Rs = Nothing: Set Cn =Nothing

End Sub