Importação Arquivo .CSV Sem Quebra de Página

[bp.dantas]

Olá pessoal,

baixei um extrato bancário do Banco#1 no formato .csv, porém quando vou importar os dados através da minha macro para a minha planilha, todos dos dados do extrato são importados para uma única célula com quebra de página. Eu já havia validado a importação dos dados de um outro extrato bancário também em .csv de outro banco (Banco#2).
Tentei transformar o extrato do Banco#1 em .txt para ver se resolvia assim o problema, porém não obtive sucesso.
Abaixo o código que escrevi para realizar a importação dos dados dos extratos.

Function OpenFilesText() As Boolean

Dim Data As String
Dim FileLoc As String
Dim FileNum As Integer
Dim RowNum As Long

FileLoc = Application.GetOpenFilename(Filefilter:="Arquivos de Texto (*.csv; *.txt),*.csv;*.txt", _
Title:="Escolha o Arquivo Para Importar os Dados")

FileNum = FreeFile

On Error Resume Next
If FileLoc <> False Then
OpenFilesText = True
Else
OpenFilesText = False
MsgBox ("Esolha um Arquivo Para Importar os Dados")
Exit Function
End If

On Error GoTo 0
Open FileLoc For Input As #FileNum

RowNum = 1

Do Until EOF(FileNum)
Line Input #FileNum, Data
Worksheets("FormatData").Cells(RowNum, 1).Value = Data
RowNum = RowNum + 1
Loop

Close #FileNum

End Function

Desde já agradeço a ajuda de vocês.

[Reinaldo]

Talvez assim (somente o trecho alterado)

Código: Selecionar todos

Function OpenFilesText() As Boolean
Dim Data As String, FileLoc As String
Dim FileNum As Long, RowNum As Long
Dim separado() As String, Y As Integer

FileLoc = Application.GetOpenFilename(Filefilter:="Arquivos de Texto (*.csv; *.txt),*.csv;*.txt", _
Title:="Escolha o Arquivo Para Importar os Dados")

FileNum = FreeFile

On Error Resume Next
If FileLoc <> False Then
OpenFilesText = True
Else
OpenFilesText = False
MsgBox ("Esolha um Arquivo Para Importar os Dados")
Exit Function
End If

On Error GoTo 0
Open FileLoc For Input As #FileNum

RowNum = 1

Do Until EOF(FileNum)
Line Input #FileNum, Data
separado = Split(Data, ";")     'Verifique/confirme se seu arquivo e separado por virgula ou por ponto e virgula e altere se necessario
For Y = LBound(separado) To UBound(separado)
    Worksheets("FormatData").Cells(RowNum, Y + 1).Value = separado(Y)
Next
RowNum = RowNum + 1
Loop
Close #FileNum
End Function
[\code]