Exportar selección como TXT - Macro

Quisiera saber si mediante una macro se puede exportar solo un rango seleccionado como TXT.

Supongamos que tengo un libro con varios datos y varias hojas y solo quiero exportar una columna de datos a txt (algo que actualmente hago a mano, abriendo un block de notas y copio y pego)

El rango es siempre el mismo y la hoja también

Sheets("hoja3")
Range("C7:C20")

Respuesta
1

Con esta macro exporta todos los datos de la columna C.

Sub ExportarTxt()
ruta = "C:\Users\Victorm\Desktop\test.txt"
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
Open ruta For Output As #1
    For i = 1 To lastrow
        Print #1, Cells(i, 3).Value
    Next i
        Close #1
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas