2016-11-29 218 views
0

使用Python和win32com:Python:根据之前单元格中的公式自动填充Excel中的单元格

我在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

尝试

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

我正在 “导入错误:没有模块名为win32.constants”。 – user2653179

+0

但是你的回答帮助我解决了这个问题:我需要从第二部分的开头开始范围(在AutoFill中)“xlSheet_to_final.Range(”A53:A54“)。AutoFill(xlSheet_to_final.Range(”A53:A61 “),xlFillDefault)”。谢谢! – user2653179

+0

很高兴听到。错字,它应该是win32com.constants,修正。 – Schollii

相关问题