如何通过win32com代码修改Excel数据透视表的三项布局设置?
Win32COM Excel透视表布局修改实现
我已通过以下Win32COM代码成功生成一张数据透视表:
pivot_table_cell = ws2.Cells(15,15) pivot_table_range = ws2.Range(pivot_table_cell, pivot_table_cell) pivot_table_name = 'AddCosts' pivot_cache = wb.PivotCaches().Create(SourceType=win32c.xlDatabase, SourceData=ws1.UsedRange) pivot_table = pivot_cache.CreatePivotTable(TableDestination = pivot_table_range, TableName = pivot_table_name) pivot_table.PivotFields('Supplier').Orientation = win32c.xlRowField pivot_table.PivotFields('BPO#').Orientation = win32c.xlRowField pivot_table.PivotFields('SPL').Orientation = win32c.xlRowField pivot_table.PivotFields('Country').Orientation = win32c.xlRowField pivot_table.PivotFields('Currency').Orientation = win32c.xlRowField ws2.PivotTables(pivot_table_name).AddDataField(ws2.PivotTables(pivot_table_name).PivotFields('Case ID'), Caption = 'Count of Case ID', Function=win32c.xlCount).NumberFormat = '0' ws2.PivotTables(pivot_table_name).AddDataField(ws2.PivotTables(pivot_table_name).PivotFields('Labor Rate'), Caption = 'Sum of Labor Rate', Function=win32c.xlSum).NumberFormat = '{0} #.##0,00'.format(cur) ws2.PivotTables(pivot_table_name).AddDataField(ws2.PivotTables(pivot_table_name).PivotFields('Logistic Rate'), Caption = 'Sum of Logistics Rate', Function=win32c.xlSum).NumberFormat = '{0} #.##0,00'.format(cur) ws2.PivotTables(pivot_table_name).AddDataField(ws2.PivotTables(pivot_table_name).PivotFields('Material Fee'), Caption = 'Sum of Material Fee', Function=win32c.xlSum).NumberFormat = '{0} #.##0,00'.format(cur) ws2.PivotTables(pivot_table_name).AddDataField(ws2.PivotTables(pivot_table_name).PivotFields('Additional Costs'), Caption = 'AdditionalCosts', Function=win32c.xlSum).NumberFormat = '{0} #.##0,00'.format(cur) ws2.PivotTables(pivot_table_name).AddDataField(ws2.PivotTables(pivot_table_name).PivotFields('Total Rate'), Caption = 'Total', Function=win32c.xlSum).NumberFormat = '{0} #.##0,00'.format(cur)
现需实现三项布局修改,使透视表达到目标效果:
- 不显示分类汇总
- 设置为表格形式布局
- 重复所有项目标签
实现代码
在原透视表生成代码的末尾添加以下代码即可完成所有修改:
# 1. 关闭所有行字段的分类汇总 for field in pivot_table.RowFields: field.Subtotals = [False] * 12 # 关闭Excel所有12种分类汇总类型 # 2. 设置透视表为表格形式布局 pivot_table.RowAxisLayout(win32c.xlTabularRow) # 3. 重复所有行项目标签 pivot_table.RepeatAllLabels(win32c.xlRepeatLabels)
代码说明
- 关闭分类汇总:遍历所有行字段,将
Subtotals设置为全False数组,确保所有类型的分类汇总都被关闭。 - 表格形式布局:调用
RowAxisLayout方法并传入xlTabularRow参数,切换到表格布局样式。 - 重复项目标签:调用
RepeatAllLabels方法并传入xlRepeatLabels参数,实现所有行标签的重复显示。
内容的提问来源于stack exchange,提问作者JavierdeDiosG.
相关产品推荐
相关产品推荐

