Hola a todos, necesito su valiosa ayuda para poder realizar una modificacion a un archivo a una macro q me la pasaron y que no entiendo mucho del tema,. tengo la siguiente sentencia;
Sub Rectánguloredondeado_Haga_clic_en()
Open ThisWorkbook.Path & Application.PathSeparator & "LE2041509465620150100080100001111.txt" For Output As #1
'Open "TXTBCP.txt" For Output As #1
Range("AL2").Select
Do While ActiveCell.Value <> ""
dato = ActiveCell.Value
Print #1, dato
ActiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub
la parte "201501", que es parte del nombre del archivo saliente tiene q variar mes a mes y lo estoy realizando de manera manual ingresando al editor de proyectos. quisiera q este dato se actualize de manera automatica o haciendole referencia a una celda de la misma hoja "celda C1", y a la vez quisiera q me orienten o ayuden en la generacion total del txt, dado q en el archivo adjunto utilizo una columna auxiliar donde concateno todas las celdas necesarias separadas por un palote "|" para recien generar mi txt con el boton de la macro. por lo tanto desearia que toda esta labor se haga de forma automatica, osea todo con el boton de la macro. ojala puedan ayudarme, Gracias ¡¡¡
Hola a todos, necesito su valiosa ayuda para poder realizar una modificacion a un archivo a una macro q me la pasaron y que no entiendo mucho del tema,. tengo la siguiente sentencia;
Sub Rectánguloredondeado_Haga_clic_en()
Open ThisWorkbook.Path & Application.PathSeparator & "LE2041509465620150100080100001111.txt" For Output As #1
'Open "TXTBCP.txt" For Output As #1
Range("AL2").Select
Do While ActiveCell.Value <> ""
dato = ActiveCell.Value
Print #1, dato
ActiveCell.Offset(1, 0).Select
Loop
Close #1
End Sub
la parte "201501", que es parte del nombre del archivo saliente tiene q variar mes a mes y lo estoy realizando de manera manual ingresando al editor de proyectos. quisiera q este dato se actualize de manera automatica o haciendole referencia a una celda de la misma hoja "celda C1", y a la vez quisiera q me orienten o ayuden en la generacion total del txt, dado q en el archivo adjunto utilizo una columna auxiliar donde concateno todas las celdas necesarias separadas por un palote "|" para recien generar mi txt con el boton de la macro. por lo tanto desearia que toda esta labor se haga de forma automatica, osea todo con el boton de la macro. ojala puedan ayudarme, Gracias ¡¡¡
creartxt.rar