如何运行python 复制粘贴_Python执行选择性粘贴

一、背景

软件版本：python3.7

pyhton IDE Pycharm。

需求说明：

需要将excel中的某个区域复制到指定区域。

复制方式为选择性粘贴。

二、卡点

1.excel的表格出现断点，无法形成连续区域

2.excel虽然是连续区域，但是因为开始的单元格为合并单元格，会把不需要的区域复制进来。

3."Sheet1"为新建excel是自带的sheet，可能会和需要复制的sheet(叫"Sheet1")造成冲突，并且最后可能需要将"Sheet1"删除。

4.粘贴区域与复制区域大小与范围。

5.sheet顺序。

三、代码

importosimportwin32comfrom win32com.client importDispatch, constants#横坐标转换为数字

defcolname_to_num(colname):if type(colname) is notstr:returncolname

col=0

power= 1

for i in range(len(colname) - 1, -1, -1):

ch=colname[i]

col+= (ord(ch) - ord(‘A‘) + 1) *power

power*= 26

returncol#数字转换为横坐标

defcolumn_to_name(colnum):#返回数字对应的excel列的位置， 比如2返回B, 27返回AA

if type(colnum) is not int or colnum <=0:return ‘请输入正整数‘str= ‘‘

while (colnum >0) :

temp= 25

if (colnum % 26 ==0):

str+= chr(temp + 65)

colnum-= 1

else:

str+= chr(colnum % 26 - 1 + 65)

colnum//= 26

#print(str)

return str[::-1]defwkb_copy(path, path_wkb, sheet_dict, newwkb_name):

os.system(‘taskkill /IM EXCEL.exe /F‘)

xlapp= win32com.client.gencache.EnsureDispatch(‘Excel.Application‘)

xlapp.Visible=True

xlapp.DisplayAlerts= False #关闭警告

wkb =xlapp.Workbooks.Open(path_wkb)print(‘文件【{}】已打开！‘.format(path_wkb))

wkb_new=xlapp.Workbooks.Add()

new_path= path + ‘\\{}‘.format(newwkb_name)print(newwkb_name)

wkb_new.SaveAs(new_path)

wkb_new.Close(1)

wkb_new=xlapp.Workbooks.Open(new_path)for key, value insheet_dict.items():

sheet_name= value[‘sheetname‘]

first_range= value[‘数据区域首行首列‘]

first_cell= value[‘开始扩展单元格‘]

old_wkb_sheet=wkb.Worksheets(sheet_name)if sheet_name == ‘Sheet1‘: #判读"Sheet1"的情况

new_wkb_sheet =wkb_new.Worksheets(sheet_name)else:

wkb_new.Worksheets.Add().Name=sheet_name

new_wkb_sheet=wkb_new.Worksheets(sheet_name)

first_row=old_wkb_sheet.Range(first_range).Row

first_col=old_wkb_sheet.Range(first_range).Column

last_row= old_wkb_sheet.Range(first_cell).End(-4121).Row #想右扩展

last_col = old_wkb_sheet.Range(first_cell).End(-4161).Column #想下扩展

last_range = column_to_name(last_col) +str(last_row)

old_range= first_range + ‘:‘ + last_range #获得复制区域

print(‘当前复制单元格区域为：{}‘.format(old_range))

new_range= ‘A1‘ + ‘:‘ + column_to_name(last_col - first_col +1) + str((last_row - first_row + 1))#在新表中从A1开始复制,如果是B1开始复制；当粘贴为数值时，没有影响；但粘贴为格式等其他形式会造成影响。

#可在excel中自己体会各种粘贴的形式

print(‘当前粘贴单元格区域为：{}‘.format(new_range))

old_wkb_sheet.Range(old_range).Copy()#复制旧区域

#new_wkb_sheet = wkb_new.Worksheets(sheet_name) # 再次选中目标sheet;如果中间没有选择其他sheet,可不执行此操作。

new_wkb_sheet.Range(new_range).PasteSpecial(Paste=constants.xlPasteValues, Operation=constants.xlNone)

new_wkb_sheet.Range(new_range).PasteSpecial(Paste=constants.xlPasteFormats, Operation=constants.xlNone)

new_wkb_sheet.Range(new_range).PasteSpecial(Paste=constants.xlPasteColumnWidths,Operation=constants.xlNone)print(‘复制完成：{}‘.format(sheet_name))

wkb.Worksheets(sheet_dict[‘sheet0‘][‘sheetname‘]).Cells.Copy()

wkb_new.Worksheets(sheet_dict[‘sheet0‘][‘sheetname‘]).Range(‘A1‘).Select() #必须放在A1未知

wkb_new.Worksheets(sheet_dict[‘sheet0‘][‘sheetname‘]).Paste()

sheet_name_list= [ value[‘sheetname‘] for value insheet_dict.values()]if ‘Sheet1‘ not insheet_name_list:

wkb_new.Worksheets(‘Sheet1‘).Delete()

wkb.Save()

wkb_new.Save()

wkb.Close(1)

wkb_new.Close(1)

xlapp.Quit()print(‘#更新 成功:%s‘ %path_wkb)

sheet_dict= {‘sheet3‘: {‘sheetname‘: ‘Sheet1‘,‘数据区域首行首列‘: ‘A1‘,‘开始扩展单元格‘: ‘A1‘},‘sheet1‘: {‘sheetname‘: ‘测试1‘,‘数据区域首行首列‘: ‘A5‘,‘开始扩展单元格‘: ‘A7‘},‘sheet2‘: {‘sheetname‘: ‘测试2‘,‘数据区域首行首列‘: ‘B16‘,‘开始扩展单元格‘: ‘B16‘},‘sheet0‘: {‘sheetname‘: ‘全复制‘,‘数据区域首行首列‘: ‘C9‘,‘开始扩展单元格‘: ‘C9‘}

}

path= r"D:\测试\nicai"path_a= r"D:\测试\nicai\复制excel.xlsx"wkb_copy(path, path_a, sheet_dict,‘ceshi.xlsx‘)

四、解决方案

对于卡点1和2：

可以将excel的扩展区域和起始区域进行分离。

对于卡点3：

用进行判定然后执行对应的操作即可。

对于卡点4：

在excel中体会各种粘贴形式的不同。

对于卡点5：

虽说字典是无序的，但是执行操作时发现，新建的表格中的sheet顺序与字典sheet_dict“”中的书写顺序相反。

五、补充说明

XlDirection常量

值

描述

xlDown

-4121

向下，相当于

xlToRight

-4161

向右，相当于

xlToleft

-4159

向左，相当于

xlUP

-4126

向上，相当于

加减乘除运算。

无 xlPasteSpecialOperationNone

加 xlPasteSpecialOperationAdd

减 xlPasteSpecialOperationSubtract

乘 xlPasteSpecialOperationMultiply

除 xlPasteSpecialOperationDivide

原文：https://www.cnblogs.com/qianslup/p/12698137.html