Mesclar arquivos CSV para um arquivo do Excel em diferentes folhas

Question

Quero mesclar arquivos CSV em uma pasta de trabalho do Excel em folhas diferentes.
Eu quero cada arquivo em uma folha com o nome do arquivo CSV como nome da folha.

    

Answer 1

Criar macro:

Sub ListAllFile3()

 Application.DisplayAlerts = False

Dim strFile As String
strFile = Dir("C:\CSVFile\*.csv", vbNormal)

Do While Len(strFile) > 0       
Set ws = Worksheets.Add
ws.Name = strFile

With Worksheets(strFile).QueryTables.Add(Connection:="TEXT;C:\CSVFile\" & strFile, Destination:=Range"$A$1"))
        .FieldNames = True
        .RowNumbers = False

        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False

    End With

strFile = Dir
Loop

 Application.DisplayAlerts = True

End Sub