Excel VBA生成Outlook邮件HTML内容时遇Expected Statement错误求助

错误原因及修复方案 #

• 续行符使用错误：VBA中续行符_的前面必须有空格，原代码倒数第二行的&_缺少空格，导致语法解析失败。
• 字符串内双引号未转义：在VBA字符串中，若要包含双引号，需用两个连续双引号""转义；原代码中HTML链接的href="http://www.google.com"里的双引号会被VBA识别为字符串结束符，引发错误。

修复后的代码 #

方案一（转义双引号）：

strBody = "<BODY>Cell(s) " & Target.Address(False, False) & _
        " were modified on " & _
        Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
        " by " & Environ$("username") & _
        "<br> <br> Select the Invoicing Tab in the <a href=""http://www.google.com"">Workbook</a></BODY>"

方案二（用单引号替代HTML中的双引号，无需转义）：

strBody = "<BODY>Cell(s) " & Target.Address(False, False) & _
        " were modified on " & _
        Format$(Now, "mm/dd/yyyy") & " at " & Format$(Now, "hh:mm:ss") & _
        " by " & Environ$("username") & _
        "<br> <br> Select the Invoicing Tab in the <a href='http://www.google.com'>Workbook</a></BODY>"

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