VBA 创建透视表 下标越界 错误9

Question

问题遇到的现象和发生背景

VBA 创建透视表 下标越界 错误9

前面的代码是做了一个表合并
new_wb.Sheets(1).Cells(new_wb.Sheets(1).Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues
在sheets(1) 中 然后保存 生成透视表。 但是下标越界 错误9

用代码块功能插入代码，请勿粘贴截图

new_wb.SaveAs result_folder & "\Inventory Details combined_" & i

new_wb.Sheets(1).Range("A1:AD" & Range("b1").End(xlDown).Row).Select
Application.CutCopyMode = False

Workbooks("Inventory Details combined_" & i & ".xlsx").Connections.Add2 _
 "WorksheetConnection_data_combine!$A$1:$AD$" & Range("b1").End(xlDown).Row, "", _
  "WORKSHEET;" & result_folder & "\[Inventory Details combined_" & i & ".xlsx]data_combine", "data_combine!$A$1:$AD$" & Range("b1").End(xlDown).Row, 7, True, False

new_wb.Sheets.Add

new_wb.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _
 new_wb.Connections("WorksheetConnection_data_combine!$A$1:$AD$" & Range("b1").End(xlDown).Row), Version:=7). _
  CreatePivotTable TableDestination:="Sheet2!R3C1", TableName:= _
    "PT_001", DefaultVersion:=7   ‘这里报错了

我想要达到的结果

下标越界不知道出现在哪里？

Answer 1

这个问题出错主要是名字找不到，你主要看一下 你创建的这个workbookWorksheetConnection_data_combine里面后来的那个sheet名字，你后来在 new_wb.Connections("WorksheetConnection_data_combine!$A$1:$AD$"里面没有指定 worksheet