Si te ha gustado este vídeo puedes ver más en el Curso de Excel avanzado 🔥🔥🔥 cutt.ly/JnHy9yG Los código macro usados: ------------------------ Sub CrearTxt() 'ruclips.net/user/aprendizdeexcel Ruta = InputBox("Ruta de las Carpetas") Range("A2").Select
Do While ActiveCell.Value ""
Set objeto = CreateObject("Scripting.FileSystemObject") Set Archivo = objeto.CreateTextFile(Ruta & "\" & ActiveCell.Value & ".txt", True) Archivo.WriteLine ("Esto es una cosa") Archivo.WriteLine ("Esto es otra") Archivo.Close
ActiveCell.Offset(1, 0).Select
Loop
End Sub --------------------------- Sub Crear_Txt() 'ruclips.net/user/aprendizdeexcel Ruta = InputBox ("Ruta de las Carpetas")
For i = 1 To 3
Sheets("Nombres").Select Archivo = Cells(1 + i, 1).Value
😌 muchas gracias me a funcionado !!!! Lo intente de otra forma y me he tardado 6 horas para pasar una parte con un programa que se asimilaba a lo que quería y con estos lo hice en segundos .....se te agradece mucho xq seguiré usando este método siempre ...
Hola, funciona bien pero veo que se manda todo el contenido por cada archivo. Como se podría hacer para que solo se envíe el valor de una celda a cada archivo txt? Muchas gracias!
Hola @AprendizdeExcel mencionaste acerca de agregar una variable como B2 en el WriteLine , porfavor ayudame con eso , porque justamente quiero agregarle contenido a cada celda.
Si te ha gustado este vídeo puedes ver más en el Curso de Excel avanzado 🔥🔥🔥
cutt.ly/JnHy9yG
Los código macro usados:
------------------------
Sub CrearTxt()
'ruclips.net/user/aprendizdeexcel
Ruta = InputBox("Ruta de las Carpetas")
Range("A2").Select
Do While ActiveCell.Value ""
Set objeto = CreateObject("Scripting.FileSystemObject")
Set Archivo = objeto.CreateTextFile(Ruta & "\" & ActiveCell.Value & ".txt", True)
Archivo.WriteLine ("Esto es una cosa")
Archivo.WriteLine ("Esto es otra")
Archivo.Close
ActiveCell.Offset(1, 0).Select
Loop
End Sub
---------------------------
Sub Crear_Txt()
'ruclips.net/user/aprendizdeexcel
Ruta = InputBox ("Ruta de las Carpetas")
For i = 1 To 3
Sheets("Nombres").Select
Archivo = Cells(1 + i, 1).Value
Sheets("Hoja" & i).Select
Cells.Select
Selection.Copy
With Workbooks.Add
Cells.Select
ActiveSheet.Paste
.SaveAs Filename:=Ruta & "\" & Archivo, FileFormat:=xlTextWindows
.Close False
End With
Next
Sheets("Nombres").Select
End Sub
😌 muchas gracias me a funcionado !!!! Lo intente de otra forma y me he tardado 6 horas para pasar una parte con un programa que se asimilaba a lo que quería y con estos lo hice en segundos .....se te agradece mucho xq seguiré usando este método siempre ...
Genial!!
Me alegro que te haya funcionado
Gracias por comentarlo 😉
Hola, funciona bien pero veo que se manda todo el contenido por cada archivo. Como se podría hacer para que solo se envíe el valor de una celda a cada archivo txt? Muchas gracias!
@@rafaelserradilla7002 pudiste solventar la duda?
Hola @AprendizdeExcel mencionaste acerca de agregar una variable como B2 en el WriteLine , porfavor ayudame con eso , porque justamente quiero agregarle contenido a cada celda.
tengo la misma duda, pudiste hacerlo?