如何在 VBA 中将 html 连接为字符串？答案

【问题标题】：How do I concatenate html as a string in VBA?如何在 VBA 中将 html 连接为字符串？
【发布时间】：2009-12-15 15:45:58
【问题描述】：

我是 VBA 和 html 的新手，我很困惑。

我正在尝试将字符串变量设置为等于几个串联的 html 字符串和控制值。我不知道我做错了什么。

这是我的代码：

    htmlText = "<HTML><BODY bgcolor=#0b3767> <img height=""71"" width=""500"" alt=""Central Analysis Bureau, Inc. - Know Your Insureds"" src=""http://cabfinancial.com/images/logoEmail.png"">"_
      & "<a href=" & txtLink.Value & ">Volume " & txtVolume.Value & " Edition " & txtEdition.Value _
      & "</a>" _
      & txtHtml.Value & "<a href=""txtLink.Value"">Click here to read the complete article</a>" _
      & "</BODY></HTML>"

htmlText 是一个字符串。 txtLink、txtVolume、txtEdition、txtHtml 都是表单上的文本框控件。

【问题讨论】：

你想达到什么目的？什么让你感到困惑？
那么您到底遇到了什么问题？我在您的代码中看到的唯一明显问题是第一行末尾的下划线之前没有空格。

标签： html string vba concatenation quotes

【解决方案1】：

续行语法要求下划线前有一个空格。尝试在第一行末尾添加一个空格：

src=""http://cabfinancial.com/images/logoEmail.png"">"_

变成

src=""http://cabfinancial.com/images/logoEmail.png"">" _

【讨论】：

@JohnFx 你对双引号是完全正确的。我从来不知道。两件事：1）我应该在发布之前测试代码和2）当它完全错误时，我到底是怎么得到+3的？不管怎样，我删除了我的帖子以避免混淆和错误信息。
不用担心。我也不得不撤回我的答案。我个人讨厌嵌入引号的语法，但它确实有效。 =)
非常感谢！我刚刚意识到那是我犯的错误，并且正要回答我自己的问题......但你打败了我=^）
请注意，允许的行继续字符的数量是有限制的，但是，您可以使用 src=src & "next bit" 重新开始计数
John... 你也可以用单引号替换双双引号吗？这应该使它更具可读性，并且对于 HTML 来说应该没问题。

【解决方案2】：

 htmlText = "<HTML><BODY bgcolor='#0b3767'> <img height='71' width='500' alt='Central Analysis Bureau, Inc. - Know Your Insureds' src='http://cabfinancial.com/images/logoEmail.png'>" _ & "<a href='" & txtLink.Value & "'>Volume " & txtVolume.Value & " Edition " & txtEdition.Value _ & "</a>" _ & txtHtml.Value & "<a href='" & txtLink.Value & "'>Click here to read the complete article</a>" _  & "</BODY></HTML>"

【讨论】：

【解决方案3】：

我在您的 bgcolor 参数周围添加了双引号，在您的第一行继续符之前添加了一个空格，在您的

周围添加了双引号和与号

顺便说一句：非常感谢使用 & 符号进行连接。有些人使用 + ，它有效，但令人困惑。

htmlText = "<HTML><BODY bgcolor=""#0b3767""><img height=""71"" width=""500"" alt=""Central Analysis Bureau, Inc. - Know Your Insureds"" src=""http://cabfinancial.com/images/logoEmail.png"">" _
  & "<a href=" & txtLink.Value & ">Volume " & txtVolume.Value & " Edition " & txtEdition.Value _
  & "</a>" _
  & txtHtml.Value & "<a href=""" & txtLink.Value & """>Click here to read the complete article</a>" _
  & "</BODY></HTML>"

【讨论】：