Excel VBA宏 链接服务器 上传和下载数据

  首先说明以下。
　　　　　　　第一： 下面的 “ _" 也就是 空格下划线 在VBA中表示换行的意思；& 表示链接连个字符串的操作,注意 & 的前后是否需要空格
  　　　　　　第二： 如果链接服务器，服务器名称，账号，密码，或者SQL语句有问题，都会报错说自动化错误。
　　　　　　  第三： 如果刚开始运行程序就显示”未定义对象错误“，那么你就需要 VBA界面的”工程--引用“中选择”Micsoft ActiveX data Objects 2.6“ 点击确定。　　

 

 Sub 下载数据()

 Dim lastRow As Long, lastColumn As Long
 lastRow = ActiveSheet.UsedRange.Rows.Count
 lastColumn = ActiveSheet.UsedRange.Columns.Count

 'MsgBox Split(Range("A1")(1, lastColumn).Address, "$")(1)

 If lastRow >  Then
     Range("a3:BL999") = "" '仅仅清空内容
     Range("bo3:bo999") = ""  'Range("A2:I65536").ClearContents   也可以清楚内容
    ' ActiveSheet.Rows("3:" & lastRow).Delete 清楚了内容包括格式
 End If
 'MsgBox (Cells(10, 1).Value)
     Dim conn As Object
     '定义变量
     Set conn = CreateObject("ADODB.Connection") '建立ADODB连接对象
     conn.ConnectionString = "Driver={sql server};" _
                             & "server=你的服务器;" _
                             & "uid=;pwd=;" _
                             & "database=你的数据库;" _
                             & "AutoTranslate=False"
 conn.Open '打开了和SQL的链接
 mySql = " SELECT * FROM [dbo].[LEAD] ORDER BY [月],[周]"  '写自己的SQL查询语句
 Set rsData = New ADODB.Recordset   '定义一个可以保存sql查询的对象集
 Set rsData = conn.Execute(mySql)   'rsData.Open mySql, conn  可以实现相同的功能
 'Worksheets("Sheet1").Range("A3").CopyFromRecordset rsData --一次性写入从A3开始的sheet1 工作中
 Range("A3").CopyFromRecordset rsData '写出到当前激活的sheet中从A3开始
 rsData.Close   '养成好习惯，用完的东西要关闭哦~~~
 Set rsData = Nothing
 conn.Close
 Set conn = Nothing
 End Sub

 Sub 上传数据()
 'MsgBox (Cells(10, 1).Value)
     Dim conn As Object
     Set conn = CreateObject("ADODB.Connection") '建立ADODB连接对象

     conn.ConnectionString = "Driver={sql server};" _
                             & "server=你的服务器;" _
                             & "uid=;pwd=;" _
                             & "database=你的数据库;" _
                             & "AutoTranslate=False"
 Dim Sql1 As String, Sql2 As String
 conn.Open '打开了和SQL的链接
 For i =  To
         Sql = "INSERT INTO 表([V1],[V2]) VALUES ('" & Cells(i, ).Value & "','" & Cells(i, ).Value & "')"
               '输出一条语句至文件
     conn.Execute (Sql)  '执行Sql 语句
 Next

 '养成好习惯，用完的东西要关闭哦~~~
 conn.Close
 Set conn = Nothing
 End Sub