VBA Excel，更新数据透视表

Question

我在超过30个文件的2张纸上有3个数据透视表，所以我尝试使用vba自动更新它们。问题是我得到一个错误438.我不知道它为什么出现。我的代码：

 Sub update()
    Dim sht As Worksheet
    Dim SrcData As String
    Dim pvtCache As PivotCache

Sheets("Raw Data").Select

  SrcData = ("Raw Data") & "!" & Range("$A$9:$M$100000").Address(ReferenceStyle:=xlR1C1)

  Set pvtCache = ActiveWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=SrcData)

Sheets("Cost Week_Month").Select'This contain 2 tables, the same source data
ActiveSheet.PivotTables("PivotTable1").ChangePivotCache (pvtCache)

Sheets("View Week_Month").Select
ActiveSheet.PivotTables("PivotTable10").ChangePivotCache (pvtCache)

End Sub

Answer 1

这可能是这一行：

SrcData = ("Raw Data") & "!" & Range("$A$9:$M$100000").Address(ReferenceStyle:=xlR1C1)

您告诉它使用R1C1参考样式，但提供“LetterNumber”参考。