DONUT PROJECT - VBA - Excel - Importando arquivos CSV

Importar dados de arquivos CSVs é algo tão comum, que o MS Excel já tem um mecanismo próprio para fazer isso. Mas esta continua sendo uma das dúvidas mais comuns. Como fazer essa importação, através do VBA?

Uma alternativa é a de ler o arquivo CSV como se fosse um arquivo texto, e em seguida carregar cada linha em uma matriz, e através de loops inserí-los no MS Excel.

'This sub only provides the sub ImportCSVfile with parameters

Sub InitiateImportCSVFile()

        Dim filePath As String

        Dim ImportToRow As Integer

        Dim StartColumn As Integer      

        Let filePath = "E:\Bernardes\Arquivo.csv"

        Let ImportToRow = 1 'the row where it will start printing

        Let StartColumn = 1 'the start column

        ImportCSVFile filePath, ImportToRow, StartColumn

End Sub

'  Este é o código que faz todo o trabalho:

Sub ImportCSVFile 

(ByVal filePath As String, ByVal ImportToRow As Integer, ByVal StartColumn As Integer) 

    Dim line As String

    Dim arrayOfElements

    Dim element As Variant

    Open filePath For Input As #1 ' Open file for input

        Do While Not EOF(1) ' Loop until end of file

            ImportToRow = ImportToRow + 1

            Line Input #1, line

            Let arrayOfElements = Split(line, ";") 'Split the line into the array.          

            ' Loop thorugh every element in the array and print to Excelfile

            For Each element In arrayOfElements

                Let Cells(ImportToRow, StartColumn).Value = element

                Let StartColumn = StartColumn + 1

            Next

        Loop

    Close #1 ' Close file.

End Sub

André Luiz Bernardes

Professional Profile