Converter html para string vba

Question

Converter html para string vba

Anônima

Prezados,

Necessito de uma aplicação onde eu informe o html e ele converta em string para VBA, para q eu use referências na planilha para preencher o html de acordo com dados contidos na planilha.

Colo parte do código q fiz na unha, mas como há modelos de html diferentes teria q construir na unha para cada um e qdo copio e colo no editor VBA me dá certo trabalho encaixar as aspas no lugar certo para chegar no resultado esperado.

===============

Sub str_html()

Dim texto As String

texto1 = "<body>" & vbCrLf & _

" <table width=""383"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf & _

" <tr>" & vbCrLf & _

" <td><table width=""550"" height=""400"" border=""1"" bgcolor=""#FFFFFF"" bordercolor=""#CCCCCC"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf & _

" <tr>" & vbCrLf & _

" <td valign=""top"" bgcolor=""" & Plan1.Cells(i, 6) & """><table width=""550"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf & _

" <tr>" & vbCrLf & _

" <td width=""550"" height=""13"" valign=""top""><img src=""http://" & Plan1.Cells(i, 5) & "/[RM_IMG_IMAGEM01]"" width=""550"" height=""13"" /></td>" & vbCrLf & _

" </tr>" & vbCrLf & _

... etc..

texto2 = texto1 & vbCrLf & _

" </tr>" & vbCrLf & _

" </table></td>" & vbCrLf & _

" </tr>" & vbCrLf & _

" <tr>" & vbCrLf & _

" <td height=""10"" valign=""top""> </td>" & vbCrLf & _

" </tr>" & vbCrLf & _

" <tr>" & vbCrLf & _

" <td valign=""top""><table width=""550"" border=""0"" cellpadding=""0"" cellspacing=""0"">" & vbCrLf & _

" <tr>" & vbCrLf & _

" <td width=""35"" rowspan=""2""> </td>" & vbCrLf & _

" <td style=""text-align:left; font-family:Calibri, Helvetica, sans-serif; padding-top:15px; padding-bottom:15px;"">" & vbCrLf & _

" <font style=""color:""" & Plan1.Cells(i, 11) & """; font-size:17px;""><strong>%nome%,</strong></font><br />" & vbCrLf & _

" <font style=""font-size:15px; color:""" & Plan1.Cells(i, 13) & """; line-height:19px;"">" & Plan1.Cells(i, 12) & "</font><br />" & vbCrLf & _

" <font style=""font-size:15px; color:""" & Plan1.Cells(i, 15) & """; line-height:19px;"">" & Plan1.Cells(i, 14) & "</font><br />" & vbCrLf & _

" <font style=""font-size:15px; color:""" & Plan1.Cells(i, 17) & """; line-height:19px;"">" & Plan1.Cells(i, 16) & "</font></td>" & vbCrLf & _

" </tr>" & vbCrLf & _

==============

Segue link com uma ideia do que eu gostaria de aplicar, mas não sei como fazer.

http://blogs.msdn.com/b/joestagner/archive/2008/03/13/utility-to-convert-text-html-to-a-visual-basic-string.aspx

Grato pessoal,

Weivisson

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários

Resposta aceita pelo autor da pergunta

0 respostas adicionais

Answer 1

Olá Weivisson, tudo bem?

Obrigado por colaborar com o Fórum da Microsoft.

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI.

:: MSDN ::

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Caso essa informação tenha sido útil, marque-a como resposta.

Até breve!

Compartilhar via

Converter html para string vba

0 respostas adicionais