excel发送微信

access新新新手

在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

这个应该不是使用接口开发的？

access新新新手

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

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

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

roych

你的意思是说改Ajax？得看微信有没有给API了。

access新新新手

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

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

roych

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

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

access新新新手

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

太深奥了，搞不懂

fan0217

论坛里面我发布过在access中使用微信的文章，Excel中同样可以使用

access新新新手

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

没有微信企业号测试不了

fan0217

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

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