Question

所以我正在尝试创建一个数据透视表。我现在的代码工作得很好。但是，我现在要做的是在我的工作簿中创建一个新工作表，并在新工作表中创建数据透视表。当工作表已经存在时，此代码可以正常工作，但是，一旦我添加了新的代码行来创建新工作表，它就失败了。

Sub ISM_Pivot()
'-------------------------------------------------

'    Step 1: Create a new worksheet for pivot table

'--------------------------------------------------

Dim WSD2 As Worksheet

 Set WSD2 = ActiveWorkbook.Sheets.Add(After:= _
           Worksheets(Worksheets.Count))
   WSD2.Name = "POS Info"


'--------------------------------------------------

'        Step 2: Create the pivot table

'--------------------------------------------------

Dim WSD As Worksheet
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim PRange As Range
Dim FinalRow As Long
Dim FinalCol As Long
Dim StartPT As String
Set WSD = Worksheets("aggregateData")


' Select the data for pivot table

FinalRow = WSD.Cells(Rows.Count, 2).End(xlUp).Row
FinalCol = WSD.Cells(1, Columns.Count).End(xlToLeft).Column
Set PRange = WSD.Cells(2, 1).Resize(FinalRow, FinalCol)
Set PTCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=PRange, Version:=xlPivotTableVersion14)

'Where do I want the pivot table to start

StartPT = WSD2.Range("A1").Address(ReferenceStyle:=xlR1C1)


'Begin to Create the Pivot Table

Set PT = PTCache.CreatePivotTable(TableDestination:=StartPT, TableName:="POS Data")

最后一行代码是我失败的地方。我得到了一个应用程序定义或对象定义的错误。

任何帮助都会很棒，

谢谢，

格里芬

尝试在新创建的工作表中创建数据透视表

0 个答案: