Macro: importação de .txt com fator de delimitador

[moquiche]

Boa tarde pessoal,

Tenho um arquivo .txt, que excede as 1.048.576 linhas do Excel 2007, quando importado.

Pelo assistente de importação de texto do próprio Excel, eu importo os dados até o limite de linhas da guia 1, e quando faço a importação a partir da ultima linha da guia anterior, ele só importa mais 2 linhas do arquivo... não traz o restante de forma alguma.

Pesquisando na internet eu achei uma macro que faz esta importação, e ao final das linhas da guia 1, ela automaticamente continua a importação dos dados numa nova guia e tal... isso seria perfeito, se não fosse o caso do meu arquivo estar formatado para ser importado utilizando o delimitador “;” para separar os dados por colunas. Na macro, que resolveu o problema de importar todo o arquivo utilizando mais guias, ele coloca linha por linha mas em uma única coluna...

Alguém poderia me ajudar, caso seja possível, a adequar nesta mesma macro uma forma para que a mesma importação seja feita separando por coluna a cada “;”, como ao ser utilizado um delimitador???

A macro que estou utilizando é esta:

Sub importar()

Dim ultimaFila, fila, contador As Long

Dim linea, NomeArquivo As String

'Calcula a última linha da planilha

Selection.End(xlDown).Select

ultimaFila = Selection.Row

Selection.End(xlUp).Select

Set oSistemaArquivo = CreateObject("Scripting.FileSystemObject")

'Nome do arquivo a importar

NomeArquivo = "C:\arquivo1.txt"

Set arquivo = oSistemaArquivo.OpenTextFile(NomeArquivo, 1, False, -2)

fila = 1

contador = 1

Do While arquivo.AtEndOfStream <> True

linea = arquivo.ReadLine

Cells(fila, "a").Value = linea

'Atualiza barra de status

Application.StatusBar = "Lendo linha número = " & contador

fila = fila + 1

contador = contador + 1

'Cria nova planilha quando planilha atual está cheia

If fila > ultimaFila Then

Worksheets.Add after:=ActiveSheet

fila = 1

End If

Loop

End Sub