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

makesure5 · 发表于 2010-8-10 09:28

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

抹香鲸2009 · 发表于 2010-8-10 11:04

楼主用的office什么版本？

makesure5 · 发表于 2010-8-10 11:26

我的office是2007的版本

ohso · 发表于 2010-8-10 11:36

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

抹香鲸2009 · 发表于 2010-8-10 11:42

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

makesure5 · 发表于 2010-8-10 12:00

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

抹香鲸2009 · 发表于 2010-8-10 12:11

原帖由 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

		自动登录	找回密码
密码			免费注册

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