无法将数据透视表设置为工作簿连接（ACCESS DB）

目标：将我的数据透视表直接连接到源数据库表（MS-ACCESS 2010中）。无法将数据透视表设置为工作簿连接（ACCESS DB）

状态：我可以通过VBA将WorkbookConnection设置为DB。我也能够通过使用代码来创建PivotTable：

WB.PivotCaches.Create(SourceType:=xlExternal, SourceData:=Conn) _ 
       .CreatePivotTable TableDestination:=Worksheets("ManHours").Range("A1"), _ 
       TableName:="OnePager"

然而，试图Set PvtTbl与下面的2个选项产生一个运行时错误（1004）：

选项1：

Set PvtTbl = PvtCache.CreatePivotTable(TableDestination:=Worksheets("ManHours").Range("A1"), TableName:="OnePager")

选项2：

Set PvtTbl = Worksheets("ManHours").PivotTables.Add(PivotCache:=PvtCache, TableDestination:=Worksheets("ManHours").Range("A1"), TableName:="OnePager")

我的代码

Option Explicit 

Sub Dynamic_PivotTable() 

Dim WB As Workbook 
Dim WBConns As WorkbookConnection 
Dim Conn As WorkbookConnection 
Dim ConnString As String 

Dim PvtTbl  As PivotTable 
Dim PvtCache As PivotCache 

Set WB = Workbooks("DynamicPivot_Connection.xlsm") '<-- Workbook is open 

' define ConnectionString 
ConnString = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=J:\PMO\Resource allocation\DB\Resource_DB.accdb;" & _ 
      "Mode=Share Deny Write;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";" & _ 
      "Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;" & _ 
      "Jet OLEDB:New Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;" & _ 
      "Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False;" & _ 
      "Jet OLEDB:Bypass UserInfo Validation=False" 

' loop through all Workbook connections and delete all except "Resource_DB" 
For Each WBConns In WB.Connections 
    Select Case WBConns.Name 
     Case "Resource_DB" 
      Set Conn = WBConns 
     Case Else 
      WBConns.Delete   
    End Select 
Next WBConns 

If Conn Is Nothing Then 
    Set Conn = WB.Connections.Add("Resource_DB", "Resource DB Full Data Set", ConnString, "Select * from MergedDBTbl", 3) 
End If 

' set the Pivot Cache to update Workbook connection 
Set PvtCache = WB.PivotCaches.Add(xlExternal, Conn) 

' add this line in case the Pivot table doesn't exit >> first time running this Macro 
On Error Resume Next 
Set PvtTbl = Worksheets("ManHours").PivotTables("OnePager") ' check if "OnePager" Pivot Table already created (in past runs of this Macro) 

On Error GoTo 0 
If PvtTbl Is Nothing Then 

    ' create a new Pivot Table in "ManHours" sheet, start from Cell A1     
    WB.PivotCaches.Create(SourceType:=xlExternal, SourceData:=Conn) _ 
       .CreatePivotTable TableDestination:=Worksheets("ManHours").Range("A1"), TableName:="OnePager" 

    ' create a new Pivot Table in "Pivot" sheet, start from Cell A1 ******* LINE BELOW PRODUCES AN ERROR ****** 
    Set PvtTbl = Worksheets("ManHours").PivotTables.Add(PivotCache:=PvtCache, TableDestination:=Worksheets("ManHours").Range("A1"), TableName:="OnePager") 


    ' ******* LINE BELOW PRODUCES AN ERROR ****** 
    Set PvtTbl = PvtCache.CreatePivotTable(TableDestination:=Worksheets("ManHours").Range("A1"), TableName:="OnePager") 
    'Create the headings and row and column orientation and all of your other settings here 

Else 
    ' just refresh the Pivot cache with the updated Range (data in "ManHours" worksheet) 
    PvtTbl.ChangePivotCache PvtCache '<--- ALSO PRODUCES AN ERROR ! 
    PvtTbl.RefreshTable 
End If 

End Sub

来源

2017-01-30 Shai Rado

看看这里 - https://www.thespreadsheetguru.com/blog/2014/9/27/vba-guide-excel-pivot-tables - 这家伙使用pvtCache来创建数据透视表 - “Set pvt = pvtCache.CreatePivotTable'。不确定它是否会与你合作。 – Vityata

你是按顺序运行这些行吗？ – Rory

@Rory ofcourse not，我每次评论2他们并且尝试第3。只有一个可行，但这不是我想要使用的方法。 –

您应该使用：

Set PvtCache = WB.PivotCaches.Create(xlExternal, Conn)

而不是：

Set PvtCache = WB.PivotCaches.Add(xlExternal, Conn)

而为了让数据透视表自动刷新打开工作簿时，使用：

PvtCache.RefreshOnFileOpen = True

来源

2017-01-30 13:48:14 Rory

无法将数据透视表设置为工作簿连接（ACCESS DB）

回答

相关问题