LLenar una carpeta con 64 Gb de archivos .txt
Para DAM
Hola DAM. ¿Se puede hacer alguna pequeña macro para que llene una determinada carpeta (Ej. C\relleno\) con determinada cantidad de archivos con nombre 0(cero) hasta el infinito, sin extensión alguna.
Clatro que esos archivos creados, van o están sin contenido alguno, la cantidad de archivos la pondría yo en la macro, siempre que quisiera usar esa macro.
Agradecido por tu atención
1 Respuesta
H o l a:
Te anexo la macro
Sub CrearArchivos()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.StatusBar = False
num = InputBox("Número de archivos a crear")
If num = "" Or num = False Then Exit Sub
ruta = "C:\trabajo\relleno\"
For i = 1 To num
Application.StatusBar = "Creando archivo: " & i & " de: " & num
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=ruta & i & ".txt", FileFormat:=xlTextMSDOS
ActiveWorkbook.Close
Next
Application.StatusBar = False
MsgBox "Fin"
End Sub'
Sal u dos
Hola DAM, buen día
Funciona si pero al llegar a la creación de 10-15, el Excel se pone de ue no responde, se pone gris la pantalla pero, voy a la ruta y veo que se están creando, vuelvo a excel y sigue en que no responde y las pantallas tanto del Excel o del Explorador Windows, quedan como a brincar, continuamente.
Si solo son 20, 50, termina pero en la forma que digo arriba pero si son 100, 500 etc
Si solo son 20, 50, termina pero en la forma que digo arriba pero si son 100, 500 etc una eternidad. ¿Se puede hace ralgop para evitar?
Cambia esto
For i = 1 To num
por esto
For i = 1 To cdbl(num)
sal u dos
No parpadean las ventanas, si al dar Click encima de la hoja (en cualquier part) excel se pone con la venta gris y diz arriba en la barra No Responde, pero sigue llenando la carpeta y para 1000, lleva un poco más de 2 minutos.
Precisos son 167 segundos para 1000 archivos
En la parte inferior izquierda de excel te aparece un contador, para que veas cuantos archivos se han generado del total de archivos.
