通过VBA创build数据透视表中的问题

Set myPivotTable = ActiveWorkbook.PivotCaches.Create( SourceType:=xlDatabase, SourceData:=mySourceWorksheet.Name & "!" & mySourceData).CreatePivotTable( TableDestination:=myDestinationWorksheet.Name & "!" & myDestinationRange, TableName:="Sheet1NewSheet") 

上面的代码给了我

运行时错误5表示无效的过程调用或参数。

Answer 1

面对类似的情况，很久以前在web上的某个地方发现了这个代码。 向不知名人士致谢。

 Dim PSheet As Worksheet Dim DSheet As Worksheet Dim PCache As PivotCache Dim PTable As PivotTable Dim PRange As Range Dim LastRow As Long Dim LastCol As Long 'Delete Preivous Pivot Table Worksheet & Insert a New Blank Worksheet With Same Name On Error Resume Next Application.DisplayAlerts = False Worksheets("PivotTable").Delete Sheets.Add Before:=ActiveSheet ActiveSheet.Name = "PivotTable" Application.DisplayAlerts = True Set PSheet = Worksheets("PivotTable") Set DSheet = Worksheets("Raw Data") 'Define Data Range LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol) 'Define Pivot Cache Set PCache = ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=PRange). _ CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _ TableName:="PRIMEPivotTable") 'Insert Blank Pivot Table Set PTable = PCache.CreatePivotTable_(TableDestination:=PSheet.Cells(1, 1), TableName:="PRIMEPivotTable") 'Insert Column Fields 'With ActiveSheet.PivotTables("PRIMEPivotTable").PivotFields("Ageing") '.Orientation = xlColumnField '.Position = 1 'End With 'Insert Row Fields With ActiveSheet.PivotTables("PRIMEPivotTable").PivotFields("Eid") .Orientation = xlRowField .Position = 1 End With 'Insert Data Field With ActiveSheet.PivotTables("PRIMEPivotTable").PivotFields("Eid") .Orientation = xlDataField .Position = 1 .Function = xlCount .Name = "Name of ur choice" End With 'Format Pivot Table ActiveSheet.PivotTables("PRIMEPivotTable").ShowTableStyleRowStripes = True ActiveSheet.PivotTables("PRIMEPivotTable").TableStyle2 = "PivotStyleMedium9" End Sub 

Answer 2

希望所有的对象都被正确定义和设置（如下面的代码所示）。

 Option Explicit Sub CreatAutoPivot() Dim myPivotTable As PivotTable Dim myPivotCache As PivotCache Dim myDestinationWorksheet As Worksheet Dim mySourceData As Range Dim myDestinationRange As Range ' === set of Parameters I've given my objects: for internal tests === Set myDestinationWorksheet = ThisWorkbook.Sheets("Pivot_Sht") ' modify according to your sheet's name Set myDestinationRange = myDestinationWorksheet.Range("A1") ' modify to where you want to place your Pivot-Table Set mySourceData = ThisWorkbook.Sheets("Pivot_Data").Range("A1:E10") ' modify according to your Source Data Range and worksheet's name ' set the Pivot Cache Set myPivotCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=mySourceData.Address(False, False, xlA1, xlExternal)) ' set the Pivot Table Set myPivotTable = myDestinationWorksheet.PivotTables.Add(PivotCache:=myPivotCache, TableDestination:=myDestinationRange, TableName:="Sheet1NewSheet") End Sub