Macro Excel para Generar TXT

  Рет қаралды 228,228

Formulas Excel

Formulas Excel

Күн бұрын

Пікірлер: 150
@formulasexcel
@formulasexcel 2 жыл бұрын
Descarga el ejemplo en esta pagina. formulasexcel.com/macro-excel-para-generar-txt/ Descarga todas las apps contables en excel acá. formulasexcel.com/productos/
@huhini
@huhini 4 жыл бұрын
Muy buen video. Enhorabuena. 5 años depués aún me ha valido.
@MiguelAngelFloresTicay
@MiguelAngelFloresTicay 6 жыл бұрын
Muy buena explicacion paso a paso, lo probe en ofice 2016 y funciona a la perfeccion. Yo necesito que por cada fila se cree un archivo de texto. Saludos
@Sarbin073
@Sarbin073 8 жыл бұрын
Capoooooooooooo! me re sirvió!. Y además de todo esto, aprendí gracias a lo que ví en el min 24:18 que se puede manipular las tabulaciones seleccionando y presionando Tab, o Shift + Tab... Cosa que no sabía y lo hacía de manera manual, fila por fila jaja. Terrible!!!
@verillo14
@verillo14 5 жыл бұрын
Muchísimas gracias por el tutorial. Hace rato estaba buscando la forma de optimizar mi trabajo. Dios Te bendiga
@cesarcalderon8260
@cesarcalderon8260 7 жыл бұрын
El video de convertir a texto, buenísimo, lo hice al pie de las instruciones y funciona de maravilla, felicitaciones sigan adelante!!! 😂👍👍👍👍👍
@melissab3914
@melissab3914 6 жыл бұрын
3 años despues me ayudó demasiado! Súper fácil de hacer 👌👍
@gabrieln1188
@gabrieln1188 5 жыл бұрын
Mil Gracias hermano, de pana aprendí muchísimo con este tutorial. Te felicito por tu pedagogía, super ordenado en la construcción de la macro, que es muy importante cuando estamos aprendiendo!! Espero seguir aprendiendo bro. Saludos y Bendiciones.
@thebroki6684
@thebroki6684 2 жыл бұрын
EXCELENTE VIDEO, BIEN EXPLICADO MASTER!!!!
@lysterp.9573
@lysterp.9573 8 жыл бұрын
Estimado, muchas gracias. Me sirvio muchisimo. A partir tu ejemplo he podido hacer algunos cambios y me queda excelente. Saludos cordiales...
@hugoretes2415
@hugoretes2415 5 жыл бұрын
Excelente , clarísimo consulta cambiará mucho poder generar un tipo " prn ",con terminación de espacios en blanco por linea.quiero decir que respete las ultimas columnas aunque estén vacías o de contenido alfabético.
@rodolforuiz9889
@rodolforuiz9889 5 жыл бұрын
Excelente material , claro y detallado , gracias por compartir
@cervandojose2209
@cervandojose2209 9 жыл бұрын
Gracias amigo justo lo que necesito aprender macros gracias saludos .
@johancamilomuelasvernaza5301
@johancamilomuelasvernaza5301 4 жыл бұрын
Excelente, me ayudo mucho. Saludos
@yevabe
@yevabe 4 жыл бұрын
Hace varios años uso este código para generar varios archivos planos que posteriormente importo a un ERP. Muy valioso aporte. Ahora mi inquietud es la siguiente: Como puedo agregarle un inicio y un fin de archivo que corresponda a algo como esto: Inicio (000000100000001004) donde los primeros 7 dígitos corresponden a la linea 1 con formato '0000001' y los demás es un código que puede ir quemado. Para el fin del archivo: (000000499990001004) donde los primeros 7 dígitos corresponden al total de las lineas del archivo incluyendo encabezado y fin en formato '00000004' y los demás dígitos pueden ir quemados. Espero que me puedas ayudar!
@formulasexcel
@formulasexcel 4 жыл бұрын
Para eso se tiene que modificar el ciclo for, quedando de la siguiente manera. tx.Write "000000100000001004" tx.WriteLine For i = 2 To nFilas For j = 1 To nColumnas If j = 6 Then tx.Write CStr(Ht.Cells(i, j).Value) If j < nColumnas Then tx.Write vbTab Else tx.Write Ht.Cells(i, j).Value If j < nColumnas Then tx.Write vbTab End If Next j tx.WriteLine Next i tx.Write "000000499990001004"
@JoseAntepara
@JoseAntepara 7 жыл бұрын
Muchas gracias por tu tutorial, me ha ayudado en mi trabajo. 100% efectivo!!
@formulasexcel
@formulasexcel 7 жыл бұрын
Puede cambiar la linea que obtiene el numero de filas a procesar. Usar la siguiente en lugar de la que se indica en el video: nFilas = Ht.Cells(Rows.Count, 1).End(xlUp).Row Para las columnas también puede usar la siguiente: nColumnas = Ht.Cells(1, Columns.Count).End(xlToLeft).Column
@jocksanielrodriguez5650
@jocksanielrodriguez5650 2 жыл бұрын
Muchísimas gracias, este me sirvió mucho mejor.
@huhini
@huhini 4 жыл бұрын
Del modo expresada la macro siempre creará una última fila llena de ;. Se debería cambiar el código por: For i = 2 To nFilas For j = 1 To nColumnas tx.write Ht.Cells(i, j).Value If j < nColumnas Then tx.write ";" Next j tx.WriteLine Next i
@juansoto4299
@juansoto4299 8 жыл бұрын
Muy util y super claro. Felicitaciones por la claridad en explicacion. Una consulta, como puedo hacer para que cada celda tenga un numero de caracteres. Por ejemplo sueldo debe tener 13 digitos, si solo tiene 6, que complete los 13 agregando "000" a la izquierda? Gracias. Saludos.
@JoseMendoza-zh7zg
@JoseMendoza-zh7zg 2 жыл бұрын
Excelente explicacion 🙏
@cristianviva
@cristianviva 4 жыл бұрын
Me sirvió mucho tu video Espero sigas subiendo más material como este Saludos! Ya tienes tú aún y like
@goldgarbagecan
@goldgarbagecan 3 жыл бұрын
Para los que le pongan una cabecera con más parametro agregando filas ajustan el valor de i+1 tx.Write ht.Cells(i + 4, j) 'Se pone i+4 porque va a escribir desde la 5ta fila
@josetomas3774
@josetomas3774 3 жыл бұрын
Super útil, muchas gracias
@neilszegarraramirez
@neilszegarraramirez 6 жыл бұрын
muy bueno el video, una consulta, tomando como ejemplo tu cuadro de excel, yo quisiera exportar a txt solo los datos de las columnas a,b,c y f., por favor tu apoyo. toda la macros esta bien, pero no se como exportar solo esas columnas indicadas arriba
@marianosoria7594
@marianosoria7594 5 жыл бұрын
GENIAL VIDEO.. UNA CONSULTA COMO PUEDO HACER PARA QUE ME EXPORTE TODOS LOS DATOS EN UNA SOLA LINEA EN VES DE QUE ESTEN SEPARADOS POR COLUMNAS QUE ESTEN SOBRE UNA SOLA FILA TODOS LOS DATOS, SE AGRADECE CUALQUIER AYUDA. SALUDOS
@gera12393
@gera12393 8 жыл бұрын
Excelente Tutorial, me sirvió de mucho, muchas gracias.
@xrobertovaldesc
@xrobertovaldesc 9 жыл бұрын
Está muy Bueno!! te pasaste!
@alcaorti
@alcaorti 7 жыл бұрын
Cordial saludo, excelente video, me puedes colaborar indicando cómo puedo generar 3 archivos txt diferentes de la misma hoja. ejemplo( celda A hasta la N, O hasta AE, y AF hasta AV) muy amable por su colaboracion.
@carlostbsalesforce2962
@carlostbsalesforce2962 3 жыл бұрын
Hola!!! me ha sido excelente y muy sencillo. Pero tengo un problema que quizá puedas ayudarme. Cómo hacer para cargar la referencia. Te cuento el problema. Tengo la hoja de cálculo para que sea incorporada a otras. Si a la que le incorporo no tiene la referencia casca justo cuando declara el objeto. He estado buscando por ahí , pero no encuentro como. Gracias por anticipado
@johnrubio6323
@johnrubio6323 7 жыл бұрын
Muy bueno el vídeo pero tengo una duda, como haría para que me exporte un rango en especifico por ejemplo las ultimas dos columnas o la columna de la mitad o solo la primera? Cual seria el rango que debería de colocar? Gracias!
@hildcastro
@hildcastro 8 жыл бұрын
Hola gracias por tan importante aporte, quería saber si usted tiene un macro que me ayude a imprimir un recibo que se encuentra en la mitad de una hoja A4 y que en el momento de imprimir se genere original y copia en la misma hoja A4, con otro video ya me estoy guiando para generar el txt. Agradezco la ayuda que me pueda prestar.
@felipeandresgonzalezorella3544
@felipeandresgonzalezorella3544 7 жыл бұрын
Hola! Muy buen dato...se puede hacer algo así, pero que si los textos están en color en excel queden en color también al dejarlo en txt?
@Eugenio-Gamboa_mina
@Eugenio-Gamboa_mina 4 жыл бұрын
Hola, muchas gracias por tu aporte ha estado muy bueno, de hecho para poder realizar esta macro he copiado uno a uno los datos de esta tabla. te quiero consultar ¿cual podria ser la linea de codigo o las lineas de codigo, para que es en el archivo txt en lugar de salir alguna palabra de la tabla yo pueda poner un codigo? es decir que en excel dice "culiacan" pero yo quiero que en lugar de culiacan diga 2345 y asi con mas dato. espero haber sido claro, agradesco tu ayuda....
@josedaviddiazprada3176
@josedaviddiazprada3176 9 жыл бұрын
Nolberto Una pregunta, como le haces si deseas que el valor de una celda no te aparezca con algun separador, es decir, que no tenga comas ni nada de eso? Gracias x el Video....
@josedaviddiazprada3176
@josedaviddiazprada3176 9 жыл бұрын
Ok lo pondré en práctica haber como me va!
@arjuanfelipe
@arjuanfelipe 4 жыл бұрын
Cinco años después del vídeo, buen código.
@karlarito2472
@karlarito2472 5 жыл бұрын
Excelente video amigo, una consulta, como puedo exportar el archivo en .csv y que muestre el Layout de las columnas C y D, ya que solo esos campos son los que necesito que se exporten al archivo. Agradezco tu ayuda. Saludos
@Yoguix
@Yoguix 9 жыл бұрын
bueas noches amigo y si lo quieres programar en un boton que te haga todo eso?
@CESIAGADEA979371037
@CESIAGADEA979371037 6 жыл бұрын
Muy buen video, explicado paso a paso, pero quisiera saber como agrego un boton en mi excel para que me genere el archivo txt, gracias de antemano por su respuesta, muy buen aporte
@jesusequijada
@jesusequijada 8 жыл бұрын
Buenas noches amigo, te felicito por el video, es muy profesional y muy bien explicado, tengo un detalle al momento de el conteo del numero de filas me arroja 1048575 y como prueba solo tengo 2 filas. Que puede estar ocurriendo ? Muchas Gracias
@antoniopompa5354
@antoniopompa5354 7 жыл бұрын
buen aporte, quería preguntarte como se hace para unir dos columnas y darles un limite de caracteres (50) en el txt ejemplo tengas dos columnas "Nombre y Apellido" y quieras que estas salgan en el txt pegadas y adicional te salgan espacios en blanco completando los cincuenta caracteres. a ver si me ayudas con esto si puesdes . mil gracias
@gera12393
@gera12393 8 жыл бұрын
Disculpa tengo una duda acerca de dicha configuración, anteriormente me sirvió mucho, pero ahora tengo un rango de 5,000 formulas hacia abajo las cuales son decisiones por lo tanto no en todo el rango existe información, por lo que me generó la duda de ver si puedo cortar el rango hasta donde hay información ya que actualmente los espacios se quedan en blanco y me gustaría ver solamente hasta donde esta el texto o información, muchas gracias espero y me puedan ayudar :).
@diegoarboleda319
@diegoarboleda319 7 жыл бұрын
Hola muy interesante tu video, estoy trabajando en algo y me viene de gran ayuda, tengo una pregunta. Necesito hacer lo contrario, pasar de bloc de notas a un listbox respetando la distribución por columnas, de paso seria bueno saber si se puede evitar cargar algunos de los datos para hacer una especie de filtro. gracias
@formulasexcel
@formulasexcel 7 жыл бұрын
El siguiente vídeo puede ser de ayuda para pasar los datos del txt a excel y luego ingresarlos al ListBox Para filtrar los datos que se ingresaran al ListBox puede usar un ciclo for y dentro de este un IF para indicar cuales entran o no .
@diegoarboleda319
@diegoarboleda319 7 жыл бұрын
Formulas Excel esperare muy ansioso tu proximo video
@28alex04
@28alex04 6 жыл бұрын
Muy buen vídeo, quisiera saber como se haría en el caso que quiera "guardar como" el txt para poder guardarlo con cualquier nombre y el cualquier directorio.
@nathalyyanqui1569
@nathalyyanqui1569 4 жыл бұрын
Muchas gracias por el tutorial. Pero tengo una duda, al generar el txt genera una línea en blanco al final. ¿Cómo se puede borrar?
@bgasparis
@bgasparis 6 ай бұрын
si quiciera que bajo de cada renglon agregara mas informacion que habria que hecer??
@edgareduardo5114
@edgareduardo5114 6 жыл бұрын
Excelente, gracias por compartir
@victormucha5798
@victormucha5798 Жыл бұрын
Gracias por compartirlo. Como podria darle formato de maximo 2 decimales para numeros que se trasladan al txt. Agradeceria su apoyo o si alguno podria direccionarme a algún link donde pueda revisar. Gracias
@michelchacaliaza787
@michelchacaliaza787 5 жыл бұрын
Muy buen tutorial!
@hlfjimenez
@hlfjimenez 4 жыл бұрын
Buen dia, excelente video me ayudo mucho, sin embargo, dentro de mi estructura de datos la columna que voy a exportar al TXT, contienen espacios en blanco, y se detiene al conseguir el primer espacio, es decir, si el dato es "001 003254789" solo muestra "001" y se va a la siguiente linea, como puedo hacer para que traiga todo el valor de la celda, incluyendo los espacios en blanco? gracias
@nemacyst7766
@nemacyst7766 3 жыл бұрын
Gracias crack
@abelhuaman6421
@abelhuaman6421 9 жыл бұрын
Amigo gracias por lo que comparte. una consulta hay una columna donde pongo 0001 por que me exige la entidad pero a la ahora de correr la macro me sale 1 a la hora de hacer la validacion no me acepta por favor me podrías ayudar con ese tema . gracias de ante mano amigo saludos!!!
@spartan1862
@spartan1862 8 жыл бұрын
Excelente vídeo, pero me surge el problema de que al querer cambiar el origen de los datos por ejemplo que empiece en A2 en lugar de A1, se genera un txt incompleto, me podrías dar alguna sugerencia para resolver este conflicto, saludos.
@formulasexcel
@formulasexcel 8 жыл бұрын
+spartan En el ejemplo empieza en A2 For i = 1 To nFilas For j = 1 To nColumnas tx.Write Ht.Cells(i + 1, j).Value If j < nColumnas Then tx.Write "|" Next j tx.WriteLine Next i En ese código, el contador i es el que indica el numero de fila donde se va recorriendo, inicia en 1 y termina en el numero de filas con datos de la tabla. tx.Write Ht.Cells(i + 1, j).Value En esa linea se indica el numero de fila de donde se van tomando los datos, como i empieza en 1, se le suma 1 para que inicie en la fila 2, en cada iteracion se suma 1 porque el contador ha iniciado una fila antes de la que que queremos obtener los datos. Si la primera fila donde se obtendrán los datos es la 3, entonces al iterador se le suma 2 tx.Write Ht.Cells(i + 2, j).Value
@spartan1862
@spartan1862 8 жыл бұрын
***** excelente muchas gracias
@miguelangelechevarriarojas6843
@miguelangelechevarriarojas6843 6 жыл бұрын
Excelente video me sale el archivo txt en blanco a que se debe, gracias
@TheDarkanimes
@TheDarkanimes 2 жыл бұрын
buen video me funciono bien en windows pero para mac me sale el error de librería filesystemobject habla otra forma de generar el txt sin utilizar filesystemobject.
@est3ban5
@est3ban5 8 жыл бұрын
excelente video!!!
@emilianocampana9580
@emilianocampana9580 8 жыл бұрын
Excelente video, te hago una consulta a ver si me podes ayudar tengo que exportar a un archivo TXT con ciertas condiciones...me podiras pasar un mail donde te pueda pasar las condiciones?????
@formulasexcel
@formulasexcel 8 жыл бұрын
Puede plantear sus requerimientos en la siguiente pagina. formulasexcel.com/consultoria/
@enriquesifontes5197
@enriquesifontes5197 5 жыл бұрын
no tendras por ahi uno de hacer nomina para el faov
@emiliosalinasnolasco5486
@emiliosalinasnolasco5486 5 жыл бұрын
Exelente tutorial!! Me podría ayudar, como podría generar un txt de una sola hoja pero de algunas columnas
@carloslinking
@carloslinking 4 жыл бұрын
lo explico en el video :/
@mariocortes3962
@mariocortes3962 7 жыл бұрын
HOLA TE AGRADESCO QUE COMPARTAS TUS CONOCIMIENTOS, QUE SON DE GRAN AYUDA, TENGO UNA INQUIETUD AL GENERAR EL TXT COMO HACER UNA CONDICION PARA QUE RESPETE LOS CARACTERES DE UNA CELDA ES DECIR EN LA CELDA A2 QUE ES EL CONCECUTIVO.....YO NECESITO QUE EN EL ARCHIVO TXT TENGA 8 CEROS ANTES DEL 1....OJALA ME PUEDAS AYUDAR
@Ing.Emerson
@Ing.Emerson 5 жыл бұрын
Hola amigo buen vídeo, un detalle cuando adicionamos filas en el encabezado (filas vacías) se rellena con el separador como se arreglaría en código para capture los datos ahí y los guarde en el txt ? me explico: digamos que adicionemos unas 10 filas antes del encabezado (Código Nombre Fecha Ingreso Sucursal Puesto Sueldo ) y modificamos en código de filas (nFilas = Ht.Range("A11", Ht.Range("A11").End(xlDown)).Cells.Count), para que capture los datos desde la nueva posicion y los guarde ... pero al final sale un archivo lleno pero con el separador.... y no el objetivo que es mostrar el registro que deseamos, como corregimos amigo ese código, y funcione.
@fernandoparejaiparraguirre6981
@fernandoparejaiparraguirre6981 7 жыл бұрын
Excelente video...
@andersonaguiar9731
@andersonaguiar9731 5 жыл бұрын
Buenas tardes, que pasa si existen campos vacios?
@patriciamercedes7977
@patriciamercedes7977 7 ай бұрын
excelente, pero faltaron los centavos de la última columna
@sistemasesesanpablodetarso20
@sistemasesesanpablodetarso20 2 жыл бұрын
Hola por favor me indican como crear la macro para un archivo que tenga indeterminadas filas pero que las columnas sean solo 17 asi tengan columnas sin datos
@victormarvell
@victormarvell 6 жыл бұрын
saludos, todo me funciono pero hay alguna manera de generar el monto con 2 decimales por ejemplo 5000.00
@nelsonlargo254
@nelsonlargo254 2 жыл бұрын
como hago para anadir los encabezados de las columnas al archivo txt
@mariocortes3962
@mariocortes3962 7 жыл бұрын
EN EL CASO DE LA COLUMNA B2 SI TIENE TITULO PERO NO HAY DATOS PERO QUIERO QUE RESPETE LOS 16 CARACTERES QUE TIENE QUE TENER EL LAY OUT
@pablochaile7493
@pablochaile7493 2 жыл бұрын
Hola al momento de crear el objeto no me sale las opciones de FileSystemObjet será que mi excel lo tiene con otro nombre?
@victorduenas2784
@victorduenas2784 6 жыл бұрын
QUE BUEN MACRO
@antoniovelasan
@antoniovelasan 7 жыл бұрын
Buenísimo el vídeo, pero ¿cómo puedo solucionar el problema de tener celdas vacías ?. Si encuentra una en mitad de una fila, directamente pasa a la siguiente sin coger los valores de las columnas que están a la derecha. Muchas gracias
@TheNamesis2ify
@TheNamesis2ify 7 жыл бұрын
buen dia, quisiera saber si es posible que genere varios txt por hoja separada en el mismo libro con esa mismo macro, gracias
@gatofeliz5480
@gatofeliz5480 9 жыл бұрын
si quisiera que no solo fuera una persona, si no que lo sacara de una lista como pordria modificar esta parte del macross "if HT.cells(i+1,4).value= "Cancun".then"
@juandavidsalazar6970
@juandavidsalazar6970 7 жыл бұрын
Me sirvió mucho el vídeo, pero en la fecha necesito que me pase sin los (/)
@efrainricardoforeromendoza3629
@efrainricardoforeromendoza3629 2 жыл бұрын
Hola, si encontraste la solución, por favor me ayudas
@leoparodi
@leoparodi Жыл бұрын
Cómo puedo guardarlo en formato uft-8 desde el editor de visual basic?
@gabrielalvarez1940
@gabrielalvarez1940 Жыл бұрын
al guardar el archivo txt me inserta por default siempre una linea en blanco en la ultima fila. ¿Como hago para que al momento de guardar el txt, esa linea desaparezca?
@fernandoparejaiparraguirre6981
@fernandoparejaiparraguirre6981 7 жыл бұрын
Excelente...
@emss8924
@emss8924 7 жыл бұрын
buen dia. Me puede colaborar necesito hacer lo mismo del video, pero que me genere un archivo plano por cada fila de la tabla de excel osea me deberia quedar un archivo txt separado por coma por cada persona ingresada en la tabla con sus datos y que la primera celda de cada fila sea el nombre del archivo. gracias es urgente.
@detodounpk
@detodounpk 8 жыл бұрын
Hola, muy buen video, muchas feliciades!!! me voy a suscribir en tu canal, estoy empesando a desarrollar Macros espero contar con tu apoyo en un futuro no muy lejano, gracias!!!
@maxnavarrete5079
@maxnavarrete5079 3 жыл бұрын
Hola tengo una duda se podrá EL PROCESO INVERSO?? escriba en txt y se pase a exell
@formulasexcel
@formulasexcel 3 жыл бұрын
En este video se explica como leer txt. kzbin.info/www/bejne/fJu0loR3i8Z8sNE
@ErwinCleitonTerronesBazan
@ErwinCleitonTerronesBazan 8 жыл бұрын
Buen Tutorial, he notado que siempre genera con una linea vacía al final del archivo txt como haría para que no suceda esto.
@4danielpacho
@4danielpacho 7 жыл бұрын
metele una condicion parecida a la que le puso para que no ponga la ultima coma
@gustavoyhumar
@gustavoyhumar 7 жыл бұрын
Gracias!! me ayudaste!!
@carloscamico4923
@carloscamico4923 5 жыл бұрын
Hola necesito ayuda urgente!! pls ¿Como puedo cargar masivamente una nomina excel a txt?
@cgerkesv
@cgerkesv 8 жыл бұрын
Hola tengo una base de datos por periodos y quisiera que me considere sólo el periodo que yo imputo, podrías ayudarme
@kistellmilagrosarroyoherme8601
@kistellmilagrosarroyoherme8601 8 жыл бұрын
Hola Me podrías ayudar con algo? Tengo muchos bloc de notas Lo que necesito es pasar todos los bloc de notas a un mismo y único excel ¿Cómo podría hacerlo?
@eduardomendoza7376
@eduardomendoza7376 9 жыл бұрын
Hola bro me podrias ayudar con esa macro para que no me genere el ultimo salto de linea
@churumpis
@churumpis 3 жыл бұрын
hola buenas tardes tengo un problema al momento que genero un archivo txt los decimales que estan com punto se cambian por una coma ejemplo (21.19 asi esta en excel y cuando pasa a txt de cambia a 21,19) alguien me puede ayudar como solucionar ese detalle.. x favor... por ahi me indicaron que es por la configuracion de excel pero ya prove de todo y no logo encontar la solucion.... gracias..
@wilfredmast
@wilfredmast 7 жыл бұрын
hermano como hago para que me pregunte el nombre con cual quiero guardar el archivo?
@hardyaguila
@hardyaguila 7 жыл бұрын
disculpa ...me genera texto pero sólo una palabra.... ise una prueba haciendo el mismo contenido de tu archivo y si me funcionó pero al meter los datos que yo ocupo el bloc de notas solo me hace una palabra...tendrá mucho que ver porque inicien en # o en = ????
@formulasexcel
@formulasexcel 7 жыл бұрын
La clave para el recorrida de las filas es la variable nFilas, si al darle valor a esa variable se esta obteniendo un 1, entonces el ciclo se repite usa sola vez, asi que obtiene solo el dato de la primera fila a procesar. Así que debe revisar el código donde se la asigna valor a la variable nFilas.
@cheyenneps8950
@cheyenneps8950 8 жыл бұрын
Hola como hago para que a la hora de generar el txt la fecha ingreso aparezca debajo de cada nombre respectivamente.
@jurgisleafardelgadodavila6497
@jurgisleafardelgadodavila6497 7 жыл бұрын
hola como seria el codigo Macro Excel para Generar TXT CSV que solo sea un solo botón no dos que al darle clic a ese boton genere un archivo txt y un csv automáticamente gracias
@kirito-kun
@kirito-kun 6 жыл бұрын
hola, excelente video. quisiera hacerle una consulta si es posible. a mi me han pedido que de un excel, con varias columnas, grabe un txt, en el cual los datos van en linea y separados por una cantidad de espacios dada, es decir, si tengo una columna que ha de ocupar 20 espacios pero solo llené 10, el txt debe tener los 10 caracteres ocupados y rellenar los faltantes con 10 espacios. esto es una planilla que se ha de mandar a un banco. este código esta bien? porque no deja de dar errores. Option Explicit Sub TXT() Dim oDoc As Object ' El documento actual Dim oHojas As Object ' La colección de hojas del documento Dim oHoja As Object ' Hoja en específico Dim sNewFilename As String ' Nuevo nombre de texto Dim sURL As String ' URL existente en el documento Dim sCurrDir As String ' Directorio actual Dim sExt As String ' La nueva extensión a aplicar Dim NumeroArchivo As Integer Dim LongitudColumnas(25) As Integer ' Columnas A-Z. Columna A = índice 0 del array (integer) Dim DatoCelda As String Dim FilaActual As Long Dim Contador As Long Dim UltimaColumna As Long Dim LineaResultado As String Const COLUMNA_A As Long = 0 UltimaColumna = 25 ' Columna_Z ReDim LongitudColumnas(UltimaColumna) ' COLUMNAS LONGITUD LongitudColumnas(0) = 2 ' Columna_A 2 LongitudColumnas(1) = 4 ' Columna_B 4 LongitudColumnas(2) = 4 ' Columna_C 4 LongitudColumnas(3) = 20 ' Columna_D 20 LongitudColumnas(4) = 1 ' Columna_E 1 LongitudColumnas(5) = 2 ' Columna_F 2 LongitudColumnas(6) = 2 ' Columna_G 2 LongitudColumnas(7) = 1 ' Columna_H 1 LongitudColumnas(8) = 40 ' Columna_I 40 LongitudColumnas(9) = 40 ' Columna_J 40 LongitudColumnas(10) = 2 ' Columna_K 2 LongitudColumnas(11) = 8 ' Columna_L 8 LongitudColumnas(11) = 3 ' Columna_M 3 LongitudColumnas(11) = 1 ' Columna_N 1 LongitudColumnas(11) = 11 ' Columna_O 11 LongitudColumnas(11) = 8 ' Columna_P 8 LongitudColumnas(11) = 2 ' Columna_Q 2 LongitudColumnas(11) = 1 ' Columna_R 1 LongitudColumnas(11) = 1 ' Columna_S 1 LongitudColumnas(11) = 30 ' Columna_T 30 LongitudColumnas(11) = 6 ' Columna_U 6 LongitudColumnas(11) = 3 ' Columna_V 3 LongitudColumnas(11) = 4 ' Columna_W 4 LongitudColumnas(11) = 5 ' Columna_X 5 LongitudColumnas(11) = 20 ' Columna_Y 20 LongitudColumnas(11) = 2 ' Columna_Z 2 ' TOTAL 223 oDoc = ThisComponent oHojas = oDoc.Sheets() oHoja = oHojas.getByName("DATOS") 'sURL = ConvertFromURL(oDoc.getLocation()) sCurrDir = Mid(sURL, 1, Len(sURL) - Len(Dir(sURL))) sExt = ".txt" sNewFilename = sCurrDir & "Archivo_" & Format(Now, "yyyymmddhhmmss") & sExt ' ¡Atención! Los datos comienzan en la Fila 3 (El índice de la Fila 1 es 0) FilaActual = 0 ' ¡Atención! Los datos comienzan en la Columna A (El índice de la Columna A es 0) NumeroArchivo = FreeFile Open sNewFilename For Output As #NumeroArchivo With oHoja Do While .getCellByPosition(COLUMNA_A, FilaActual).getString() "Fin listado" LineaResultado = "" For Contador = 0 To UltimaColumna DatoCelda = .getCellByPosition(Contador, FilaActual).getString() If Len(DatoCelda) < LongitudColumnas(Contador) Then DatoCelda = DatoCelda & Space(LongitudColumnas(Contador) - Len(DatoCelda)) End If LineaResultado = LineaResultado & DatoCelda Next Print #NumeroArchivo, LineaResultado FilaActual = FilaActual + 1 Loop End With Close NumeroArchivo End Sub
@JAHH95animes
@JAHH95animes 6 жыл бұрын
Hola quisiera saber cómo puede generarse archivos planos con extensiones .det .cab .ley y otros tipos de extensiones en excel
@Lunita-d3w
@Lunita-d3w 8 жыл бұрын
como hago para q cuando no hay datos en la hoja excel me salga el txt vacio si comas; tab, etc. y solo guarde el nombre que yo le doy.
@chernan16
@chernan16 7 жыл бұрын
Que tal buen día, si quisiera hacer la separación por doble tabulación como le tendría que hacer? lo intente de la siguiente manera: If j < nColumnas Then tx.Write vbTab tx.Write vbTab End If pero solo me pone una tabulación y necesito dos
@jeffersonleal3512
@jeffersonleal3512 8 жыл бұрын
buena explicación me sirvió mucho pero cuando género el txt me cambia la configuración de la fecha la confiuracion de la fecha en el Excel es aaaa-mm-dd pero al generar el txt me genera dd/mm/aaaa alguien sabe como puedo hacer para que me conserve el formato del excel ?
@RanchoIxmucane
@RanchoIxmucane 2 жыл бұрын
Excelente explicación pero podría ayudarme yo tengo un archivo que genera el archivo txt y con separador pipe, el problema es que no todas las columnas tienen dato y quisiera saber como quitar el pipe de las columnas donde no tengan datos, por ejemplo: Codigo Nombre Fecha Ingreso Sucursal Puesto Sueldo 1 JUAN 11/12/2013 Culiacan CONTADOR 20,829.00 2 MARIA 07/08/2010 En la segunda Fila ya no esta completa y su macro se basa en el encabezado, y la mia en la fila pero no puedo hacer que me quite el separador en la segunda fila, me gustaria que quede asi: 1|JUAN|11/12/2013|Culiacan|CONTADOR|20829 2|MARIA|07/08/2010
@juandavidgarciarodelo8595
@juandavidgarciarodelo8595 4 жыл бұрын
porque no añade los ceros decimales?
@hackerpercy
@hackerpercy 7 жыл бұрын
Hola, la formula es excelente , pero cuando sola hay una fila el excel empieza colgarse y hacer reportes hasta de las celdas vacias, seria bueno una solucion ya que con una sola fila se cuelga el excel
@gabcha87
@gabcha87 7 жыл бұрын
si es una sola no deberías utilizar el for de columnas, solo el de las filas (i)... no sería un FOR dentro de otro sino un solo FOR el que necesitas, en otras palabras
@gonzalotarrio6443
@gonzalotarrio6443 8 жыл бұрын
Como se hace para que solo se escriba por ejemplo la columna E
@peich999
@peich999 6 жыл бұрын
Como puedo crear el txt con nombre de archivo de una determinada celda?
@RobertoMartinez-yl1kc
@RobertoMartinez-yl1kc 3 жыл бұрын
Hola, quisiera que el nombre de mi archivo exportado fuera el contenido de una celda de otra hoja, ¿Alguien sabe como podría? Después de varios intentos no se me ocurre nada
Macro para exportar Archivo de Excel a TXT PASO A PASO
24:08
TutorialesLAB
Рет қаралды 59 М.
Macros que NECESITAS en tu trabajo 🤓
29:51
A2 Capacitación: Excel
Рет қаралды 118 М.
😜 #aminkavitaminka #aminokka #аминкавитаминка
00:14
Аминка Витаминка
Рет қаралды 3 МЛН
龟兔赛跑:好可爱的小乌龟#short #angel #clown
01:00
Super Beauty team
Рет қаралды 137 МЛН
⭐️ ¿Cómo usar MACROS en EXCEL? 😱 más fácil IMPOSIBLE 😱
26:47
El Inge Francisco
Рет қаралды 862 М.
EASILY Make an Automated Data Entry Form in Excel
14:52
Kenji Explains
Рет қаралды 808 М.
Macro Excel para Leer TXT
7:18
Formulas Excel
Рет қаралды 25 М.
Tutorial de Macros VBA - Importar archivos de texto
12:15
Mazz Foto Y Video
Рет қаралды 42 М.
Copy, move, delete, rename files and folders from Excel with VBA and macros @EXCELeINFO
23:29
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 73 М.
Macro Excel para Crear PDF
13:31
Formulas Excel
Рет қаралды 76 М.
😜 #aminkavitaminka #aminokka #аминкавитаминка
00:14
Аминка Витаминка
Рет қаралды 3 МЛН