1
我已经从数据表“Sheet1”创建了一个用于在工作表“Pivot”中制作数据透视表的宏。运行时错误5:Excel VBA
尽管我可以在我的系统中运行宏但在其他系统中运行,但它在运行时错误5处出现ActiveWorkbook.PivotCaches.Create
一行。
Sub Make_Pivot()
'
' Make_Pivot Macro
Sheets("Sheet1").Select
Columns("D:G").Select
Range("G1").Activate
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C4:R1048576C7", Version:=6).CreatePivotTable TableDestination:= _
"Pivot!R1C1", TableName:="PivotTable1", DefaultVersion:=6
Sheets("Pivot").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("NDL")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables(_
"PivotTable1").PivotFields("Tracking IDs"), "Count of Tracking IDs", xlCount
Columns("A:B").Select
Range("B1").Activate
Selection.Copy
Range("G13").Select
Sheets("Count").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F18").Select
End Sub
这是给我运行时错误91行“SrcData = .Range(”D1:J“和LastRow)” – Agrinthus
@ Agrinthus当你运行它时,'LastRow'的值是什么? –
我的列A,B,C是空的,并且数据在列DG中存在,直到第17行。(我在编辑代码时将J移至G) – Agrinthus