请教：用代码批量修改透视表命令文本

鄂龙蒙

下面是录制宏代码，单个表可完成修改透视表命令文本，现想通过代码批量修改本文件夹下多个工作薄内多个透视表命令文本，
主要问题是下面代码中红色字符如何用变量，请教代码怎么改？
Sub Macro1()
    Sheets("汇总表").Select
    With ActiveWorkbook.Connections("费用逐月统计汇总表数据源43").OLEDBConnection
        .BackgroundQuery = True
        .CommandText = Array( _
            "select * from [上年结转$] union all " & Chr(13) & "" & Chr(10) & _
            "select * from [1-3月份$] union all " & Chr(13) & "" & Chr(10) & _
            "select * from [4-5月份$] union all " & Chr(13) & "" & Chr(10) & _
            "select * from [6-7月份$] union all " & Chr(13) & "" & Chr(10) & _
            "select * from [8-9月份$] union all " & Chr(13) & "" & Chr(10) & _
            "select * from [10-12月份$]")
    End With
End Sub

百度不到去谷歌

dim a,b
a="汇总表"
b="费用逐月统计汇总表数据源43"
Sheets(a).Select
    With ActiveWorkbook.Connections(b).OLEDBConnection

鄂龙蒙

百度不到去谷歌 发表于 2016-10-17 22:31
dim a,b
a="汇总表"
b="费用逐月统计汇总表数据源43"

谢谢！
不过，一个表可以。
但要在本文件夹下，修改多工作薄多表中透视表文本命令，
a是明显知道的，也可用查询法循环得到；
b要一个一个查看透视表，有没有办法在本文件夹内只要是透视表就修改文本命令？