| 我真的是服了，一堆复制党到处粘贴，也太肆无忌惮了吧，麻烦尊尊下版权好吗，好歹这也是我辛辛苦苦写出来的...... | |
| 原封不动的抄，错了的也不知道。真的是搞笑！ |
1 import os 2 import win32gui, win32api, win32con, win32com 3 from win32com.client import Dispatch 4 from PIL import ImageGrab,Image 5 from time import sleep 6 import pyperclip 7 8 # 调用win32api的模拟点击功能实现ctrl+v粘贴快捷键 9 def ctrlV(): 10 win32api.keybd_event(17,0,0,0) #ctrl键位码是17 11 win32api.keybd_event(86,0,0,0) #v键位码是86 12 win32api.keybd_event(86,0,win32con.KEYEVENTF_KEYUP,0) #释放按键 13 win32api.keybd_event(17,0,win32con.KEYEVENTF_KEYUP,0) 14 15 # 调用win32api的模拟点击功能实现alt+s微信发送快捷键 （可以根据自己微信发送快捷键是什么来进行调整） 16 def altS(): 17 win32api.keybd_event(18, 0, 0, 0) #Alt 18 win32api.keybd_event(83,0,0,0) #s 19 win32api.keybd_event(83,0,win32con.KEYEVENTF_KEYUP,0) #释放按键 20 win32api.keybd_event(18,0,win32con.KEYEVENTF_KEYUP,0) 21 22 # 调用win32gui调用桌面窗口，获取指定窗口句柄id,激活窗口 ，向函数传递窗口名称to_weixin 23 def wx_send(to_weixin): 24 for i in range(0,len(to_weixin)): 25 hw = win32gui.FindWindow(None, to_weixin[i]) # 获取窗口句柄 26 win32gui.GetClassName(hw) # 获取窗口classname 27 title = win32gui.GetWindowText(hw) # 获取窗口标题 28 win32gui.GetDlgCtrlID(hw) 29 win32gui.SetForegroundWindow(hw) # 激活窗口 30 sleep(1) 31 ctrlV() 32 sleep(1) 33 altS() 34 35 # 使win32调用excel,刷新数据，并发送微信，refreshall刷新excel的所有数据来源，我的数据来源是pq搭建的链接数据库的模型，也可以搭载爬虫的数据，这样就可以完成自动刷新数据并发送微信的操作，解放双手更多的时间来学习 36 def wkb_Operate(class_picture,wkb_path,sleep_time): 37 os.system('taskkill /IM EXCEL.exe /F') 38 xlapp = win32com.client.gencache.EnsureDispatch('Excel.Application') 39 xlapp.Visible = 1 40 xlapp.DisplayAlerts = False # 关闭警告 41 wkb = xlapp.Workbooks.Open(wkb_path) 42 wkb.RefreshAll() 43 sleep(sleep_time) 44 print('文件【{}】已打开！'.format(wkb_path)) 45 try: 46 for key,vlaue in class_picture.items(): 47 48 to_weixin = class_picture[key]['发送群'] 49 to_sontent = class_picture[key]['发送文本'] 50 sheet_name = class_picture[key]['sheetname'] 51 range_pic = class_picture[key]['图片区域'] 52 53 pyperclip.copy(to_sontent) 54 wx_send(to_weixin) 55 56 sheet_msg = wkb.Worksheets(sheet_name) 57 sheet_msg.Range(range_pic).CopyPicture() 58 wkb.Worksheets.Add().Name = 'picture' 59 sheet_picture = wkb.Worksheets('picture') 60 sleep(1) 61 sheet_picture.Range('A1').Select() 62 sheet_picture.Paste() 63 sleep(1) 64 xlapp.Selection.ShapeRange.Name = 'pic_name' 65 sheet_picture.Shapes('pic_name').Copy() 66 sleep(1) 67 img = ImageGrab.grabclipboard() 68 sleep(1) 69 wx_send(to_weixin) 70 wkb.Worksheets('picture').Delete() 71 print('#粘贴 成功:%s',sheet_name) 72 except BaseException as e: 73 print(e) 74 pass 75 wkb.Save() 76 wkb.Close(1) 77 xlapp.Quit() 78 print('#更新 成功:%s' % wkb_path) 79 pass 80 # *********************主程序，大致方向是，1、调用wkb_Operate刷新函数刷新exce数据，并返回文本数据播报内容， 81 #2、调用wx_send激活微信窗口，3、ctrlV()，altS()模拟粘贴发送功能，4、调用excel_picture函数，截图到剪切板上，并调用wx_send（），ctrlV()，altS()微信发送图片 82 # 微信发送窗口，必须保持一致，按照此名字识别，否则发送不会成功****（抄袭可耻！！作者：故笺）** 83 84 # 文件路径： 85 path_process = r"C:\Users\1\Desktop\备份\YTshuaxin\hour\2020年新流水监控表.xlsx" # 文件夹路径 86 87 #*********主程序***************# 88 class_picture1 = {'pic1':{'发送群':['管理团队','数据中心'], 89 'sheetname':'日监控', 90 '图片区域':'a1:Al50', 91 '发送文本':'截止到目前的流水和PK情况'}} 92 wkb_Operate(class_picture1,path_process,8)