VBA Powerpoint - Use VBA para ler o texto de um arquivo - Use VBA to read text from a file

| Blog Office VBA | Blog Excel | Blog Access |

Use VBA para ler o texto de um arquivo

A seguinte rotina simplesmente abre um arquivo texto, lê cada linha em uma variável, coloca-o numa janela Immediate (pressione Ctrl + G para ver a janela imediata no IDE), em seguida, fecha o arquivo.

Sub ReadAsciiFile()

    Dim sFileName As String

    Dim iFileNum As Integer

    Dim sBuf As String

    ' Edit this:

    Let sFileName = "C:\Bernardes\ABL.TXT"

    ' Does the file exist?  simpleminded test:

    If Len(Dir$(sFileName)) = 0 Then

        Exit Sub

    End If

    Let iFileNum = FreeFile()

    Open sFileName For Input As iFileNum

    Do While Not EOF(iFileNum)

        Line Input #iFileNum, sBuf

        ' Now you have the next line of the file in sBuf

          ' Do something useful:

        Debug.Print sBuf

    Loop

    ' Close the file

    Close iFileNum

End Sub

Tags: Powerpoint, Slide, UDF, text, read, file, archive, arquivo