✔ Programação GLOBAL®: DONUT PROJECT - VBA - Excel

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

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?

Série eBook Donut Projects:

DONUT PROJECT: VBA - Projetos e Códigos de Visual Basic for Applications (Visual Basic For Apllication)

eBook - DONUT PROJECT 2024 - Volume 03 - Funções Financeiras - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 02 - Conectando Banco de Dados - André Luiz Bernardes

eBook - DONUT PROJECT 2024 - Volume 01 - André Luiz Bernardes

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