Option Explicit
Sub 输出数据表(strSql As String, Work As String) '传值处理
'''''''''''''''''''''''''''''''''''''''''''
Dim data As New 数据库
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sht As Worksheet
Dim i As Integer
Dim Lm As Integer
Dim h As Integer
Set sht = ThisWorkbook.Worksheets(Work)
cn.Open data.SQL数据库
'循环查询到的列名，把列名的数量定义循环。
rs.Open strSql, cn '执行strSQL所含的SQL命令，结果保存在rs记录集对象中
i = 0
Lm = rs.Fields.Count '列名的数量定义
While i < Lm
sht.Cells(2, i + 1) = rs.Fields(i).Name '列名读取
i = i + 1 'i加1，准备把下一记录相关字段的值保存到工作表的下一行
Wend
rs.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
Loop
rs.Close '关闭记录集
创新互联-专业网站定制、快速模板网站建设、高性价比西乌珠穆沁网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式西乌珠穆沁网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖西乌珠穆沁地区。费用合理售后完善，十年实体公司更值得信赖。
另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。
网站栏目：VBA_输出SQL查询数据-创新互联
标题链接：
http://cdkjz.cn/article/coeigc.html
