Conversione multipla di files csv in excel

Se ho capito quello che vuoi fare, fai un nuovo file di Excel e copia incolla la macro qui sotto in un modulo standard:

Public Sub m()

    Dim objFSO As Object

    Dim objFolder As Object

    Dim objFile As Object

    Dim sPath As String

    Dim wk As Workbook

    sPath = "**C:\TestCSV**"

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder(sPath)

    For Each objFile In objFolder.Files

        Set wk = Workbooks.Open(sPath & objFile.Name)

        wk.SaveAs Filename:=sPath & Mid(objFile.Name, 1, _

            Len(objFile.Name) - 4), FileFormat:=51

        wk.Close

    Next

    Set objFile = Nothing

    Set objFolder = Nothing

    Set objFSO = Nothing

End Sub

Modifica la parte in grassetto con i tuoi riferimenti. Alla fine ti ritroverai nella directory dove hai i CSV anche i file di Excel in formato xlsx. Se il testo dei CSV non dovesse apparire come ti aspetti, controlla nelle impostazioni internazionali di Windows, che il separatore corrisponda a quello del file CSV.