运行时错误13 - 改变pivotcache

Im在这个论坛上新的。我想问问有没有人可以帮助我。我编写了一个宏，它可以更改所有的pivottables源，如果pt的名称以1结尾，它将从另一个xlsx文件应用一个源，并且如果它的2从另一个文件中给出另一个源。我在宏观期间将这两本书都保持开放，以确保它在这一方面不会中断。但是在“情况2”中，它总是抛出运行时错误13：类型错配。谁能帮我解决这个问题。手前谢谢！运行时错误13 - 改变pivotcache

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

来源

2015-10-20 Tomas de la Carrera

的代码实际上是试图为每个PivotTable一个PivotCache。

我建议每个外部工作簿只创建一个PivotCache，然后更改每个PivotTable所对应的PivotCache。

替换您与此代码更改透视缓存部分：

Dim Pch1 As PivotCache, Pch2 As PivotCache 

With Windows("Forward Bookings") 
    With .PivotCaches 
     Set Pch1 = .Create(SourceType:=xlDatabase, _ 
      SourceData:=Workbooks(libro1).Sheets("Input").Range("A1").CurrentRegion) 
     Set Pch1 = .Create(SourceType:=xlDatabase, _ 
      SourceData:=Workbooks(libro2).Sheets("Input").Range("A1").CurrentRegion) 
    End With 
    For Each hoja In .Worksheets 
     For Each pt In hoja.PivotTables 
      Select Case Right(pt.Name, 1) 
      Case 1 
       'cambiar cache año anterior 
       pt.ChangePivotCache (Pch1) 
      Case 2 
       'cambiar cache año actual 
       pt.ChangePivotCache (Pch2) 
      End Select 

Next: Next: End With

来源

2015-11-22 14:52:05 EEM

运行时错误13 - 改变pivotcache

回答

相关问题