从Excel向viber发送消息

问题描述

我想使用vba excel将excel与viber连接起来，但是在这段代码中，viber不会使用（ENTER）来打开对话以将消息发送到联系人中选定的电话号码。此代码在whatsapp中有效，但是不在viber中，我如何使此代码在viber中工作？

Dim contact As String

Dim text As String

u = Application.WorksheetFunction.CountA(Sheets("Sheet1").Range("a:a")) - 2

ActiveWorkbook.FollowHyperlink Address:="C:\Users\Acer\AppData\Local\Viber\Viber.exe"

Application.Wait (Now + TimeValue("00:00:12"))



For I = 0 To u

contact = Sheets("Sheet1").Range("b2").Offset(I,0).Value

text = Sheets("Sheet1").Range("c2").Offset(I,0).Value

Call SendKeys("{TAB}",True)

Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys(contact,True)

Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys("{ENTER}",True)

Application.Wait (Now + TimeValue("00:00:05"))

Call SendKeys(text,True)

Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("{ENTER}",True)

Application.Wait (Now + TimeValue("00:00:01"))

Call SendKeys("{TAB}",True)

Next I

请告诉我我在做什么错了。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）