Excel VBA trasformar arquivos em planilhas

[Joyce Freitas]

como eu transformo vários arquivos .csv (localizados na mesma pasta) em varias planilhas de um arquivo só?

[Midori]

@Joyce Freitas Faça um loop no diretório para pegar os arquivos csv e abra com Workbooks.Open (deixe o parâmetro Local = True), sua macro pode ir criando as abas na planilha enquanto copia e cola os dados dos arquivos.

[Basole]

@Joyce Freitas segue um exemplo 

 

Sub Importar_Varios_CSV()
Dim fPath   As String
Dim fCSV    As String
Dim wbCSV   As Workbook
Dim wbMST   As Workbook

Set wbMST = ThisWorkbook
fPath = "C:\Users\usuario\Desktop\" ' coloque aqui o caminho (pasta) dos CSV(S)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
fCSV = VBA.Dir(fPath & "*.csv")

    On Error Resume Next
    Do While Len(fCSV) > 0
        Set wbCSV = Workbooks.Open(fPath & fCSV)
        wbMST.Sheets(ActiveSheet.Name).Delete
        ActiveSheet.Move After:=wbMST.Sheets(wbMST.Sheets.Count)
        Columns.AutoFit
        fCSV = Dir
        On Error GoTo 0
    Loop

Application.ScreenUpdating = True
Set wbCSV = Nothing
End Sub