LotusScript 建立Excel 樞紐分析表 ( Pivot Table)

阿舍之前，如果需要用 LotusScript 來建立 Excel 的樞紐分析表的時候，都是先用 Excel 建好巨集和範本，然後，在 Agent 裡面去啟動這個巨集，是還不錯用，不過，阿舍這次要做的只是一個很簡單、很簡單的樞紐分析表，阿舍實在懶得去弄個範本了，所以，就想要在 Agent 裡用 LotusScript 直接建立這個  Excel 的樞紐分析表哩 !

阿舍本來想說，直接把在 Excel 裡錄好的巨集拿來改就好了，結果咧 ! 有點小麻煩哩 ! 試了老半天還是弄不出來哩 ! 實在是有點小小的不爽哩 ! 算了，只能去問看看 G 先生囉 ! 阿舍找到這篇和這篇來參考，然後，就搞定了哩 !



假設阿舍的資料是上面這張圖的樣子，然後，想要產出像下面這張圖的Excel 樞紐分析表為例，程式碼如下：





Call xlsSheet.PivotTableWizard ( 1,"Sheet1!R1C2:R" &  Cstr(Rows) & "C2","","得分統計表")
'Rows 是程式產出的Excel列數
'第二個參數的 "Sheet1!R1C2:R" &  Cstr(Rows) & "C2"  是指出資料來源
'第三個參數給 "" 表示要將樞紐分析表建立在新的 Sheet
      
Dim PivotCache As Variant
Dim PivotTable As Variant
Dim PTSheet As Variant

'因為第三個參數是指定產在新的 Sheet，所以，要移到新建的 Sheet 才能操作樞紐分析表
Set PTSheet = xlsApp.ActiveSheet
Set PivotTable = PTSheet.PivotTables("得分統計表")
PivotTable.PivotFields("姓名").Orientation = "1"
       
With PivotTable.PivotFields("得分")
     .Orientation = "4"
     .Name = "得分統計表"
     .Function = "1"
End With
問題還是沒解決嗎 ?? 這裡有更多的 Ubuntu 相關教學可以參考哩 ...
買本阿舍寫的電子書帶走 - Ubuntu 指令新手馬上會用到的 35 個技法

好文不藏私，請多分享囉!! ^^=