Question

我想根据用于在另一个工作簿中创建另一个数据透视表的数据创建一个新的数据透视表。

我意识到以下内容： 1.）打开包含数据的工作簿 2.）将包含数据透视表的工作表复制到新工作簿

现在我想从现有的数据透视表访问缓存，并在同一个工作簿中的另一个工作表上创建一个新缓存。因此我使用以下代码：设置input_pivot_sheet = input_workbook.Worksheets（“Worksheetbblabla”）

'Select right Pivot Table
Set pivot_table = input_pivot_sheet.PivotTables(2)

'Create new Excel file
Set temp_excel_workbook = Workbooks.Add
Application.SheetsInNewWorkbook = 1

'Create supportive Pivot by copying content from old file to new file
input_pivot_sheet.Copy After:=temp_excel_workbook.Sheets(1)
Set pivot_cache = pivot_table.PivotCache
'Create new Pivot out of this pivot...
Set worksheet_1 = temp_excel_workbook.Sheets(1)
new_pivot_table = pivot_cache.CreatePivotTable(worksheet_1.Range("A1"))

此代码失败，因为我收到运行时错误5：此行中的过程调用或参数无效：

new_pivot_table = pivot_cache.CreatePivotTable(worksheet_1.Range("A1"))

如何从其他数据透视表访问数据并在另一个工作表上绘制新的数据透视表？

Answer 1

利用cyboashu的评论（你可以在问题帖子中找到它作为评论）我调整了我的代码：

     'Switch to right Worksheet - Attention if "blablabka" is renamed...!!!!
    Set input_pivot_sheet = input_workbook.Worksheets("blabla")

    'Create new Excel file
    Set temp_excel_workbook = Workbooks.Add
    Application.SheetsInNewWorkbook = 1

    'Create supportive Pivot by copying content from old file to new file
    input_pivot_sheet.Copy After:=temp_excel_workbook.Sheets(1)

    'Close old file & newly created one
    input_workbook.Close
    temp_excel_workbook.SaveAs Filename:=temp_excel_file_name
    temp_excel_workbook.Close

    'Open new Excel... - not performant...
    Set temp_excel_workbook = Workbooks.Open(temp_excel_file_name)

    'Select right Pivot Table
    Set pivot_table = temp_excel_workbook.Sheets(2).PivotTables(2)
    Set pivot_cache = pivot_table.PivotCache
    'Create new Pivot out of this pivot...
    Set worksheet_1 = temp_excel_workbook.Sheets(1)
    new_pivot_table = pivot_cache.CreatePivotTable(worksheet_1.Range("A1"))

现在我可以添加字段和行。谢谢大家！

从已有的PivotCache创建Pivot

1 个答案: