OLE DB 查询 数据透视表

木虫

大家好：
    我编辑了个 OLE DB 查询 数据透视表 但再次打开时却提示：无法找到数据源  谁知道原因呀 可以告诉下吗
  数据源没有移动位置更没有改名字
附件已上传，当降低安全性时，数据透视表出现[local]1[/local]不能正常刷新。望朋友给予指点。谢谢。是我自己做的 真的没有移动过

[ 本帖最后由 木虫 于 2010-5-20 11:27 编辑 ]

livewire

当出现这个 窗口 时， 点 确定  试试

Ericall

路径错误，你的数据源肯定移动了，修改一下路径就好了。补充：对了，我估计你的东西是在别的机子上做的，然后拷贝过来的，虽然你认为你没移动数据源，但做原始的透视表的路径跟你现在用的路径不同了，所以你现在把路径改成你现在用的路径就好了。

[ 本帖最后由 Ericall 于 2010-5-20 10:24 编辑 ]

木虫

我自己做的一步步做的 可能是路径错的嘛？？？？？？郁闷之至。

whsfhwm

我把楼主的附件下载之后，修改了数据源路径为我自己电脑里的真实路径，然后确定，刷新数据，都是在正常可执行的啊。

抹香鲸2009

结果计算正常。楼主如果出现异常。可以按下ALT+F11，ThisWorkbook中加载一段代码：
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

按F5，逐行执行完毕。保存退出后，再刷新透视表，应该可以解决了。

题外话：楼主表不算大，透视刷新速度奇慢。为什么在sql查询时不指定区域，跳过含公式计算的备注1备注2呢？