Notifications
Clear all

Exportação para CSV

8 Posts
2 Usuários
0 Reactions
1,613 Visualizações
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Bom dia pessoal,

Estou precisando exportar uma Sheets(aba da planilha) específica da Workbook(pasta de trabalho) a partir de um click do botão.

Mas preciso que esse arquivo seja exportado em formato CSV (MS-DOS) para um diretório já definido no código, ou seja, que eu não precise selecionar o caminho que deve salvar.

OBS: Exportar somente a Worksheet ativa e não a pasta de trabalho inteira.

Alguém poderia me ajudar?

Muito Obrigado!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 30/05/2017 2:44 pm
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite Leandro,

Veja se o código que está no módulo1 resolve.

att,

 
Postado : 30/05/2017 6:26 pm
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Bruno, bom dia

Só esse formato de CSV que está complicando.

Os itens da linha estão sendo todos salvos na mesma célula da coluna A.

Tem como arrumar isso? Porque se voce for salvar manualmente em formato CSV (MS-DOS), os itens ficam salvos nas suas respectivas colunas corretamente.

Abraço!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 31/05/2017 5:38 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Alguém pode complementar a contribuição do nosso amigo bruno??
Falta só acertar o formato da planilha!

Obrigado!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 31/05/2017 11:35 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa noite Leandro,

Alterei para salvar CSV (MS-DOS). Veja se é o resultado desejado.

att,

 
Postado : 31/05/2017 8:01 pm
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Bom dia,

Engraçado, se eu desativar o comando : 'ActiveWorkbook.Close (que fecha o arquivo gerado), o arquivo é copiado corretamente na nova planilha.

Mas quando eu fecho o arquivo salvo e abro de novo, ele já está desformatado. (separado somente por vírgula e não por colunas, e isso não é o formato correto).

Eu realmente preciso que o formato "separando os dados por coluna" seja mantido. Pois vou importar para o ERP.

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 01/06/2017 5:14 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Leandro,

Acho que esse texto ajuda: http://www.techbr.com.br/software/excel ... -tutorial/

Se você quiser testar outros formatos, basta alterar para o número do formato a ser salvo nesse trecho do código:

    'Salvar planilha como .csv
    ActiveWorkbook.SaveAs Filename:=Caminho & "" & Nome, _
        FileFormat:=24, _
        CreateBackup:=False

Lista com o número de cada formato que o Excel pode salvar: https://msdn.microsoft.com/pt-br/librar ... 98017.aspx

 
Postado : 01/06/2017 1:43 pm
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
Topic starter
 

Brunão, voce ajudou demais.

é uma pena que não deu para fazer isso de forma automatizada, mas já entendi o processo!

Um abraço e obrigado!!

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 01/06/2017 2:27 pm