在Lotus Notes中發揮與數據透視表
我終於在Lotus Notes中使用數據透視表的工作。 看來，你必須用數字來設置對象的一些字符串值。 例如，一個領域可以有一個支點功能（作為總和，AVG，MIN，MAX等）。 在VBA中，您應該輸入。 Function.xlAverage（不含引號），生成一個該領域的平均價值。 LotusScript中寫的是必要的。 功能=“2”（的的功能availalable列表的第三個元素，“0”開始計數）。 在一般情況下，如果你找到一個擁有多張價值選擇的屬性或方法，檢查OLE援助方案，並將其轉換成數字“0”開始的字符串文本。 你需要每個選項的具體範圍的試驗，以確保他們遵循的模式。
我也得到了一種享受，從現場虹膜票據不正確地貫徹執行擴展點符號。 你必須明確定義的各種對象，然後使用一些最低點格式。 你會發現下面的工作簿，工作表和數據透視表都定義為對象，而不是使用idividual WB.WS.PT. （方法或屬性）格式。 我回來了，我試圖與電子表格（1）類似的東西。 表（1）。 樞軸（1）。 和它的工作。
您還可以代替名字的書，表，數據透視表中控制等。 工作簿（1）。 工作表（“Sheet1中。”樞軸（TableNameHere）的。它的工作原理。簡單，對不對？總之，這裡有一些簡單的代碼創建一個現有的Excel電子表格中的數據透視表。在現實生活中，你要導出相應的數據，然後創建表。我希望這可以幫助別人絆倒周圍試圖找出如何寫OLE調用MS產品。
分點擊（來源為“按鈕）
昏暗的文件名作為字符串
昏暗xlApp為Variant
為Variant暗淡xlsheet
為Variant暗淡objWB
為Variant暗淡objWS
為Variant暗淡objPT
為Variant暗淡objRF
名的“H：\ pivot.xls”
設置xlApp =的CreateObject（“Excel.Application的”）
xlApp.Visible = TRUE'用戶可以看到Excel工作表。 設置為False，以保持它的無形
xlApp.Workbooks.open名
設置xlsheet = xlApp.Workbooks（1）。表（1）
xlsheet.Activate
GenPivotTable：
此代碼生成一個空的數據透視表
與xlsheet.PivotTableWizard
“。的sourceType =”1“不能找到一個源類型的屬性
。SourceData =（“Sheet1的R1C1：R11C5”）'設置數據源範圍
“TableRange2 =”Sheet2的R1C1：R20C3“。無法找到目標表的屬性，Excel將默認的數據透視表
“SheetMax＃+1
名稱=“AvgCycleTimeByArea”設置數據透視表的名稱
結尾
設置objWB = xlApp.Workbooks（1）
設置objWS = objWB.Worksheets（1）“=”選項卡中的地方工作簿，1 =上表
設置objPT = objWS.PivotTables（1）
“如果你在Excel中建立一個數據透視表和記錄的建設作為一個宏，你會看到一個命令，設置
“行字段。 該命令看起來像。AddFields.RowFields =“COL1”。 在LotusScript將無法正常工作。
以下表示節會生成一個單一的行字段。 我更喜歡使用更通用的代碼
低於此列出表示節
“objPT.AddFields（”COL1“）
“這個工程，並設置一個單一的行字段。 無法弄清楚如何設置多張行字段
或在columnField等其他激活addField值
“這是一個更通用的方式來設置行，列的數據，與頁字段
0 =隱藏2，1 =行字段，列字段，3 =“頁字段”，4 =數據字段
此代碼設置行和列字段的值。 它可以用來設置頁面領域以及
objPT.PivotFields（“COL1”）。定位=“1”行
objPT.PivotFields（“COL3”）。定位=“1”行
objPT.PivotFields（“COL4”）。定位=“2”列
（“COL2”與objPT.PivotFields）
。取向“4”'4 = xlDataField
名稱=“平均NumShifts號”
。功能=“2”'2 =平均
結尾
END SUB
11938觀眾觀看了31603次
