求问各位大佬，vba把文件自动发送到微信，应该怎么写呀

天舞·紫嫣

现在能实现的是从第三行开始，A列昵称，B列内容，可以发送到微信，但是不知道怎么发文件和单元格范围截图发送，求问大佬应该怎么写

1. Sub 自动发微信()
   
2.     Dim Irow As Long
   
3.     Shell "D:\我的程序\WeChat\WeChat.exe" '微信程序地址
   
4.     Irow = 3 '发送记录的起始行
   
5.     Do While Cells(Irow, "A").Value <> ""
   
6.         SendKeys "^f"
   
7.         Application.Wait (Now() + TimeSerial(0, 0, 1))
   
8.         SendKeys Range("A" & Irow)
   
9.         Application.Wait (Now() + TimeSerial(0, 0, 1))
   
10.         SendKeys "{Enter}"
    
11.         Application.Wait (Now() + TimeSerial(0, 0, 1))
    
12.         SendKeys Range("B" & Irow)
    
13.         Application.Wait (Now() + TimeSerial(0, 0, 1))
    
14.         SendKeys "{Enter}"
    
15.         Irow = Irow + 1
    
16.     Loop
    
17. End Sub

复制代码

业务员

这个我要好好学，要发QQ文件

sj15627581616

Cells(1, 1).CopyPicture 复制单元格为图片 具体范围自己用Range修改，至于文件，翻下论坛，有写文件到剪切板的代码，图片也好，文件也好，都可以黏贴到窗口发送

天舞·紫嫣

业务员 发表于 2023-2-18 21:53
这个我要好好学，要发QQ文件

qq文件你搜搜，好像有例子

smiletwo

参考huang1314wei版主的帖子

https://club.excelhome.net/thread-1630549-1-1.html
写了个发送祝福语和图片的
https://club.excelhome.net/thread-1651705-1-1.html

稍加修改，应该能实现你的目的

天舞·紫嫣

smiletwo 发表于 2023-2-19 22:17
参考huang1314wei版主的帖子

https://club.excelhome.net/thread-1630549-1-1.html

谢谢，啊我看一下