如下：自己改一下：
Sub aa()
Dim cn As New ADODB.Connection
Dim rs As New Recordset
Str1 = "select 区域,内=SUM(case when 新替换区内外='替换区内' then 1 else 0 end ),外=SUM(case when 新替换区内外='替换区外' then 1 else 0 end ) from 宏站 group by 区域"
strcn = "Provider=sqloledb;Database=test;Uid=sa;Pwd=30687724;datasource=127.0.0.1,1433;"
cn.Open strcn
rs.Open Str1, cn
Dim i
For i = 1 Tors.Fields.Count
Cells(1, i) = rs.Fields(i- 1).Name’FIELDS是从0开始的，所以这里要-1
Range("a2").CopyFromRecordset rs
Next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024