Office中国论坛/Access中国论坛

标题: excel发送微信 [打印本页]

作者: access新新新手 时间: 2017-7-17 18:05
标题: excel发送微信
在excel论坛找到一个可以发送微信的列子，希望哪位大神可以改进下
Sub login()
Dim ie As InternetExplorer
Dim doc As HTMLDocument
Dim elementcol As IHTMLElementCollection
Dim element As IHTMLElement
Dim dWinFolder As New ShellWindows
Dim txt As New DataObject
Dim i%, n
'Application.ScreenUpdating = False
On Error Resume Next
'''''打开网页
Set ie = CreateObject("InternetExplorer.Application")
''''''打开微信网页版
ie.Navigate "https://wx2.qq.com/"
'''''显示微信
ie.Visible = True
'''    '延迟操作
Application.Wait (Now + TimeValue("0:00:02"))
Do Until ie.ReadyState = 4
      DoEvents
Loop
Set doc = ie.document
''''搜索
doc.getElementsByTagName("A")(3).Click
'''    '延迟操作
Application.Wait (Now + TimeValue("0:00:01"))
''''清空搜索
doc.getElementsByTagName("INPUT")(0).Focus
n = Sheets(1).[a655536].End(xlUp).Row
For i = 2 To n
      ''''搜索内容写入搜索框
      doc.getElementsByTagName("INPUT")(0).Value = Cells(i, 1).Value
      SendKeys "{BS}"
      Application.Wait (Now + TimeValue("0:00:01"))
      SendKeys "~"
      Application.Wait (Now + TimeValue("0:00:01"))
      txt.SetText Cells(i, 2).Value
      txt.PutInClipboard
      SendKeys "^v"
      SendKeys "~"
      Application.Wait (Now + TimeValue("0:00:01"))
      doc.getElementsByTagName("A")(3).Click
      Application.Wait (Now + TimeValue("0:00:01"))
      doc.getElementsByTagName("INPUT")(0).Focus
Next
MsgBox "已运行完毕"
Set element = Nothing
Set elementcol = Nothing
Set doc = Nothing
Set ie = Nothing
'Application.ScreenUpdating = True
End Sub
前提条件：请用IE登录好你的微信网页版

作者: tmtony 时间: 2017-7-17 21:21
这个应该不是使用接口开发的？

作者: access新新新手 时间: 2017-7-18 07:58

tmtony 发表于 2017-7-17 21:21
这个应该不是使用接口开发的？

在excel中测试可以发送微信，但是必须登陆微信网页版，才可以

看看可不可以改成access的，看看能不能不登陆就可以发送。

作者: roych 时间: 2017-7-18 14:28
你的意思是说改Ajax？得看微信有没有给API了。

作者: access新新新手 时间: 2017-7-18 14:55
本帖最后由 access新新新手于 2017-7-18 15:14 编辑

roych 发表于 2017-7-18 14:28
你的意思是说改Ajax？得看微信有没有给API了。

老师我的意思可不可以改成不需要打开微信网页版就可以发送
现在测试access也可以发送，就是不怎么稳定，有时候有发送不了

[attach]61773[/attach]

[attach]61774[/attach]

作者: roych 时间: 2017-7-18 14:58

access新新新手发表于 2017-7-18 14:55
老师我的意思可不可以改成不需要打开微信网页版就可以发送

但也要看微信有没有提供登录的接口。大约是发送一个用户名、密码字符串给服务器，等待服务器响应，然后达到登录的目的。

作者: access新新新手 时间: 2017-7-18 15:58

roych 发表于 2017-7-18 14:58
但也要看微信有没有提供登录的接口。大约是发送一个用户名、密码字符串给服务器，等待服务器响应，然后达 ...

太深奥了，搞不懂

作者: fan0217 时间: 2017-7-19 20:37
论坛里面我发布过在access中使用微信的文章，Excel中同样可以使用

作者: access新新新手 时间: 2017-7-20 09:37

fan0217 发表于 2017-7-19 20:37
论坛里面我发布过在access中使用微信的文章，Excel中同样可以使用

没有微信企业号测试不了

作者: fan0217 时间: 2017-7-21 15:51

access新新新手发表于 2017-7-20 09:37
没有微信企业号测试不了

显然用你那样的SendKeys的方式是不靠谱的

作者: access新新新手 时间: 2017-7-21 16:51

fan0217 发表于 2017-7-21 15:51
显然用你那样的SendKeys的方式是不靠谱的

这个只是玩玩，没有实际意义，呵呵。

作者: guowj_sqi 时间: 2019-3-12 11:16
学习学习！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)