Marciel, tente usar esse código abaixo em um botão. Ele importa a partir da ultima linha.
Plan1.Activate
Dim sPath As String, fName As String
Dim s As String, lInic As Long, ls As Integer
s = CurDir
'Variavel lInic define a linha da planilha onde os dados serão depositados
'Variavel ls define em qual linha do arquivo .csv irá iniciar a importação
If Cells(Cells.Rows.Count, "A").End(xlUp).Row = 1 Then
lInic = 2
ls = 1
Else
lInic = Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1
ls = 2
End If
'mudar para onde deseja que o diálogo seja apontado
'para quando ele é exibido
sPath = "C:Seu dirtorioSeus arquivos"
ChDrive sPath
fName = Application.GetOpenFilename( _
Filefilter:="txt Files (*.txt),*.txt")
ChDrive s
ChDir s
If LCase(fName) = "false" Then Exit Sub
With ActiveSheet.QueryTables.Add _
(Connection:="TEXT;" & fName, _
Destination:=Range("A" & lInic))
.Name = Replace(LCase(fName), ".xls", "")
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.TextFileStartRow = ls
.Refresh BackgroundQuery:=False
End With
info
maiormenor
End Sub
Postado : 29/08/2014 9:21 am