200分高分求解翻译以下VBA代码

Question

200分高分求解翻译以下VBA代码，不知道该怎么翻译成DELPHI语言？  ActiveSheet.PivotTableWizard SourceType:=xlPivotTable, SourceData:="数据透视表1" _
        , TableDestination:="[Lkady.xls]第3题!R10C8", TableName:="数据透视表2"
    ActiveSheet.PivotTables("数据透视表2").SmallGrid = False
    With ActiveSheet.PivotTables("数据透视表2").PivotFields("性别")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表2").PivotFields("职称")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表2").PivotFields("基本工资")
        .Orientation = xlDataField
        .Position = 1
    End With
    Range("H10").Select
    ActiveSheet.PivotTables("数据透视表2").PivotFields("求和项:基本工资").Function = xlMin
    Application.CommandBars("PivotTable").Visible = False
End Sub
特别是PivotTableWizard SourceType在DELPHI中是用什么代码表示？

Answer 1

这应该是一段往excel读/写数据的代码.

Answer 2

是，不知道如果用DELPHI控制应该怎么书写这一串代码？

Answer 3

换种问法:数据透视表属于WORKSHEET中的什么子对象?