透视表连接命令用代码修改问题

鄂龙蒙

请教：使用外部数据源《数据表》，生成的透视表《外部数据源透视表》，连接属性--定义--文本命令，通过代码修改，经测试在本工作薄中测试通过，见《外部数据源透视表 （本薄内代码修改通过）》，现想在其它工作薄通过代码修改，见《透视表连接命令修改（跨工作薄代码修改）》，代码运行了，被修改的《外部数据源透视表》要求保存，保存后此表就什么看不见了，请教这是什么原因？谢谢！


透视表连接命令修改测试.rar (46.31 KB, 下载次数: 14)

2016-10-19 09:55 上传

点击文件名下载附件

看见星光

把getobject换成workbooks.open

鄂龙蒙

看见星光 发表于 2016-10-19 11:11
把getobject换成workbooks.open

谢谢大师指点！成功了！
若要多薄多表修改怎么改？再次谢谢！

鄂龙蒙

看见星光 发表于 2016-10-19 11:11
把getobject换成workbooks.open

With ActiveWorkbook.Connections("费用逐月统计汇总表数据源*").OLEDBConnection
中"费用逐月统计汇总表数据源*"如何匹配？谢谢

鄂龙蒙

看见星光 发表于 2016-10-19 11:11
把getobject换成workbooks.open

再请教：透视表中连接属性--连接名称，有的能同名，有不能同名？

看见星光

鄂龙蒙 发表于 2016-10-19 13:01
再请教：透视表中连接属性--连接名称，有的能同名，有不能同名？

没有明白三个问题的具体意思。以下是猜答
1.以下语句可以遍历活动工作薄链接的名称
        For Each s In ActiveWorkbook.Connections
            MsgBox s
        Next
2.连接名称可以重名也可以不重名，重名通常是共用一个连接和数据源的情况。
3.多薄多表修改具体是指修改什么呢？每个表的连接属性吗？可以用1取得名称后改CommandText

鄂龙蒙

看见星光 发表于 2016-10-19 14:07
没有明白三个问题的具体意思。以下是猜答
1.以下语句可以遍历活动工作薄链接的名称
        For Each s ...

谢谢您大师多次指点！再次谢谢！

鄂龙蒙

看见星光 发表于 2016-10-19 14:07
没有明白三个问题的具体意思。以下是猜答
1.以下语句可以遍历活动工作薄链接的名称
        For Each s ...

With ActiveWorkbook.Connections("费用逐月统计汇总表数据源1").OLEDBConnection

中"费用逐月统计汇总表数据源1"、"费用逐月统计汇总表数据源2".。。。。

如何用"费用逐月统计汇总表数据源*"匹配？谢谢！

看见星光

鄂龙蒙 发表于 2016-10-19 14:15
With ActiveWorkbook.Connections("费用逐月统计汇总表数据源1").OLEDBConnection

中"费用逐月统计汇 ...

我不是大师，我只是个菜鸟的。
需要循环去判断然后更改连接属性的，不能像查找替换那样用通配符一次性替换掉，例如：
        For Each s In ActiveWorkbook.Connections
            if instr(s,"费用逐月统计汇总表数据源") then ……
        Next

鄂龙蒙

看见星光 发表于 2016-10-19 14:28
我不是大师，我只是个菜鸟的。
需要循环去判断然后更改连接属性的，不能像查找替换那样用通配符一次性替 ...

ActiveWorkbook.Connections("费用逐月统计汇总表数据源58").OLEDBConnection

这句中("费用逐月统计汇总表数据源58")怎么替换？谢谢！