Question

我是这个论坛的新人。我想问一下是否有人可以帮助我。我编写了一个宏来更改所有的pivottables源，如果pt的名称以1结尾，它将从另一个xlsx文件中应用一个源，如果是2则从另一个文件中获取另一个源。我在宏观期间保持两本书都打开，以确保它不会在那一侧打破。但在“情况2”中它总是抛出运行时错误13：类型不匹配。任何人都可以帮我解决这个问题先谢谢！

Sub origen_tablas_fwb()

Dim hoja As Worksheet
Dim pt As PivotTable
Dim a1, a2, j As Long
Dim libro1, libro2 As String

a2 = Workbooks("Global ETdlc.xlsx").Worksheets("Comando").Range("A7").Value
a1 = a2 - 1
Windows("Global ETdlc.xlsx").Activate
Sheets("Comando").Activate
j = Sheets("Comando").Range("N1", Range("N1").End(xlDown)).Rows.Count
libro2 = Workbooks("Global ETdlc.xlsx").Worksheets("Comando").Range("B8").Value
For i = 1 To j
    If Cells(i, 14).Value = libro2 Then
    libro1 = Cells(i, 15).Value
    End If
Next i

'Workbooks.Open Filename:="C:\Respaldo Reservas\FEEDS+FWB\" & a1 & "\" & libro1
'Workbooks.Open Filename:="C:\Respaldo Reservas\FEEDS+FWB\" & a2 & "\" & libro2

'Workbooks.Open Filename:="C:\Informes\Forward Bookings"
Windows("Forward Bookings").Activate
For Each hoja In ActiveWorkbook.Worksheets
    For Each pt In Worksheets(hoja.Name).PivotTables
        Select Case Right(pt.Name, 1)
        Case 1
        'cambiar cache año anterior
        ActiveSheet.pt.ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=Workbooks(libro1).Sheets("Input").Range("A1").CurrentRegion)
        Case 2
        'cambiar cache año actual
        ActiveSheet.pt.ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=Workbooks(libro2).Sheets("Input").Range("A1").CurrentRegion)
        End Select
    Next pt
Next hoja
Windows(libro1).Close
Windows(libro2).Close
End Sub

Answer 1

代码实际上是尝试为每个PivotCache创建一个PivotTable。

我建议每个外部工作簿只创建一个PivotCache，然后更改每个PivotCache的{{1}}。

使用以下代码替换更改数据透视表缓存的部分：

PivotTable

运行时错误13 - 更改pivotcache

1 个答案: