Exportar de 100 en 100 una columna a varios a txt
Tengo 30mil datos numéricos en una sola columna
Quiero exportarlos a archivos de texto de 100 en 100 en vertical claro.
Serian 300 archivos de texto.
Ejemplo:
Prueba.txt (contenga desde A1 a A101) =100 datos
Prueba2,txt (contenga desde A101 a 201) =100 datos
Prueba3.txt (contenga desde A201 a 301) = 100 datos
así sucesivamente.
Agradecería esta ayuda es URGENTE!!
Ponte el la primera celda de tu columna y ejecuta esta macro:
Se te van a crear todos tus archivos txt en tu directorio predeterminado de excel
Recuerda FINALIZAR y PUNTUAR mi labor.
Sub cada_100()
origen = ActiveWorkbook.Name
Do While ActiveCell.Value <> ""
inicio = ActiveCell.Address
Do While contar <> 100
ActiveCell.Offset(1, 0).Select
contar = contar + 1
Loop
contar = 0
c = c + 1
Final2 = ActiveCell.Offset(-1, 0).Address
Workbooks.Add
destino = ActiveWorkbook.Name
Workbooks(origen).Activate
Range(inicio & ":" & Final2).Copy
Workbooks(destino).Activate
Sheets(1).Range("a1").PasteSpecial Paste:=xlValues
ActiveWorkbook.SaveAs "prueba" & c & ".txt", FileFormat:=xlText
ActiveWorkbook.Close False
Loop
End Sub
