Python执行选择性粘贴

参考：https://www.cnblogs.com/gujianjian/p/12660189.html

一、背景

软件版本：python3.7

pyhton IDE Pycharm。

需求说明：

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

复制方式为选择性粘贴。

二、卡点

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

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

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

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

5.sheet顺序。

三、代码

import os
import win32com
from win32com.client import Dispatch, constants


# 横坐标转换为数字
def colname_to_num(colname):
    if type(colname) is not str:
        return colname
    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
    return col


# 数字转换为横坐标
def column_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]


def wkb_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 in sheet_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 in sheet_dict.values()]
    if 'Sheet1' not in sheet_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:测试
icai"
path_a = r"D:测试
icai复制excel.xlsx"
wkb_copy(path, path_a, sheet_dict, 'ceshi.xlsx')

四、解决方案

对于卡点1和2：

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

对于卡点3：

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

对于卡点4：

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

对于卡点5：

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

五、补充说明

XlDirection常量	值	描述
xlDown	-4121	向下，相当于<Ctrl+向下键>
xlToRight	-4161	向右，相当于<Ctrl+向右键>
xlToleft	-4159	向左，相当于<Ctrl+向左键>
xlUP	-4126	向上，相当于<Ctrl+向上键>

加减乘除运算。

1. 无 xlPasteSpecialOperationNone
2. 加 xlPasteSpecialOperationAdd
3. 减 xlPasteSpecialOperationSubtract
4. 乘 xlPasteSpecialOperationMultiply
5. 除 xlPasteSpecialOperationDivide