Notifications
Clear all

Exportar celula para TXT

6 Posts
3 Usuários
0 Reactions
1,845 Visualizações
(@julias)
Posts: 19
Active Member
Topic starter
 

Olha euzinha novamente.
Estou tentando exportar uma celula para um arquivo TXT, até aí eu consegui, porém ele substitui o TXT original.
Tipo:
No meu TXT esta assim
Joao
Maria
Pedro
Se eu acrescento Josépelo codigo que pesquisei ele apaga os 3 nomes e deixa apenas José

segue o codigo vba que estou usando
Open "d:BDnome.txt" For Output As #1
Print #1, Sheets("Plan1").Range("A1").End(xlDown).Offset(0, 0).Value
Close #1

 
Postado : 12/06/2013 3:51 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Julia, seguem dois modelos adaptados, um grava após clicar no Botão, e o outro está associado ao Evento Change da Aba, ou seja apos digitar em qq celula é gravado no arquivo texto.

Deixei as obs nas abas, mas lembre-se de ajustar o Caminho e Nome do arquivo nas rotinas.

Gravar Arquivo Texto em sequencia

Faça os testes e veja se é isto.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/06/2013 8:16 pm
(@julias)
Posts: 19
Active Member
Topic starter
 

Acertou em cheio Mauro.
Obrigada.

 
Postado : 13/06/2013 10:52 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Talvez outra forma..

Sub AleVBA_8501_BaseEmTxt()
Dim iMyFreeFile As Long, LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
iMyFreeFile = FreeFile
Open "C:UsersalexandreDownloadsteste.txt" For Append As #iMyFreeFile
For i = 1 To LR
    Write #iMyFreeFile, Range("A" & i).Value
Next i
Close #iMyFreeFile
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/06/2013 8:57 am
(@mylton)
Posts: 59
Trusted Member
 

Boa tarde
Aproveitando a pergunta..
Se esse evento estivesse relacionado a um ID, como poderia adaptar essa rotina para exportar toda linha correlacionada ao ID escolhido?
Obrigado

 
Postado : 25/07/2013 11:07 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde
Aproveitando a pergunta..
Se esse evento estivesse relacionado a um ID, como poderia adaptar essa rotina para exportar toda linha correlacionada ao ID escolhido?
Obrigado

Mylton, o ideal seria você abrir um tópico com a sua duvida, uma vez que este já foi dado como resolvido e pelo que me parece são questões diferentes.
Lembrando tambem, que o ideal é anexar um modelo com explicação detalhada do que pretende, pois lembre-se que você tem em mente o que quer e tem conhecimento de como estão os arquivos a serem importados e o que receberá o resultado, e nós teremos de ir meio que por adivinhação oque quer dizer conforme colocou acima.
evento estivesse relacionado a um ID ?
essa rotina para exportar toda linha correlacionada ao ID escolhido ?

Não tem como montar algo baseando-se somente com estas informações.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/07/2013 1:07 pm