☰

Excel 向 WhatsApp 发送短信

tag-icon • tag-icon microsoft-excel vba macros whatsapp
Excel 向 WhatsApp 发送短信

我正在使用以下代码从 Excel（版本 2019/Windows 10）发送短信

一系列 Excel 公式在 R2 单元格生成 WhatsApp 链接（例如https://api.whatsapp.com/send?phone=911234567809&text=ABCDEFGH：）

Sub send_msg()

Range("R2").Activate
Do Until ActiveCell.Value = ""

ActiveWorkbook.FollowHyperlink Address:="" & ActiveCell.Value
Application.Wait Now() + TimeSerial(0, 0, 10)
SendKeys "~"

ActiveCell.Offset(1, 0).Activate
Loop
End

End Sub

执行上述代码时我面临以下问题

  1. 一些消息没有送达，即跳到下一个号码（即使所有号码都保存在 WhatsApp 联系人中）
  2. 每次代码都会打开 Whatsapp 网页的新选项卡，而不是使用已经打开的 WhatsApp 网页选项卡（Edge 是默认的网页浏览器，并且还安装了 WhatsApp 桌面）

我该如何解决上述两个问题

提前致谢

相关内容