[已解决]怎么更改数据源路径？

xiaoni · 发表于 2012-10-20 16:44

大家好!在数据透表同一路径下的多工作薄汇总时，数据源位置改变了怎么办呢？我用了vba代码怎么不行呢？
rivate Sub Workbook_Open()
Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
strCon = ActiveSheet.PivotTables(1).PivotCache.Connection
Select Case Left(strCon, 5)
Case "ODBC;"
      iFlag = "DBQ="
Case "OLEDB"
      iFlag = "Source="
Case Else
      Exit Sub
End Select
iStr = Split(Split(strCon, iFlag)(1), ";")(0)
iPath = Left(iStr, InStrRev(iStr, "\") - 1)
With ActiveSheet.PivotTables(1).PivotCache
      .Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
      .CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
End With
End Sub以前我的文件夹是放在d盘的现在我把它放在桌面上，桌面路径是:D:\我的文档-桌面-收藏夹\桌面\10月运费,还有我手工改了也提示不行

10月运费.rar (200.14 KB, 下载次数: 35)

hwc2ycy · 发表于 2012-10-20 16:58

Private Sub Workbook_Open()
Dim strCon As String, iPath As String, i As Integer, iFlag As String, iStr As String
strCon = Sheet4.PivotTables(1).PivotCache.Connection
Select Case Left(strCon, 5)
Case "ODBC;"
iFlag = "DBQ="
Case "OLEDB"
iFlag = "Source="
Case Else
Exit Sub
End Select
iStr = Split(Split(strCon, iFlag)(1), ";")(0)
iPath = Left(iStr, InStrRev(iStr, "") - 1)
With Sheet4.PivotTables(1).PivotCache
.Connection = VBA.Replace(strCon, iPath, ThisWorkbook.Path)
.CommandText = VBA.Replace(.CommandText, iPath, ThisWorkbook.Path)
End With
End Sub

复制代码

hwc2ycy · 发表于 2012-10-20 16:58

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

改成SHEET4，activesheet是sheet1，sheet1里并无数透表。

hwc2ycy · 发表于 2012-10-20 17:01

貌似做在固定的一个表上好点，因为如果双击数透表内数据，会创建新工作表显示明细的。

hwc2ycy · 发表于 2012-10-20 17:05

我是从10月4号的文件里运行的，换了位置也能数透。你试试。

hwc2ycy · 发表于 2012-10-20 17:05

10月4日运费.rar (47.63 KB, 下载次数: 46)

xiaoni · 发表于 2012-10-20 20:20

本帖最后由 xiaoni 于 2012-10-20 20:21 编辑

老师如果汇总表是令一个工作薄，并且不和明细表在同一文件夹下，我试过了，就不行了，还有文件夹必须解压不解压也不行，老师请你帮我解释下每句代码的意思好吗？这代码是抄来的，我自己也不明白

hwc2ycy · 发表于 2012-10-20 23:17

那你得加一个变量来指明明细表的位置就成了。
因为代码里全是用的ThisWorkbook.Path

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

[已解决]怎么更改数据源路径？

相关帖子