ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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

Dúvidas gerais sobre Excel
bp.dantas
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Ter Mai 12, 2020 6:47 pm

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

Mensagem por bp.dantas » Ter Mai 12, 2020 9:12 pm

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.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1408
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

Mensagem por Reinaldo » Qua Mai 13, 2020 1:16 pm

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]


Reinaldo
:oops: :D :mrgreen: :geek:

Responder