Question

EXCEL 中 这段代码运行时候提示“运行错误 要求424”，求大神解答啊急急急！！！

Sub SmpPivotCache() Dim MyPivot As PivotCache Worksheets("Sheet1").Activate Set MyPivot = ThisWorkbooks.PivotCaches.Create(xlDatabase, SourceData:=Range("A2:G17")) MyPivot.CreatePivotTable TableDestination:=Worksheets("sheet3").Range("A1"), TableName:="各出发点的总销售额" With Worksheets("Sheet3").PivotTables("各出发点的总销售额") .AddFields RowFields:="出发点" .AddDataField Worksheets("Sheet3").PivotTables("各出发点的总销售额").PivotFields("销售额"), "总销售额", xlSum End WithEnd Sub

Answer 1

第四行 ThisWorkbooks 是不是拼写错误呢？末尾没有s。