Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro criar novo arquivo em CSV separado por ponto e vírgula

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Macro criar novo arquivo em CSV separado por ponto e vírgula

Mensagem por Julio Mangilli »

Opa Magina,

Cria um Novo Modulo, cola la a programação lá dentro
e manda rodar a macro dentro dessa planilha que contem os dados ela vai salvar um novo arquivo em .CSV separado por ";".

Tente fazer isso e avise amigo se o arquivo ficou como você solicitou.


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.


Basaf
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Nov 13, 2019 11:22 am

Re: Macro criar novo arquivo em CSV separado por ponto e vírgula

Mensagem por Basaf »

olá,

estou a fazer alguma coisa de errado,
estou a colar a programação num novo modulo dentro do ficheiro original
não faz nada ao ficheiro novo que cria...
um aparte, que não sei se disse.
o nome do ficheiro csv tem de ser o nome criado origininalmente, xxxxx0001, xxxxx0002, xxxxxx0003 e por ai fora...


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Macro criar novo arquivo em CSV separado por ponto e vírgula

Mensagem por Julio Mangilli »

Olá amigo,

Então, postei a programação como teste, mas precisas mudar ao seu favor, como não sei bem como é seu projeto deixei para você moldar como queiras, porque não sei se você importa ou exporta de uma outra planilha ou como você controla entende?
Tipo mude o caminho deste :
sFname = sFname = "C:\Users\User\Desktop\ra.csv"

Para qualquer outro ou até mesmo puxar de uma célula
Segue método para puxar da Célula
sFname = Range("A1")

Ai você consegue colocar o caminho e por sequencial o nome do arquivo padrão também usando um concatenar ou se vai querer integrar isso dentro do que já tais utilizando.

A programação Criada foi para poder converter somente, para ver se atende o que você precisa e fazer um teste.

tudo vai depender se você vai fazer todas as conversões pelo um único projeto ou vai entrar em planilha e converter, planilha e converter e assim por diante? Ou vai importar os dados e gerar um novo ou substituir e assim por diante também..

Complexo mas tranquilo uahauhauahuaha


Basaf
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Nov 13, 2019 11:22 am

Re: Macro criar novo arquivo em CSV separado por ponto e vírgula

Mensagem por Basaf »

Olá,

tive a testar e não funcionou.
não sei se estou a fazer direito...
o que aconteceu foi que copiou tudo o que estava na folha ativa, e colou no ficheiro csv destino...
não substituiu... a "," por ";"

pode ajudar?


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.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Macro criar novo arquivo em CSV separado por ponto e vírgula

Mensagem por Julio Mangilli »

Estranho para mim ficou certinho, se eu abrir o arquivo exportado pelo bloco de notas ele está separado por ";"...............
Certo deixa eu te pergunta uma coisa para entender

Dentro do seu arquivo CSV ele tem que ficar assim ?
julio;104020;mangilli;104021 "Ele teria que ficar assim dentro de uma unica célula"? Isso resolveria?

Estou com duvida porque você demonstrou um arquivo txt e um CSV e meu arquivo ficou igual o seu, porem podes me passar o arquivo que você utiliza para exportação? de como deveria ficar?

Preciso de um modelo real do que você precisa amigo, adiciona uma modelo básico do que você faz...


Basaf
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Nov 13, 2019 11:22 am

Re: Macro criar novo arquivo em CSV separado por ponto e vírgula

Mensagem por Basaf »

olá

fiz um teste que achei que já tinha feito
alterei para de true para false no final da conversão.

ActiveWorkbook.Close False

funcionou... :)

obrigado Julio pelo esforço.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Macro criar novo arquivo em CSV separado por ponto e vírgula

Mensagem por Julio Mangilli »

Que bom que Deu certo amigo, TOP.


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.


Responder