Consegui o código abaixo.. onde digo ao vba que quero trazer apenas linhas acima de 1048577.. mas dá o erro abaixo
O método 'Range' do objeto '_Global' falhou>
alguém sabe o motivo do erro?
quando digo ao vba para trazer da linha 0 até 1048500 ele traz... mas quando maior que 1048577 dá o erro...
<O método 'Range' do objeto '_Global' falhou>
segue o código
Public Sub quebrar_arquivo()
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 = InputBox("Digite o caminho do arquivo: ", actName)
'Identificar se o arquivo existe
If Dir(lsCaminho) <> "" Then
llArquivo = FreeFile
Open lsCaminho For Input As #llArquivo
lContador = 1048577 'especifico que quero apenas das linhas acima de 1048577 ....
llPlanilhas = 1
'Ler o arquivo texto
While Not EOF(llArquivo)
Line Input #llArquivo, llLinha
If lContador >= 1048577 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
Postado : 11/11/2016 12:51 pm