EXCEL存入SQLsqlserver,vba源码，

Dim i As Integer, j As Integer, sht As Worksheet Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn As String, strSQL As String strCn = "Provider=sqloledb;Server=SQL服务器地址;Database=SQL数据库名;Uid=数据库帐号;Pwd=数据库密码;" cn.Open strCn cn.Execute ("delete from 数据库中的表名 where 字段名 in ('内容1', '内容2')") '清空数据库中的字段内包含的数据， For Each cel In ActiveSheet.UsedRange If Application.IsError(cel) = True Then cel.Value = "" End If Next '这是去掉出现“#DIV/0!”的,为什么去？不去掉。存不进去 For i = 4 To [a65536].End(xlUp).Row '这是我要让当前表的第四行开始循环把数据写进sqlserver，这个“4”可以看需要改的 '构造SQL命令串" Sql = "select * from 数据库中的表名" Set rs = New ADODB.Recordset rs.Open Sql, cn, 3, 2 rs.AddNew rs("数据库中的列1") = Cells(i, 1) rs("数据库中的列2") = Cells(i, 2) rs("数据库中的列3") = Cells(i, 3) rs("数据库中的列4") = Cells(i, 4) rs.Update Next cn.Close MsgBox "成功！" Set cn = Nothing Set Sql = Nothing ============================================== 存入的数据可能会被打乱，本人测试的时候发现的，数据没少，就是顺序乱了 ==============================================