Guru do Excel e Power BI

Enviado: **16 Jan 2018 às 21:47**

Prezados, boa noite.

Tenho o seguinte código para ler cada linha de um arquivo txt.

Do While Not EOF(arquivo)
    Line Input #arquivo, textoProxLinha
    textoProxLinha = textoProxLinha & vbCrLf
    
    textoArquivo = textoArquivo & textoProxLinha
    
    If InStr(textoProxLinha, "---") > 0 Then
       'Preciso pular de linha, ou seja, ir para a próxima.
    End If   
    
Loop  

Debug.Print textoArquivo

Close arquivo

Como posso fazer para que ao cair na condição IF ir para a próxima linha:

Att,
Felipe Arruda.

Enviado: **16 Jan 2018 às 23:24**

Pelo comando utilizado a proxima linha e "obtida" pelo loop, assim uma maneira

Código: Selecionar todos

Do While Not EOF(arquivo)
    Line Input #arquivo, textoProxLinha
    textoProxLinha = textoProxLinha & vbCrLf
    
    textoArquivo = textoArquivo & textoProxLinha
    
    If InStr(textoProxLinha, "---") > 0 Then
     GoTo Aqui
 'Preciso pular de linha, ou seja, ir para a próxima.
    End If   
 aqui:   
Loop

Guru do Excel e Power BI

Ler cada linha de arquivo txt

Ler cada linha de arquivo txt

Ler cada linha de arquivo txt