如何用vba控制通过微信将内容发送到指定人员

zhaojx1

我在设想，现在手机是人不离手，微信已经成为通用的信息平台，是否可以通过VBA将单元格的内容用微信的方式发送到指定人员。这样可以提高信息的交流速度。

huang1314wei

可以的，你打电话给马化腾，叫他给把API给你一下

funsz

你可以用电脑上的网页版微信，然后用VBA一步步模拟手工操作，你可以尝试下，但是不灵活，你自己看着办吧
你可以去论坛找下网页抓取小工具，然后再网页版微信打开状态下，抓下数据，然后你就自己玩吧

funsz

发聊天-微信.rar (21.35 KB, 下载次数: 1597)

2015-11-13 17:35 上传

点击文件名下载附件

这个是通过网页版的微信发消息，模拟人操作，
要事先用IE登陆好网页微信
运行过程无法干其他事情
纯属娱乐之用

dengni

Sub test1()   
    Dim http
    Set http = CreateObject("MSXML2.ServerXMLHTTP")'用别的会乱码
    str1 = "https://qyapi.weixin.qq.com/cgi-bin/user/create?access_token=自己的token"
    http.Open "POST", str1, False
    str1 = "{" & """UserId""" & ":" & """zh0002""" & "," & """name""" & ":" & """王小二""" & "," & """mobile""" & ":" & """13922850000""" & "}"
    http.send str1
    If http.Status = 200 Then MsgBox http.responseText
End Sub
上面是一个发送关注邀请的例子。 关键点在取自己的token。发送信息用https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token=ACCESS_TOKEN这个地址

取token
    Dim http
    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    str1 = "https://qyapi.weixin.qq.com/cgi-bin/gettoken?corpid=CorpID&corpsecret=secrect"

corpid	是	企业Id
corpsecret	是	管理组的凭证密钥

    http.Open "get", str1, False
    http.send “”
   If http.Status = 200 Then MsgBox http.responseText
从http.responseText这里面分解出token，提取出token后就参照可以参照 http://qydev.weixin.qq.com/wiki/ ... =%E9%A6%96%E9%A1%B5 的各种操作。
token每天能取2000次，7200秒过期。

操作不复杂，就是字符的提取、转化错误的处理烦锁。已经成功使用。

misshuanghm

funsz 发表于 2015-11-13 17:36
这个是通过网页版的微信发消息，模拟人操作，
要事先用IE登陆好网页微信
运行过程无法干其他事情

太棒了，使用了你的这个，现在还在测试中，谢谢

misshuanghm

funsz 发表于 2015-11-13 17:36
这个是通过网页版的微信发消息，模拟人操作，
要事先用IE登陆好网页微信
运行过程无法干其他事情

你好，应该也可以是确定某个空格符合某条件之后才触发发消息指令，这样可以的吧，VBA不熟，只好请教你

funsz

misshuanghm 发表于 2016-7-29 11:39
你好，应该也可以是确定某个空格符合某条件之后才触发发消息指令，这样可以的吧，VBA不熟，只好请教你

没太看懂什么意思？本来做这个就是娱乐用的，没多大实用价值，真要完成很高的智能化，那真的要和微信有接口

misshuanghm

funsz 发表于 2016-8-1 09:27
没太看懂什么意思？本来做这个就是娱乐用的，没多大实用价值，真要完成很高的智能化，那真的要和微信有接 ...

就是说你现在这个是用按钮按一下触发这个批量发送消息的指令，我需要的是当空格满足条件（比如说这个空格的数大于8的时候）才触发这个指令

funsz

misshuanghm 发表于 2016-8-1 17:23
就是说你现在这个是用按钮按一下触发这个批量发送消息的指令，我需要的是当空格满足条件（比如说这个空格 ...

空格满足，是指表格里的空格？如果你要实现什么，最好拿实际案例说，不然真不太懂，你要什么效果