MacOS下Excel VBA ActiveX组件无法创建对象，如何实现Slack消息推送？

你遇到的“ActiveX组件无法创建对象”错误，是因为Mac版Excel不支持MSXML2.XMLHTTP这类Windows专属的ActiveX组件。以下两种方案可以解决这个问题：

方案一：使用Mac兼容的XMLHTTP对象 #

替换原代码中的ActiveX对象为Mac支持的XMLHTTP，同时修正原代码里的JSON拼接语法错误：

Sub SendToSlack()
    Dim http As Object
    Dim webhookUrl As String
    Dim strData As String
    Dim cellData As String
    
    ' 替换为你的Slack Webhook URL
    webhookUrl = "WEBHOOK_URL"
    
    On Error GoTo ErrorHandler
        ' 获取并格式化指定单元格的值
        cellData = Format(Sheets("SHEET_NAME").Range("CELL_NAME").Value, "$##,##0.00")
        
        ' 创建Mac兼容的HTTP请求对象
        Set http = CreateObject("XMLHTTP")
        
        ' 修正JSON payload的拼接逻辑
        strData = "{""text"": ""Total yearly costs: " & cellData & """}"
        
        ' 发送POST请求
        http.Open "POST", webhookUrl, False
        http.setRequestHeader "Content-Type", "application/json"
        http.send strData
        
        ' 验证请求结果
        If http.Status <> 200 Then
            MsgBox "发送到Slack失败: " & http.responseText
        Else
            MsgBox "消息已成功发送到Slack！"
        End If

        ' 清理对象
        Set http = Nothing
        Exit Sub
ErrorHandler:
    MsgBox "错误信息: " & Err.Description
End Sub

方案二：通过AppleScript调用curl（更稳定的Mac专属方案） #

如果XMLHTTP方案仍有问题，可以利用Mac系统自带的curl命令，通过AppleScript执行：

Sub SendToSlack_AppleScript()
    Dim webhookUrl As String
    Dim cellData As String
    Dim jsonPayload As String
    Dim appleScriptCmd As String
    
    ' 替换为你的Slack Webhook URL
    webhookUrl = "WEBHOOK_URL"
    ' 获取并格式化单元格数据
    cellData = Format(Sheets("SHEET_NAME").Range("CELL_NAME").Value, "$##,##0.00")
    ' 构造JSON内容
    jsonPayload = "{""text"": ""Total yearly costs: " & cellData & """}"
    
    ' 构造AppleShell命令，调用curl发送请求
    appleScriptCmd = "do shell script ""curl -X POST -H 'Content-Type: application/json' -d '" & jsonPayload & "' " & webhookUrl & """"
    
    On Error GoTo ErrorHandler
        ' 执行AppleScript命令
        MacScript appleScriptCmd
        MsgBox "消息已成功发送到Slack！"
        Exit Sub
ErrorHandler:
    MsgBox "发送失败: " & Err.Description
End Sub

注意事项 #

• 请将代码中的WEBHOOK_URL、SHEET_NAME、CELL_NAME替换为实际值
• 方案二需要确保Excel在系统设置的「安全性与隐私」中拥有执行脚本的权限
• 原代码的JSON拼接存在语法错误，两种方案均已修复该问题

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