Как мне объединить HTML как строку в VBA?

Я новичок в 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 - все это элементы управления Textbox в форме.

Источник

3 ответа

Решение

Синтаксис продолжения строки требует пробела перед подчеркиванием. Попробуйте добавить пробел в конце первой строки:

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

становится

src=""http://cabfinancial.com/images/logoEmail.png"">" _
Источник 
 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>"
Источник

Я добавил двойные кавычки вокруг вашего параметра 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>"
Источник
Другие вопросы по тегам