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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Importação Arquivo .CSV Sem Quebra de Página
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Importação Arquivo .CSV Sem Quebra de Página
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]