SQL语句 对多个工作薄 联合透视 如何解决路径变化？

wenkal

有4个工作薄
张三.xls
李四.xls
王五.xls
汇总.xls

在汇总.xls中用SQL语句数据透视前3个工作薄，放在我的电脑上可以执行

但当拷贝到其他电脑或更换目录的时候就不行

有没有办法当把4个工作薄同时拷贝到其他文件夹的，SQL语句里面的路径可以随时改变的方法？

penghaifeng

论坛里好像有高手解决了这个问题，可以搜寻一下！~~~

不过应用起来好像还有限制，其实，实际业务中有没有必要，将这一系列文件在各个电脑间互相传递呢？反正在我的应用中，只需要在一台电脑上设计好，就没有来回传递的问题了，顶多传递的也只是透视表汇总后的结果。

pc520

楼上俩位头像好像兄弟俩

hf1971

http://club.excelhome.net/thread-472788-1-3.html 参考此帖，我是看不明白的。

masterexcel

Scarlett_88版主有个帖子专门讲这个的，楼主可以搜索下。

wenkal

谢谢楼上的！

wenkal

搜索了下，最终还是没有答案。
下面这个方法是说的同一个工作薄内的多个表之间，但不同工作薄之间的就不行了



http://club.excelhome.net/thread-472788-1-3.html
Private Sub Workbook_Open()
    Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
    '定义变量
    On Error Resume Next
    strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
    '将当前活动数据透视表中缓存连接信息赋值给变量strCon
    Select Case Left(strCon, 5)  'select case语句,条件为strCon变量中从左侧取5个字符
    Case "ODBC;"                 '用于判断缓存连接信息中的数据连接方式,如果是ODBC方式
        iFlag = "DBQ="           '将"DBQ=" 赋值给变量iFlag
    Case "OLEDB"                 '用于判断缓存连接信息中的数据连接方式,如果是OLEDB方式
    iFlag = "Source="            '将"DBQ=" 赋值给变量iFlag
    Case Else
        Exit Sub
    End Select
    iStr = Split(Split(strCon, iFlag)(1), ";")(0)  '在变量strCon中截取文件路径信息
    iPath = ActiveWorkbook.FullName                '获取当前活动工作簿的完全路径
    With ActiveSheet.PivotTables(1).PivotCache     '替换数据透视表中缓存信息中的文件完全路径
        .Connection = VBA.Replace(strCon, iStr, iPath)
        .CommandText = VBA.Replace(.CommandText, iStr, iPath)
    End With
End Sub


用了您的方法，很好地解决了同一工作簿中多表进行透视的问题；但如果是跨工作簿透视，好象就不行了。请问一下，跨工作簿的数据透视，能不能也想办法让它自适应路径呢？

masterexcel

楼主，请参考下帖(Scarlett_88)：
http://club.excelhome.net/viewth ... t=%2BScarlett%5C_88

flowerzhu

代碼不知道怎麼用  汗.......我是菜鳥中的菜鳥啊!