Как объединить HTML как строку в VBA? - PullRequest
Новая
       48

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

0 голосов
/ 15 декабря 2009

Я новичок в 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 ]

2 голосов
/ 15 декабря 2009

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

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

становится 

src=""http://cabfinancial.com/images/logoEmail.png"">" _
0 голосов
/ 15 декабря 2009

Я добавил двойные кавычки вокруг вашего параметра 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>"
0 голосов
/ 15 декабря 2009 
 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>"
...