将一个excel表追加到sql server的一个表内

kinlog

请教

有没有什么简单快捷的代码可以将 一个excel表追加到sql数据库的一个表内呢？
excel表内只有 sheet1内有A、B、C、D、E、F共6列第一行为字段名共有9000行 添加到

sqlserver地址：192.168.0.100，用户：sa 密码：8888 数据库名 record  表名redate 有A、B、C、D、E、F共6个字段
谢谢

kinlog

在excelhome找到答案了
Sub 导入()

    Dim cnn As Object, SQL$, Mypath$, MyFile$, n%
    Set cnn = CreateObject("adodb.connection")

    cnn.Open "Provider=sqloledb;Server=192.168.0.100;Database=record;Uid=sa;Pwd=8888;"

r = Range("A65534").End(xlUp).Row
For i = 2 To r

    A = Cells(i, 1)
    B = Cells(i, 2)
    C = Cells(i, 3)
    D= Cells(i, 4)
    E = Cells(i, 5)
    F = Cells(i, 6)
   
    sql1 = "insert into redate (A,B,C,D,E,F) values('" & A & "','" & B & "','" & C & "','" & D & "','" & E & "','" & F & "')"

cnn.Execute sql1

Next

    cnn.Close
    Set cnn = Nothing

End Sub

来源http://club.excelhome.net/thread-1249428-1-1.html