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

[Victor Marcel]

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?

[Basole]

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.

[HugoCarneiro]

@Basole Boa Noite,

 

quando rodo esse scrip ele abra a janela de busca pra selecionar a pasta e arquivos, porém os arquivos não aparecem na pastas. Estes são arquivos do tipo csv. Sabe dizer o por que?

 

Dentro desta pasta teste (imagem em anexo) tem arquivos do tipo csv (imagem anexo).

 

 

Arquivos contidos na pasta

Quando o scrip abre a pasta ela esta vazia

[isrnick]

É por que essa caixa de diálogo é para selecionar pastas não para selecionar arquivos, logo ela só mostra pastas (e não mostra arquivos), então basta navegar até a pasta onde os arquivos estão e não importa que não consegue visualizar os arquivos.

[HugoCarneiro]

@isrnick Muito obrigado....Falta de atenção minha, era isso mesmo.

 

Agora vou ajustar o script pra ele formatar o csv quando puxar este da pasta, pois o arquivo busca o csv e coloca em abas separadas sem formatar.

Vlwwww