Galera como estao ....???
Tenho um pequeno contra tempo
Possuo um arquivo TXT com 8.460.252 registros onde seu tamanho é de 3,3gb.
Preciso importar este dados para um excel ou mesmo para um acess,encontrei uma soluçao abaixo ,que aparentemente esta respondendo,mas estou rodando no excel que infelizmente nao esta gravando todos os dados .
neste caso queria tentar usa-lo no acess,porem o codigo esta dando alguns errinhos...
Algeum tem uma saida ou mesmo outra soluçao????
abaixo codigo
'Procedimento para selecionar arquivos
Function lfSelecionarArquivo() As String
Dim fDlg As FileDialog
Dim lArquivo As String
'Chama o objeto passando os parâmetros
Set fDlg = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
With fDlg
'Alterar esta propriedade para True permitirá a seleção de vários arquivos
.AllowMultiSelect = False
'Determina a forma de visualização dos aruqivos
.InitialView = msoFileDialogViewDetails
'Filtro de arquivos, pode ser colocado mais do que um filtro separando com ; por exemplo: "*.xls;*.xlsm"
.Filters.Add "Texto", "*.txt", 1
'Determina qual o drive inicial
.InitialFileName = "endereco do arquivo\"
End With
'Retorna o arquivo selecionado
If fDlg.Show = -1 Then
lArquivo = fDlg.SelectedItems(1)
lfSelecionarArquivo = lArquivo
Else
MsgBox "Não foi selecionado nenhum arquivo"
End If
End Function
Public Sub LerArquivoTexto()
On Error GoTo TratarErro
Dim lsCaminho As String
Dim llArquivo As Long
Dim llLinha As String
Dim lQtde As Long
Dim llPlanilhas As Long
'Local do Arquivo
lsCaminho = lfSelecionarArquivo 'InputBox("Digite o caminho do arquivo: ", actName)
'Qtde de Linhas a separar no arquivo
lQtde = InputBox("A cada quantas linhas separar o arquivo: ", actName)
'Identificar se o arquivo existe
If Dir(lsCaminho) <> "" Then
llArquivo = FreeFile
Open lsCaminho For Input As #llArquivo
lContador = 1
llPlanilhas = 1
'Ler o arquivo texto
While Not EOF(llArquivo)
Line Input #llArquivo, llLinha
If lContador <= lQtde Then
Range("A" & lContador).Value = llLinha
Else
llPlanilhas = llPlanilhas + 1
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = CStr(llPlanilhas)
lContador = 1
Range("A" & lContador).Value = llLinha
End If
lContador = lContador + 1
Wend
Close #llArquivo
Else
MsgBox "Arquivo não encontrado"
End If
Sair:
Exit Sub
TratarErro:
MsgBox "Houve um erro na leitura do arquivo!"
GoTo Sair
Resume
End Sub
............www.alpconsultoria.com.br........ Caso esta resposta tenha solucionado sua dúvida, favor clicar em “Marcar como Resposta” para que outros membros possam compartilhar lendo este thread..
importar dados de um txt de 3,5gb para um acess ou excel
