Como ler a segunda linha do arquivo de texto usando vba

1

Eu gostaria de ler a segunda linha de um arquivo de texto para gravar seus dados em um arquivo CSV .

Qual é a melhor maneira de fazer isso?

Open InputFile For Input As #1  
Open OutputFile For Output As #2  
Do Until EOF(1)  
     Line Input #1, strData  
    'Read data from second line of text file and Write into CSV file  
    Print #2, strData  
Loop  
Close #1  
Close #2
    
por user275763 20.12.2013 / 05:56

1 resposta

2

Basta ler a primeira linha e descartá-la:

Sub Luxation()
    Dim InputFile As String, OutputFile As String, strData As String
    InputFile = "C:\TestFolder\File1.txt"
    OutputFile = "C:\TestFolder\xxxx.txt"
    Open InputFile For Input As #1
    Open OutputFile For Output As #2
    Line Input #1, strData
    Do Until EOF(1)
        Line Input #1, strData
        Print #2, strData
    Loop
    Close #1
    Close #2
End Sub
    
por 21.12.2013 / 15:24