Abrir arquivo como ...
 
Notifications
Clear all

Abrir arquivo como bloco de notas

Página 2 / 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
EdsonBR
Posts: 913
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás
Sub ArqTxtLinhaALinha()
  Dim LinhaTexto As String, i As Long
  Open "C:\Users\Celri33\Desktop\Pasta3.csv" For Input As #1
  Do While Not EOF(1)
    i = i + 1
    Line Input #1, LinhaTexto
    With Range(Cells(i, 1), Cells(i, 7))
      .Cells(1).NumberFormat = "@"
      .Value = Split(LinhaTexto, ";")
    End With
  Loop
  Close #1
End Sub

 

Se quiser só abrir o csv no Bloco de Notas:

Sub AbreArqNoBlocoDeNotas()
  Shell ("Notepad.exe C:\Users\Celri33\Desktop\Pasta3.csv")
End Sub

 

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

Bom dia a todos!
Obrigado novamente, Edson, muito obrigado, chega até ser redundante mas só tenho a agradecer, funcionou direitinho....

 

Tks

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

Veja como fica o seu arquivo abrindo com o Power Query, sem programação alguma.

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

Olá Djunqueira, boa tarde.

Essa foi a minha primeira idéia, porém nem todos na empresa tem um office superior ou igual a 2016, a maioria usa o 2010 que se não me engano, não tem como usar o Power Query.

 

Mesmo assim, obrigado pela atenção.

 

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

Tanto o Excel 2010 quanto o 2013 podem instalar o Power Query, o q recomendo fortemente, é só procurar no Youtube o passo a passo.

Responder
1 Responder
Celri_33
Registered
(@celri_33)
Entrou: 9 anos atrás

Estimable Member
Posts: 202

@dmorais 

Show, essa eu não sabia, valeu!

Responder
Página 2 / 2