Ir ao conteúdo
  • Cadastre-se
Victor Marcel

Visual Basic Tranformar multiplos arquivos CSV em um XLSX separado por abas

Posts recomendados

Pessoal, alguem podem me ajudar a resolver este problema?

 

Tenho uma pasta com diversos arquivos CSV e preciso transformar eles em um (ou mais) XLSX e coloca-los em abas diferentes. Vou digitar um exemplo abaixo:

 

Tenho em uma pasta chamada ARQUIVOS_TESTE cinco arquivos: BANANA.csv, LARANJA.csv, UVA.csv, LEAO.csv e URSO.csv.

 

O que preciso fazer eh jogar os arquivos que estão em CSV e representam as frutas em em abas de um arquivo XSLX chamado FRUTAS.xlsx. O mesmo para os arquivos que representam os animais, estes precisam ir separados em abas dentro de um arquivo chamado ANIMAIS.xslx.

 

Alguem consegue ajudar?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Abra o Excel em uma nova pasta de trabalho, crie um modulo e cole o codigo abaixo:

 

Sub Teste()
    Dim myDir As String
    Dim fn As String
    Dim wb As Workbook
    
    Set wb = ActiveWorkbook
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show Then myDir = .SelectedItems(1) & "\"
    End With
    
    If myDir = "" Then Exit Sub
    fn = VBA.Dir(myDir & "*.csv")
    Do While fn <> ""
        With Workbooks.Open(myDir & fn)
            .Sheets(1).Copy after:=wb.Sheets(wb.Sheets.Count)
            .Close False
        End With
        fn = Dir
    Loop
End Sub

O codigo importa todos os arquivos *.CSV selecionados, em abas diferentes, nomeando-as de acordo com o nome do arquvio.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!