各位仁兄，快帮我看看这个数据透视表的代码错在哪了呀？

lindah

谢谢大家，数据透视表已经完整的出来了，多谢各位的帮助！

可还有一个问题，就是我不知道这个数据表倒底是多少行，所以用A1:I1311这样的表示方法不行的，我试了Sheet1![a1].currentregion，可是不行呀，上面说“引用无效”，再请各位指点，谢谢！

lindah

谢谢大家，我终于弄出来了，好开心，谢谢你们！！！！

Dim ptquantity As PivotTable
Set ptquantity = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Worksheets("Sheet1").Cells(1, 1).CurrentRegion).CreatePivotTable(TableDestination:="")

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select

ptquantity.SmallGrid = False

With ptquantity.PivotFields("document no")
.Orientation = xlRowField
.Position = 1
End With
With ptquantity.PivotFields("quantity")
.Orientation = xlDataField
.Position = 1
.Function = xlSum
End With

nawong

Good girl !

lindah

hehe,都是大家帮的忙，多谢了！

我的程序又出问题了，我又新发了一个贴，大家多帮忙呀！！！谢谢：）