把这段excel录制的宏代码,转成javascript的代码?

Question

Sub 枢纽报表1()
'
' 枢纽报表1 Macro
' 宏由 charles 录制，时间: 2007/6/15
''
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C1:R7C6").CreatePivotTable TableDestination:="", TableName:= _
        "数据透视表1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("数据透视表1").ColumnGrand = False
    ActiveSheet.PivotTables("数据透视表1").AddFields RowFields:=Array("销售员", "数据"), _
        ColumnFields:="日期", PageFields:="产品类别"
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("数量")
        .Orientation = xlDataField
        .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表1").PivotFields("总计").Orientation = xlDataField
    ActiveWorkbook.ShowPivotTableFieldList = True
End Sub

Answer 1

var xxx=new ActiveXObject("excel.application");对了你服务端客户端??还有剩下的你只需要用xxx对象去弄就好了......不过vba编程有n多陷阱,小心吧.