vba使用sql查询语句结果没有列名称

fshhhf

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "TransForm Sum(数量) Select 工厂 From [Sheet2$A:E] Where 分类<>'' Group By 工厂 Pivot 分类"
    Range("K2").CopyFromRecordset Cn.Execute(StrSQL)

用以上代码输出结果，没有出现列名称，请告诉帮忙解决

如何让vba输出变成以下这样子

opiona

1. Rst.Open strSQL, Cnn
   
2. Sheets(1).Cells(2, 1).CopyFromRecordset Rst  '从A2单元格开始粘贴选中字段内容
   
3. 
   
4. '---------------------  是否有实际查询结果       ----------------------------------
   
5. If Rst.EOF Or Rst.BOF Then MsgBox "没有找到相关信息", 1 + 16, "系统提示"
   
6. 
   
7. '---------------------  获取表头       --------------------------------------------
   
8. For i=0 To Rst.Fields.Count - 1     '读取选中的字段名称
   
9.      Sheets(1).Cells(1, i+1).Value = Rst.Fields(i).Name   '从A1单元格开始粘贴选中的字段名称
   
10. Next

复制代码

fzxba

fshhhf

感谢感谢2位高手的热心帮助

fshhhf

我还想问下：
1、为什么用vba用SQL输出没有列名称，单独用sql输出却有列名称
2、vba在使用sql时输出时，能直接输出整个sql查询结果吗