Excel VBA：更新数据透视源数据

Question

我试图记录代码来更新给我这个的数据透视源数据：

ActiveSheet.PivotTableWizard SourceType:=xlExternal, _
    SourceData:=QueryArry1, _
    Connection:=Array( _
        Array("ODBC;DSN=MS Access Database;DBQ=" & DBDir & "\" & DBName & ";"), _
        Array("DefaultDir=" & DBDir & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;") _
    )

但这甚至不允许我指定我要更新的数据透视表...甚至做我真正想做的事，即更新数据透视缓存，以便更新使用相同源的所有数据透视表。

那么更新源数据的好方法是什么？

谢谢

编辑：

但我什至得到“应用程序定义或对象定义的错误”错误，简单如下：

str = Sheets("Totals").PivotTables("PivotTable2").PivotCache.CommandText
Sheets("Totals").PivotTables("PivotTable2").PivotCache.CommandText = str

我确实仔细检查了我的数据透视表是否仍在访问实时数据并且刷新它仍然有效...但是我无法将命令字符串设置为当前的值？好诡异。

谢谢

Answer 1

可通过工作簿访问 PivotCache。您可以使用以下子列表列出所有当前缓存：

Option Explicit

Private Sub listCaches()
    Dim selectedCache As PivotCache

    For Each selectedCache In ThisWorkbook.PivotCaches
        Debug.Print selectedCache.Index
        Debug.Print selectedCache.Connection
    Next selectedCache

End Sub

您可以访问要编辑的连接：

ThisWorkbook.PivotCaches(yourIndex).Connection

注意：更改连接后，您应该调用：

ThisWorkbook.PivotCaches(yourIndex).Refresh

编辑：您可以更改 CommandText，而不是更改 SourceData。那应该有同样的效果。以下代码对我有用：

ThisWorkbook.PivotCaches(1).CommandText = "SELECT movies.title, movies.rating, movies.comments FROM `C:\Folder\moviesDB`.movies movies"
ThisWorkbook.PivotCaches(1).Refresh

此代码还更新了我的 SourceData。

Edit2：通过数据透视表更改 CommandText：

Sheets("mySheet").PivotTables("PivotTable1").PivotCache.CommandText = "SELECT movies.title as meh, movies.rating, movies.comments FROM `C:\Folder\moviesDB`.movies movies"
Sheets("mySheet").PivotTables("PivotTable1").PivotCache.Refresh

注意：moviesDB 是一个 .mdb 文件，movies 是表/查询

注意 2：在更改之前，它还可以帮助您 Debug.Print 正在工作的 CommandText。这应该会为您提供新 CommandText 的模板。