如何使用VBA向WhatsApp群组发送消息

可以实现，你已有的向单个手机号发送消息的VBA逻辑无需大幅调整，仅需要替换接收方参数即可完成适配。

操作步骤 #

• 第一步：获取目标群组的专属ID
  打开WhatsApp网页版，进入目标群组后，浏览器地址栏的链接格式为https://web.whatsapp.com/，后方拼接的随机字符串即为群组ID；也可以通过群组「邀请链接」提取，邀请链接格式为https://chat.whatsapp.com/[群组ID]，取末尾的字符串即可。
• 第二步：修改原有VBA逻辑的调用参数
  将原逻辑中传入WhatsApp接口的手机号参数，替换为g-[群组ID]的格式即可，无需修改其他发送逻辑。
• 第三步：运行测试
  执行修改后的代码，确认群组收到消息即可根据需求做进一步优化。

参考代码示例 #

你可以基于自己原有的代码调整，以下是简化的参考实现：

Sub SendMsgToWhatsAppGroup()
    Dim ieObj As Object
    Dim targetGroupID As String
    Dim sendContent As String
    
    ' 替换为你实际获取的群组ID
    targetGroupID = "abc123XYZ456"
    ' 替换为需要发送的消息内容
    sendContent = "测试群组消息"
    
    Set ieObj = CreateObject("InternetExplorer.Application")
    ieObj.Visible = True
    ' 核心修改点：将phone参数替换为g-加群组ID
    ieObj.navigate "https://web.whatsapp.com/send?phone=g-" & targetGroupID & "&text=" & WorksheetFunction.EncodeURL(sendContent)
    
    ' 页面加载等待逻辑，和你原有的给个人发消息的逻辑一致即可
    Do While ieObj.Busy Or ieObj.readyState <> 4
        DoEvents
    Loop
    ' 可根据实际设备加载速度调整等待时长
    Application.Wait (Now + TimeValue("00:00:06"))
    ' 模拟回车发送，也可替换为你原有逻辑中点击发送按钮的实现
    SendKeys "~", True
    
    ieObj.Quit
    Set ieObj = Nothing
End Sub

注意事项 #

• 你登录WhatsApp网页版的账号必须已经加入目标群组，否则会提示接收方不存在，无法发送
• 不要短时间内高频发送大量消息，避免触发WhatsApp的反垃圾机制导致账号受限
• 如果页面加载速度较慢，可适当延长代码中的等待时长，避免执行发送动作时页面还未加载完成

内容的提问来源于stack exchange，提问作者Mike087