Macro para exportar Columnas de Excel a txt
Tengo una hoja de Excel con 103 columnas. Las tres primeras son coordenadas y las siguientes 100 son diferentes variables.
Quiero crear un macro que me genere 100 archivos txt que contengan cada uno las primeras tres columnas siempre y como cuarta columna cada una de las siguientes 100 columnas. Es decir:
Archivo 1: Columnas A,B,C+D
Archivo 2: Columnas A,B,C+E
Archivo 3: Columnas A,B,C+F...
Y así generar los 100 archivos.
2 Respuestas
H o l a:
Hay algunas formas para guardar como txt, separado por espacios, como csv, como ms-dos, etc. Podrías enviarme una muestra de tu archivo y un par de archivos txt para ver cómo es la forma de txt.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Andres Echeverri” y el título de esta pregunta.
Hola
Ya te envié el e-mail con los archivos.
Gracias por tu ayuda.
H o l a:
Te anexo la macro para generar los archivos, cada archivo será nombrado como SS1, SS2, etc.
Sub ExportarColumnas()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.StatusBar = False
Set h1 = ActiveSheet
ruta = ThisWorkbook.Path & "\"
u = Range("A" & Rows.Count).End(xlUp).Row
For i = 5 To Cells(1, Columns.Count).End(xlToLeft).Column
Application.StatusBar = i
arch = h1.Cells(1, i)
Set l2 = Workbooks.Add
Set h2 = l2.Sheets(1)
h1.Range("A2:D" & u).Copy h2.Range("A1")
h1.Range(h1.Cells(2, i), h1.Cells(u, i)).Copy h2.Range("E1")
l2.SaveAs Filename:=arch & ".txt", FileFormat:=xlTextPrinter
l2.Close
Next
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Proceso terminado", vbInformation, "EXPORTAR COLUMNAS"
End Sub
