Abrir arquivo como ...
 
Notifications
Clear all

Abrir arquivo como bloco de notas

Página 1 / 2

Celri_33
Posts: 202
Registered
Topic starter
(@celri_33)
Estimable Member
Entrou: 9 anos atrás

Pessoal, boa tarde!

 

Existe algum código VBA que abra um arquivo como bloco de notas, copia tudo que tiver lá e cola na planilha Excel?

 

O detalhe é esse, abrir o arquivo como bloco de notas.

 

Existe alguma maneira (código)?

Responder
11 Respostas
1 Responder
Raygsson
Registered
(@raygsson)
Entrou: 2 anos atrás

Trusted Member
Posts: 66

@celri_33 

Como citou bloco de notas deve ser um texto (.txt, .csv, etc..)

Se for um texto com as colunas separados por algum delimitador (.csv) pode apenas importar, sem VBA.

Se o texto não tiver esses delimitadores provavelmente vai conseguir importar com VBA e capturar o trecho de conteudo que deseja.

De toda forma em nenhum destes casos precisa abrir com bloco de notas pra captura algo.

Anexe o arquivo pra uma melhor análise.

Responder
DJunqueira
Posts: 96
Registered
(@dmorais)
Trusted Member
Entrou: 3 meses atrás

Um arquivo do tipo .csv pode ser considerado um paralelo ao arquivo de texto do bloco de notas, na realidade se vc separar um texto qq por ponto e vírgula no bloco de notas e depois salvar como .csv estará tudo certo.

Portanto a resposta q vc procura é a de como abrir um arquivo .csv no Excel. Ha, mas o arquivo tem terminação .txt, muda! Troca por .csv e assunto encerrado.

Responder
EdsonBR
Posts: 913
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás

Uma maneira simples por VBA (já que a postagem foi endereçada a essa sala) e se seu TXT for texto comum ASC-II/ANSI, seria:

Colocar o conteúdo do TXT todo numa única célula (A1 da planilha ativa, nesse caso):

Sub ArqTxtNumaCélula()
  Open "C:\Users\Celri33\Desktop\NomeArquivo.txt" For Input As #1
    [A1].Value = Input(LOF(1), #1)
  Close #1
End Sub

Colocar cada linha numa célula (da A1 em diante):

Sub ArqTxtLinhaALinha()
  Dim LinhaTexto As String, i As Long
  Open "C:\Users\Celri33\Desktop\NomeArquivo.txt" For Input As #1
  Do While Not EOF(1)
    i = i + 1
    Line Input #1, LinhaTexto
    Cells(i, 1) = LinhaTexto
  Loop
  Close #1
End Sub
Responder
Celri_33
Posts: 202
Registered
Topic starter
(@celri_33)
Estimable Member
Entrou: 9 anos atrás

Bom dia Galera.

 

Desculpe a demora para o retorno, mas o meu problema maior é realmente abrir o arquivo como TXT (Bloco de Notas)

O arquivo já é CSV, mas tem o velho problema de limitador de caracteres, ai quando abro esse arquivo como bloco de notas, consigo ver no caso, os 44 caracteres que preciso:

 

Dai era só copiar do bloco de notas pro Excel...segue anexo exemplo:

 

Responder
Celri_33
Posts: 202
Registered
Topic starter
(@celri_33)
Estimable Member
Entrou: 9 anos atrás

Segue anexo o arquivo cvs.

Responder
Página 1 / 2