VBA: несоответствие типов с помощью PivotCaches

Question

Я пытаюсь вставить pivot table в документ. Следующий код вызывает ошибку mismatch, однако, я не уверен, где/почему она бросает его в линию (Set pCache ... линия. В то время как ошибка возникает, заготовка pivot table все еще создается.

Где ? Я буду неправильно

pivot_lastRow = mainSheet.Cells(mainSheet.Rows.count, "A").End(xlUp).Row 'may need to change "A" 
    pivot_lastCol = mainSheet.Cells(1, mainSheet.Columns.count).End(xlToLeft).Column 

    Set pivotRange = mainSheet.Range(mainSheet.Cells(1, 1), mainSheet.Cells(pivot_lastRow, pivot_lastCol)) 

    Set pCache = wbk.PivotCaches.Create(SourceType:=xlDatabase, _ 
      SourceData:=pivotRange).CreatePivotTable(TableDestination:=pivotSheet.Cells(2, 2), _ 
      TableName:="Test") 

Answer 1

Вы создаете сводную таблицу и попытаться установить его в объект кэша стержень, который не может работать;)

Раздельные последнее утверждение:

Dim pCache As PivotCache 
Dim pTable As PivotTable 

pivot_lastRow = mainSheet.Cells(mainSheet.Rows.count, "A").End(xlUp).Row 'may need to change "A" 
    pivot_lastCol = mainSheet.Cells(1, mainSheet.Columns.count).End(xlToLeft).Column 

    Set pivotRange = mainSheet.Range(mainSheet.Cells(1, 1), mainSheet.Cells(pivot_lastRow, pivot_lastCol)) 

    Set pCache = wbk.PivotCaches.Create(SourceType:=xlDatabase, _ 
      SourceData:=pivotRange) 

    Set pTable = pCache.CreatePivotTable(TableDestination:=pivotSheet.Cells(2, 2), _ 
      TableName:="Test")