Importar archivos CSV

Si nos encontramos con que tenemos que importar muy frecuentemente archivos con extensión CSV para luego eliminarlos, esta es tu macro. Abre rápidamente un CSV en Excel y elimina el archivo original.

Sub AbreCSV()
    Dim buf(1 To 256) As Variant
    Dim i As Long
    Const strFilePath As String = "C:\temp\Test.CSV" 'Cambiar directorio
    Dim strRenamedPath As String
    strRenamedPath = Split(strFilePath, ".")(0) & "txt"
    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False
    End With
    
    'Establecer una tabla para FieldInfo para abrir CSV
    For i = 1 To 256
        buf(i) = Array(i, 2)
    Next
    
    Name strFilePath As strRenamedPath
    Workbooks.OpenText Filename:=strRenamedPath, DataType:=xlDelimited, _
        Comma:=True, FieldInfo:=buf
    Erase buf
    ActiveSheet.UsedRange.Copy ThisWorkbook.Sheets("CSV").Range("A5")
    ActiveWorkbook.Close False
    Kill strRenamedPath
    With Application
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
End Sub