使用python的数据透视表win32com。

Question

我尝试用Python制作excel文件。为此我使用了win32com，因为这似乎是制作数据透视表的最好方法（pandas不是一个好的解决方案），但我有一些麻烦。

首先，当我试图在Sheet上制作一个数据透视表时，在那里已经有一个数据透视表，我有一个错误信息。

Traceback (most recent call last):

  File "<ipython-input-55-62ca0c0e21ec>", line 1, in <module>
    PivotTable = PivotCache.CreatePivotTable(TableDestination=PivotTargetRange, TableName=PivotTableName, DefaultVersion=win32c.xlPivotTableVersion14)

  File "C:\Users\LPLOUV~1\AppData\Local\Temp\gen_py\3.7\00020813-0000-0000-C000-000000000046x0x1x9\PivotCache.py", line 45, in CreatePivotTable
    , TableName, ReadData, DefaultVersion)

com_error: (-2147352567, 'Une exception s’est produite.', (0, None, None, None, 0, -2146827284), None)

其次，我需要重新制作一些已经存在的数据透视表，所以我需要从Sheet中删除一些数据透视表，但我不知道如何才能做到这一点。

在这之前，我使用这个代码。

import os
import win32com.client
import time



time_first = time.time()

os.chdir(r'C:\Users\msmith\Desktop')




Excel   = win32com.client.gencache.EnsureDispatch('Excel.Application') # Excel = win32com.client.Dispatch('Excel.Application')

win32c = win32com.client.constants

wb = Excel.Workbooks.Open('excel_file.xlsx')

Sheet1 = wb.Worksheets("Sheet1")
Sheet2 = wb.Worksheets("Sheet2")

xldata = Sheet1.UsedRange.Value
data_pivot = xldata[:24291]


cl1 = Sheet1.Cells(1,1)
cl2 = Sheet1.Cells(1+len(data_pivot)-1,1+len(data_pivot[0])-1)
PivotSourceRange = Sheet1.Range(cl1,cl2)

cl3=Sheet2.Cells(200,200)
PivotTargetRange=  Sheet2.Range(cl3,cl3)
PivotTableName = 'ReportPivotTable'


PivotCache = wb.PivotCaches().Create(SourceType=win32c.xlDatabase, SourceData=PivotSourceRange, Version=win32c.xlPivotTableVersion14)

PivotTable = PivotCache.CreatePivotTable(TableDestination=PivotTargetRange, TableName=PivotTableName, DefaultVersion=win32c.xlPivotTableVersion14)


PivotTable.PivotFields('A').Orientation = win32c.xlRowField
PivotTable.PivotFields('A').Position = 1
PivotTable.PivotFields('B').Orientation = win32c.xlPageField
PivotTable.PivotFields('B').Position = 1
PivotTable.PivotFields('B').CurrentPage = 'b'
PivotTable.PivotFields('C').Orientation = win32c.xlPageField
PivotTable.PivotFields('C').Position = 2
PivotTable.PivotFields('C').CurrentPage = 5

PivotTable.PivotFields('D').Orientation = win32c.xlPageField
PivotTable.PivotFields('D').Position = 1
PivotTable.PivotFields('D').CurrentPage = 'd'




PivotTable.PivotFields('E').Orientation = win32c.xlPageField
PivotTable.PivotFields('E').Position = 3
PivotTable.PivotFields('E').CurrentPage = "(All)"
PivotTable.PivotFields('D').Orientation = win32c.xlColumnField
PivotTable.PivotFields('D').Position = 1



DataField = PivotTable.AddDataField(PivotTable.PivotFields('F'), Function = win32c.xlSum)
DataField = PivotTable.AddDataField(PivotTable.PivotFields('G'), Function = win32c.xlSum)

wb.SaveAs('excel_file.xlsx')
Excel.Application.Quit()

Answer 1

我想你的数据中有一个空白字段。例如，你的数据中有一个空白字段。

这将给你带来错误。

这不会。