最近收到这么一个需求,excel表格里面我们只想要结果,不要把底表发出来,也就是把excel里面做好的数据粘贴在新的excel,并选择性粘贴为数值,并且保留格式。完成后发邮件给相应的经理老板们。在经过一系列跌跌撞撞,磕磕碰碰的错误下,写了个excel自动把特定的区域复制粘贴到新的excel的sheet中,并保留了数值和格式。Python操作excel的模块有千千万,本文只挑选了win32com.client来进行操作,如有其它模块的操作,记得艾特我学习一下!
启动excelPython启动excel的常规操作有两种:
第一种:
os.system(\'taskkill /IM EXCEL.exe /F\')
xlapp = Dispatch(\'Excel.Application\')
第二种:
os.system(\'taskkill /IM EXCEL.exe /F\')
xlapp = win32com.client.gencache.EnsureDispatch(\'Excel.Application\')
有什么区别呢?我也清楚得不仔细,EnsureDispatch的启动方式要求格式比较严格,方法必须首字母大写,最主要的是这种启动方式可以使用win32com.client里面的excelVBA常量constants,而普通Dispatch不可以完成,选择性粘贴PasteSpecial必须要用到constants的常量,故本文使用EnsureDispatch的方式启动excel。
然后使用Visible为true,表示工作簿可见,
xlapp.Visible = True
DisplayAlerts为False表示为关闭警告,比如在保存时候,提示我们已经有相同文件了,是否保存并覆盖,为false表示为不提示警告并覆盖此文件。
xlapp.DisplayAlerts = False
Win32com之工作簿工作表的操作打开指定路径wkb_path的excel文件,这里的wkb_path为全路径
wkb = xlapp.Workbooks.Open(wkb_path)
新建一个工作簿:
wkb_new = xlapp.Workbooks.Add()
保存工作簿:
wkb.Save() #保存已有的工作簿
wkb_new.SaveAs(new_path) #保存新的工作簿到指定的new_path下
新建一个工作表:
wkb_new.Worksheets.Add().Name = sheet_name
关闭工作簿:
wkb.Close()
xlapp.Quit()
退出excel应用程序
Win32com之单元格的操作这里first_range指定区域的第一个单元格
first_row = old_wkb_sheet.Range(first_range).Row #取得old_wkb_sheet表中单元格first_range的行
first_row = old_wkb_sheet.Range(first_range).Column #取得old_wkb_sheet表中单元格first_range的列
last_row = old_wkb_sheet.Range(first_range).End(-4121).Row #取得old_wkb_sheet表中单元格first_range的向下有数据区域的最大行
last_col = old_wkb_sheet.Range(first_range).End(-4161).Column #取得old_wkb_sheet表中单元格first_range的向右有数据区域的最大列
old_wkb_sheet.Range(current_range).Copy() # 复制old_wkb_sheet表中current_range区域的值
new_wkb_sheet.Range(current_range).Paste() # 粘贴到new_wkb_sheet表中current_range区域中,Paste为全粘贴,包括格式数值等等
****额外小延伸****
vba中的Paste有sheet的Paste和range的Paste,在进行跨表复制粘贴的时候,只能用sheet的Paste,而跨表粘贴,则需要先激活需要粘贴的工作表
old_wkb_sheet.Range(current_range).Copy()
new_wkb_sheet.Range(\'A1\').Select()
new_wkb_sheet.Range(new_current_range).Paste
当然,在用Paste的时候,会把包含格式公式的数据一起复制过去,但是这并不是想要的结果,事实上,我只想要数值和格式,这时候就需要用到PasteSpecial选择性粘贴了,
我们先了解下PasteSpecial有那些常量:
Paste xlPasteType常量,指定复制的具体内容。默认为全部复制。
全部 xlPasteAll
公式 xlPasteFormulas
数值 xlPasteValues
格式 xlPasteFormats
批注 xlPasteComments
验证 xlPasteValidation
所有使用源主题的单元 xlPasteAllUsingSourceTheme
边框除外 xlPasteAllExceptBorders
列宽 xlPasteColumnWidths
公式和数字格式 xlPasteFormulasAndNumberFormats
值和数字格式 xlPasteValuesAndNumberFormats
所有合并条件格式 xlPasteAllMergingConditionalFormats
Operation xlPasteSpecialOperation常量,指明粘贴时要进行的运算操作,即将复制的单元格中的数据与指定单元格区域中的值进行加减乘除运算。
无 xlPasteSpecialOperationNone
加 xlPasteSpecialOperationAdd
减 xlPasteSpecialOperationSubtract
乘 xlPasteSpecialOperationMultiply
除 xlPasteSpecialOperationDivide
而在python中要使用vba常量,则必须使用EnsureDispatch的启动方式,使用常量则要导入
from win32com.client import constants
那么来了,使用PasteSpecial来进行选择性粘贴,可以这样操作:
old_wkb_sheet.Range(current_range).Copy()
new_wkb_sheet.Range(\'A1\').Select()
new_wkb_sheet.Range(new_current_range).PasteSpecial(Paste = constants.xlPasteValues,Operation = constants.xlNone)
new_wkb_sheet.Range(new_current_range).PasteSpecial(Paste = constants.xlPasteFormats,Operation = constants.xlNone)
new_wkb_sheet.Range(new_current_range).PasteSpecial(Paste = constants.xlPasteColumnWidths,Operation = constants.xlNone)
这里我进行了三次粘贴,一次数值,一次格式,一次列宽,就可以完成只保留数值格式的操作,列宽只是为了让它完美好看。
****小延申****
那么怎么通过复制的方式,复制一张工作表呢?
首先选择要复制的工作表的全部数据进行复制:
wkb.Worksheets(sheetname).Cells.Copy()
激活新的工作表
wkb_new.Worksheets(sheetname).Select()
粘贴
wkb_new.Worksheets(sheetname).Paste()
*****************************************以下是完全的代码***********************************