Convierte automáticamente una selección de rango a un archivo CSV

0

 

Código:

Sub Exportar_Seleccion_a_CSV()

    Dim R As Range
    Dim Ruta As String, Archivo As String
    Dim Fila As Range, Celda As Range

    If TypeName(Selection) <> "Range" Then
        MsgBox "Seleccioná un rango antes de ejecutar la macro.", vbExclamation
        Exit Sub
    End If
    
    Set R = Selection

    Ruta = ThisWorkbook.Path & "\"
    Archivo = Ruta & "Exportado_" & Format(Now, "yyyymmdd_hhmmss") & ".csv"

    Open Archivo For Output As #1

    For Each Fila In R.Rows
        Dim linea As String: linea = ""
        
        For Each Celda In Fila.Cells
            linea = linea & Celda.Value & ","
        Next Celda
        
        linea = Left(linea, Len(linea) - 1)
        
        Print #1, linea
    Next Fila

    Close #1

    MsgBox "CSV creado correctamente:" & vbCrLf & Archivo

End Sub

⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel