Este fórum está sendo desativado

[eloirfabio]

Bom dia.
Estou montando uma planilha para poder importar dados *.csv gerados pelo sistema da empresa onde trabalho. Achei alguns códigos em VBA na net, que puxa tudo certinho, porém, como o arquivo tem as aspas ("") como separador, acaba ficando com colunas vazias entre os dados. Também achei um código que apaga essas colunas. A minha dúvida é, primeiramente, se seria possível unir esses dois macros (importa CSV e apaga colunas vazias) em um só botão, e que também, ao importar ele gere um novo arquivo .xlsx, pois ele importa para a mesma planilha do macro. Ah! Também há outro problema no código: ele só está funcionando uma vez, depois de importar, mesmo fechando o documento sem salvá-lo. Vou anexar a planilha para ter uma melhor compreensão.

[alexandrevba]

Boa tarde!!

A minha dúvida é, primeiramente, se seria possível unir esses dois macros (importa CSV e apaga colunas vazias) em um só botão,

Código: Selecionar todos

Sub ImportAllCSV()

Call ImportAllCSV
Call ImportCsvFile
Call ApagaColunasVazias

End Sub

Para salvar o arquivo tenten:

Código: Selecionar todos

ActiveWorkbook.Save

ou

Código: Selecionar todos

ThisWorkbook.Close SaveChanges:=True

Att

[eloirfabio]

Testei os que me mandou, porém, não consegui fazer funcionar /:

[diogeles]

Cara, Eu quebrei muito a cabela com arquivos CSV e não conseguir chegar a algo favoravel, então a solução que consegui foi criar uma planilha secundaria e fazer o macro a partir dela. exemplo se seu arquivo se chama DADOS.CSV abre ele normamente e coloca pra salvar como pasta de trabalho macro daí você coloca DADOS.XLSM, Dai faz as macros pegando dessa pasta secundaria.