Copiar Código fonte da página Internet - RESOLVIDO

[Vladimir]

Boa tarde a todos!
Estou usando o VBA para pegar os dados do código fonte da página e colar no excel. O problema é que ele cola tudo em única célula. Eu queria que fosse colando uma linha debaixo da outra. Segue abaixo o código. Ele está colando tudo na célula B2 e como numa célula só cabe 32.768 caracteres, nem está puxando todo o código da fonte.

Sub Carregardados()
Application.ScreenUpdating = False
Dim sHTMLSite

sHTMLSite = CapturaHTMLSite("http://www.nfe.fazenda.gov.br/portal/di ... euqr8PQBY=")

lnglinha = 2
Range("B" & lnglinha).Value = sHTMLSite
Range("B2").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Application.ScreenUpdating = True
End Sub
Por favor, alguém pode me ajudar para que seja colado no excel, conforme está na pagina da internet, ex: B2, B3, B4.....

[webmaster]

Vladimir,

Depende de como o CapturaHTMLSite retorna a string. Se nela houver os identificadores de quebra de linha, o código abaixo deve funcionar:

Código: Selecionar todos

Dim sHTMLSiteLinhaPorLinha As String()
sHTMLSiteLinhaPorLinha  = Split(sHTMLSite, vbNewLine)

For i = 0 to Ubound(sHTMLSiteLinhaPorLinha)
    Debug.Print "Linha" & i & "=" & sHTMLSiteLinhaPorLinha (i)
Next

[Vladimir]

Boa noite!
Peço por ter demorado tanto tempo pra responder.
Muito, muito obrigado deu tudo certo agora.
At
Vladimir