Ir para conteúdo
Fórum Script Brasil
  • 0

Formatar HTML em Tabela


Lindi Ribeiro

Pergunta

Time,

Eu tenho um trecho de código em HTML queria formatar no Excel para remover o HTML deixar só os dados, isso em VBA. Já consegui excluir as linhas vazias e separar pelo delimitador "-", agora queria remover as linhas com a palavra option, tudo é muito díficil pra mim se alguém puder contribuir.

Texto a formatar:

<option value="285">
                        AMMA - André Miguel
                </option>
        
                <option value="341">
                        AMMA - Fernanda Maria
                </option>
        
                <option value="266">
                        AMMA - Camila da Silva
                </option>
        
                <option value="280">
                        AMMA - Eduardo Martins
                </option>
        
                <option value="275">
                        AMMA - Isabel Silva
                </option>
        
                <option value="336">
                        AMMA - Ana Silva
                </option>
        
                <option value="119">
                        AMMA - Julia silva
                </option>
        
</select>

 

------------------------------------------------------------------------------------------------------------

Sub FormatarHTML()


Dim coluna As String
Dim i As Integer

'apagar células vazias

coluna = Columns("A:A").Select


    i = 2
    
    
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = "" Then Rows(i).Delete
Next i

'texto para colunas

 ''ActiveCell.Offset(0, 0).Columns("A:A").EntireColumn.Select
   '' Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
     ''   TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
       '' Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        '':="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True


    

End Sub

 

 

Editado por Lindi Ribeiro
esqueci informação
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Consegui remover os valores de texto que continham a palavra option e select, estava tentando fazer da forma mais díficil, mas assim deu certo :)

Sub FormatarHTMFinal()


 

Dim lRow As Long

Dim lLast As Long

Dim iLin As Long


 


 

lLast = Plan1.UsedRange.Rows.Count


 

For lRow = lLast To 2 Step -1

'If Not Cells(lRow, "a") Like "*option*" Then

If Cells(lRow, "a") Like "*option*" Or _

Cells(lRow, "a") Like "*select*" Then

Rows(lRow).Delete


 

End If


 

Next lRow


 

' apagar linhas vazias


 

With Sheets("Plan1")


 

For iLin = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1

If Cells(iLin, "A") = "" Then .Rows(iLin).Delete


 

If iLin Mod 100 = 0 Then DoEvents


 

Next iLin

End With


 

End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...