如何在Mac版Excel中编写VBA函数提取本地HTML指定内容到单元格

问题根源 #

你之前尝试的两种实现路径均无法在Mac上运行，核心原因如下：

• 调用InternetExplorer的方案是Windows平台专属，Mac系统不存在IE对应的COM调用接口
• HTMLDocument属于Windows平台MSHTML.dll提供的ActiveX控件，Mac版Office完全不支持ActiveX能力，因此会报「类型未定义」的错误
  Mac端适配方案必须走VBA调用AppleScript的路径实现，不需要依赖任何第三方控件。

实现思路 #

因为HTML模板是你自建的，标签结构完全固定，不需要复杂的DOM解析：

1. 用AppleScript读取本地HTML文件的纯文本内容，回传给VBA
2. VBA通过字符串匹配（或正则）提取你需要的三类描述内容返回给单元格

完整实现代码 #

Function GetProductDescription(InputFile As String, Part As String) As String
    Dim readScript As String
    Dim htmlContent As String
    Dim startPos As Long, endPos As Long

    ' AppleScript读取本地UTF-8格式HTML文件
    readScript = "set posixPath to """ & InputFile & """ " & vbNewLine & _
                 "set hfsPath to POSIX file posixPath " & vbNewLine & _
                 "open for access hfsPath " & vbNewLine & _
                 "set content to read hfsPath as «class utf8» " & vbNewLine & _
                 "close access hfsPath " & vbNewLine & _
                 "return content"

    ' 执行AppleScript获取文件内容
    On Error Resume Next
    htmlContent = MacScript(readScript)
    On Error GoTo 0

    If htmlContent = "" Then
        GetProductDescription = "文件读取失败，请检查路径权限"
        Exit Function
    End If

    ' 按参数提取对应描述，匹配规则请根据你的HTML模板实际结构调整
    Select Case LCase(Part)
        Case "meta"
            ' 示例匹配规则：<meta name="description" content="xxx">
            startPos = InStr(htmlContent, "<meta name=""description"" content=""") + Len("<meta name=""description"" content=""")
            If startPos <= Len("<meta name=""description"" content=""") Then
                GetProductDescription = "未找到meta描述"
                Exit Function
            End If
            endPos = InStr(startPos, htmlContent, """")
            GetProductDescription = Mid(htmlContent, startPos, endPos - startPos)
        
        Case "short"
            ' 示例匹配规则：<div id="short-desc">xxx</div>
            startPos = InStr(htmlContent, "<div id=""short-desc"">") + Len("<div id=""short-desc"">")
            If startPos <= Len("<div id=""short-desc"">") Then
                GetProductDescription = "未找到短描述"
                Exit Function
            End If
            endPos = InStr(startPos, htmlContent, "</div>")
            GetProductDescription = Mid(htmlContent, startPos, endPos - startPos)
        
        Case "full"
            ' 示例匹配规则：<div id="full-desc">xxx</div>
            startPos = InStr(htmlContent, "<div id=""full-desc"">") + Len("<div id=""full-desc"">")
            If startPos <= Len("<div id=""full-desc"">") Then
                GetProductDescription = "未找到完整描述"
                Exit Function
            End If
            endPos = InStr(startPos, htmlContent, "</div>")
            GetProductDescription = Mid(htmlContent, startPos, endPos - startPos)
        
        Case Else
            GetProductDescription = "参数错误，仅支持meta/short/full三类参数"
    End Select

    ' 可选：去除内容中的换行符和多余空格
    GetProductDescription = Replace(Replace(Trim(GetProductDescription), vbLf, ""), vbCr, "")
End Function

使用说明 #

1. 打开Mac版Excel，按Option + F11打开VBA编辑器，右键点击当前工作簿，选择「插入」-「模块」，将上述代码粘贴到模块中
2. 调整代码中的匹配规则，和你自建的HTML模板标签对齐。如果担心标签嵌套导致匹配错误，可以在模板中给三类描述前后加专属注释标识（比如<!-- START_SHORT_DESC -->和<!-- END_SHORT_DESC -->），再修改代码里的匹配字符串即可
3. 在单元格中调用函数，格式为=GetProductDescription("HTML文件的完整POSIX路径", "描述类型")
   示例：=GetProductDescription("/Users/yourname/Documents/products/product_123.html", "short")

注意事项 #

• 文件路径必须写Mac标准的POSIX全路径，用斜杠分隔，不要使用相对路径
• 首次运行会弹出权限申请，允许Excel访问HTML文件所在的文件夹即可

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