2011-06-08

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

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

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

DataSource

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

PivotTable



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 指令新手會用到的35個技法 - 這是以阿舍的使用經驗編寫出來的電子書,三天內應該就看的完,學的起來哩 ! 有空就參考一下囉 ! ... ^^=

關於阿舍

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



沒有留言 :

張貼留言

如果留言後,發現留言不見了,這通常是因為 Goolge 把它認為是垃圾留言了,請用信件通知阿舍調整 ( ayubiz@gmail.com )。謝謝 !