Python:根据先前单元格中的公式在Excel中自动填充单元格

时间:2016-11-29 14:31:08

标签: python excel win32com

使用Python和win32com:

我在Excel文件中有一个公式,在单元格A5:A54。我试图用根据相同公式的值填充单元格A55:A61。我在网上搜索过,发现了这个: http://pythonexcels.com/python-excel-mini-cookbook/

从链接引用: "此脚本使用Excel的自动填充功能检查单元格A1和A2中的数据,然后通过A10自动填充剩余的单元格列。"链接中的代码:

#
# Autofill cell contents
#
import win32com.client as win32
excel = win32.gencache.EnsureDispatch('Excel.Application')
wb = excel.Workbooks.Add()
ws = wb.Worksheets("Sheet1")
ws.Range("A1").Value = 1
ws.Range("A2").Value = 2
ws.Range("A1:A2").AutoFill(ws.Range("A1:A10"),win32.constants.xlFillDefault)
wb.SaveAs('autofill_cells.xlsx')
excel.Application.Quit()

所以我在我的代码中尝试了它:

from win32com.client import Dispatch      
from win32com.client import constants
import os  
from Tkinter import Tk
from tkFileDialog import askopenfilename
import win32com.client as win32
xlApp = Dispatch("Excel.Application")



...  
print "Choose the excel file that you want to copy the data to"
Tk().withdraw() 
filename_to = askopenfilename()
xlBook_to = xlApp.Workbooks.Open(filename_to) 
xlApp.Visible=1  
xlSheet_to_final = xlBook_to.Sheets(1)  
xlBook_to.Activate()

xlSheet_to_final.Range("A53:A54").Select()         

xlSheet_to_final.Range("A53:A54").AutoFill(xlSheet_to_final.Range("A55:A61"),win32.constants.xlFillDefault)

我收到了这个错误:

File "C:\Users\<user>\excel_test.py", line 74, in <module>
  xlSheet_to_final.Range("A53:A54").AutoFill(xlSheet_to_final.Range("A55:A61"),win32.constants.xlFillDefault)
File "C:\Python27\Lib\site-packages\win32com\gen_py\00020813-0000-0000-C000-000000000046x0x1x8\Range.py", line 66, in AutoFill
  , Type)
File "C:\Python27\Lib\site-packages\win32com\client\__init__.py", line 459, in _ApplyTypes_
  self._oleobj_.InvokeTypes(dispid, 0, wFlags, retType, argTypes, *args),

pywintypes.com_error: (-2147352567, 'Exception occurred.', (0, u'Microsoft Excel', u'AutoFill method of Range class failed', u'xlmain11.chm', 0, -2146827284), None)

我该如何解决?如何在以下单元格中应用先前单元格的公式?

1 个答案:

答案 0 :(得分:1)

尝试

from win32com.constants import xlFillDefault
....
xlSheet_to_final.Range("A53:A54").AutoFill(xlSheet_to_final.Range("A53:A61"), xlFillDefault)