Excel VBA Pivot Table 数据源问题

Question

我有以下代码...

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "page!R2C1:R1981C43", Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:="", TableName:="PivotTable5", DefaultVersion _
    :=xlPivotTableVersion15

我如何将其从 "page" 更改为提取我想要尝试的任何当前工作表名称。

例如，如果我在名为 "pages" 的工作表上运行它给我一个错误，我该如何更改它以接受任何工作表名称？

Answer 1

只需声明一个变量并使用它：

Dim myWorksheet as Worksheet
Set myWorksheet = Activesheet

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    myWorksheet & "!R2C1:R1981C43", Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:="", TableName:="PivotTable5", DefaultVersion _
    :=xlPivotTableVersion15

这是未经测试的，但我很确定它应该有效。

Answer 2

Dim wbpage as worksheet

set wbpage = thisworkbook.sheets(1) 'or whatever

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    wbpage.name & "!R2C1:R1981C43", Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:="", TableName:="PivotTable5", DefaultVersion _
    :=xlPivotTableVersion15

Excel VBA Pivot Table 数据源问题

Excel VBA Pivot Table data source issue

excel

vba

pivot-table

excel-2013