数据透视表为什么莫名其妙的失效了

makesure5

最近发现的一个很无语的现象，我把A文件的数据透视表复制到B文件中去，B文件当时还是可以使用的，可是第二天再打开，B文件的文件大小没有变，可是数据透视表却失效了，即不在具有筛选的下拉框，而且字段也消失了，完全就是一个表格，可是大小还是几百M啊，如果光是一个表格怎么会出现这种情况呢。请问有哪位大侠能解释下么？

抹香鲸2009

楼主用的office什么版本？

makesure5

我的office是2007的版本

ohso

问题是楼主所说的复制是仅仅复制了表格数据还是复制了工作表。

抹香鲸2009

如果是普通透视表应该不会有这种情况。估计楼主是导入外部查询做的吧。路径和文件名变化都会导致刷新透视表时报错。解决办法是，在透视表向导中修改一下路径，同时语句要重新拷贝到命令文本框，保存确定退出后再刷新

makesure5

恩，的确，我的是连接外部来源，用的是ODBC，我会按照您的方法试一试。我只是简单的把数据透视表复制过去，没有复制整个sheet

抹香鲸2009

原帖由 makesure5 于 2010-8-10 12:00 发表
恩，的确，我的是连接外部来源，用的是ODBC，我会按照您的方法试一试。我只是简单的把数据透视表复制过去，没有复制整个sheet

再怎么复制，都会出现这样的情形。因为odb查询时，对指定路径下的指定文件进行查询。一旦路径或文件名发生变化都会提示出错。下面代码可以消除这个问题。按alt+F11，后拷贝到该文件下的ThisWorkBook中，按F8逐行执行完毕，保存后退出。再刷新即可。
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