Sub DownLoadMacro() '定义过程名称 Dim i As Integer, j As Integer, sht As Worksheet 'i,j为整数变量:sht 为excel工作表对象变量,指向某一工作表 Dim cn As New ADODB.Connection '定义数据链接对象 ,保存连接数据库信息:请先添加ADO引用 Dim rs As New ADODB.Recordset '定义记录集对象,保存数据表 Dim strCn As String, strSQL As…