0177-Dica VBA: Transformando um intervalo do Excel em código HTML

Quando iniciei minhas postagens no blog, percebi a dificuldade que seria inserir tabelas nos meus posts.
Pelo menos eu não consegui uma ferramenta que transformasse os intervalos em uma representação de tabela de código HTML.
Para facilitar essa atividade, criei o código a seguir, que gera um arquivo txt com o código.

Sub CriarTabelaHTML()

'Declarar variáveis
Dim txtLinha As String
Dim nSeq As Long
Dim rg As Range
Dim rgRow As Range
Dim rgCell As Range

'Definir o intervalo que será convertido, a partir de um InputBox
Set rg = Application.InputBox(Prompt:="Informe o intervalo a ser convertido", Type:=8)

'Definir o arquivo a ser criado ou aberto, chamado Tabela_HTML e localizado
'na mesma pasta que o arquivo que contém a macro
txtNome = ThisWorkbook.Path & "\Tabela_HTML.txt"

'Obter um número sequencial não utilizado para sequência de abertura de arquivos
nSeq = FreeFile

'Criar novo arquivo ou sobrescrever arquivo antigo
Open txtNome For Output As #nSeq

'Inserir as duas linhas iniciais do código HTML
Print #nSeq, "<table>"
Print #nSeq, "<tbody>"

'Loop para percorrer as linhas do intervalo rg
For Each rgRow In rg.Rows

'Inserir o código de início de uma linha de tabela
txtLinha = "<tr>" & vbLf

'Loop para percorrer as células da linha
For Each rgCell In rgRow.Cells

'Concatenar a string para definir uma célula da tabela
txtLinha = txtLinha & "<td>" & rgCell & vbLf

'Concatenar a string para fechar uma célula da tabela
txtLinha = txtLinha & "</td>" & vbLf
Next rgCell

'Concatenar a string para fechar a linha da tabela
txtLinha = txtLinha & "</tr>"

'Inserir o código gerado no arquivo txt
Print #nSeq, txtLinha
Next rgRow

'Inserir as duas linhas finais do código da tabela
Print #nSeq, "</tbody>"
Print #nSeq, "</table>"

'Fechar o arquivo txt
Close #nSeq

End Sub

A partir daí é só abrir o txt, copiar e colar no post.

Se quiser pode baixar o arquivo: Gerar_Tabela_HTML

Anúncios

In Excel We Trust

Marcado com: , , , , ,
Publicado em Nível: Avançado
Um comentário em “0177-Dica VBA: Transformando um intervalo do Excel em código HTML
  1. […] 0177-Dica VBA: Transformando um intervalo do Excel em código HTML […]

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 2,069,536

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.534 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: