VFP 愛用者社區

[YINMEI]

下面程式是我在Excel錄製巨集出來的程式碼，但是不知道新增樞紐分析表在VFP中怎麼新增，想請各位幫幫忙....感謝大家
Sub Macro1()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= "'123'!R1C1:R4C6").CreatePivotTable TableDestination:="", TableName:= "樞紐分析表1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet
Sheets("Sheet1").Select
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("id")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("skill")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("樞紐分析表1").AddDataField ActiveSheet.PivotTables("樞紐分析表1").PivotFields("hiredon"), "計數 的hiredon", xlCount
With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("name")
.Orientation = xlRowField
.Position = 2
End With
End Sub