VBA_输出SQL查询数据

Option ExplicitSub 输出数据表(strSql As String, Work As String) '传值处理'''''''''''''''''''''''''''''''''''''''''''Dim data As New 数据库Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sht As WorksheetDim i As IntegerDim Lm As IntegerDim h As IntegerSet sht = ThisWorkbook.Worksheets(Work)cn.Open data.SQL数据库'循环查询到的列名，把列名的数量定义循环。rs.Open strSql, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中i = 0Lm = rs.Fields.Count '列名的数量定义While i < Lm    sht.Cells(2, i + 1) = rs.Fields(i).Name '列名读取    i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行Wendrs.Close '关闭记录集''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''循环数据表rs.Open strSql, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中i = 3    Do While Not rs.EOF        h = 1        While h - 1 < Lm '当数据指针未移到记录集末尾时，循环下列操作            sht.Cells(i, h) = rs(rs.Fields(h - 1).Name) '把当前字段2的值保存到sheet1工作表的第i行第2列            h = h + 1        Wend        rs.MoveNext '把指针移向下一条记录        i = i + 1    Looprs.Close '关闭记录集