Descarga el ejemplo en esta pagina. formulasexcel.com/macro-excel-para-generar-txt/ Descarga todas las apps contables en excel acá. formulasexcel.com/productos/
@huhini4 жыл бұрын
Muy buen video. Enhorabuena. 5 años depués aún me ha valido.
@MiguelAngelFloresTicay6 жыл бұрын
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
@Sarbin0738 жыл бұрын
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!!!
@verillo145 жыл бұрын
Muchísimas gracias por el tutorial. Hace rato estaba buscando la forma de optimizar mi trabajo. Dios Te bendiga
@cesarcalderon82607 жыл бұрын
El video de convertir a texto, buenísimo, lo hice al pie de las instruciones y funciona de maravilla, felicitaciones sigan adelante!!! 😂👍👍👍👍👍
@melissab39146 жыл бұрын
3 años despues me ayudó demasiado! Súper fácil de hacer 👌👍
@gabrieln11885 жыл бұрын
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.
@thebroki66842 жыл бұрын
EXCELENTE VIDEO, BIEN EXPLICADO MASTER!!!!
@lysterp.95738 жыл бұрын
Estimado, muchas gracias. Me sirvio muchisimo. A partir tu ejemplo he podido hacer algunos cambios y me queda excelente. Saludos cordiales...
@hugoretes24155 жыл бұрын
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.
@rodolforuiz98895 жыл бұрын
Excelente material , claro y detallado , gracias por compartir
@cervandojose22099 жыл бұрын
Gracias amigo justo lo que necesito aprender macros gracias saludos .
@johancamilomuelasvernaza53014 жыл бұрын
Excelente, me ayudo mucho. Saludos
@yevabe4 жыл бұрын
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!
@formulasexcel4 жыл бұрын
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"
@JoseAntepara7 жыл бұрын
Muchas gracias por tu tutorial, me ha ayudado en mi trabajo. 100% efectivo!!
@formulasexcel7 жыл бұрын
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
@jocksanielrodriguez56502 жыл бұрын
Muchísimas gracias, este me sirvió mucho mejor.
@huhini4 жыл бұрын
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
@juansoto42998 жыл бұрын
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-zh7zg2 жыл бұрын
Excelente explicacion 🙏
@cristianviva4 жыл бұрын
Me sirvió mucho tu video Espero sigas subiendo más material como este Saludos! Ya tienes tú aún y like
@goldgarbagecan3 жыл бұрын
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
@josetomas37743 жыл бұрын
Super útil, muchas gracias
@neilszegarraramirez6 жыл бұрын
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
@marianosoria75945 жыл бұрын
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
@gera123938 жыл бұрын
Excelente Tutorial, me sirvió de mucho, muchas gracias.
@xrobertovaldesc9 жыл бұрын
Está muy Bueno!! te pasaste!
@alcaorti7 жыл бұрын
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.
@carlostbsalesforce29623 жыл бұрын
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
@johnrubio63237 жыл бұрын
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!
@hildcastro8 жыл бұрын
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.
@felipeandresgonzalezorella35447 жыл бұрын
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_mina4 жыл бұрын
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....
@josedaviddiazprada31769 жыл бұрын
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....
@josedaviddiazprada31769 жыл бұрын
Ok lo pondré en práctica haber como me va!
@arjuanfelipe4 жыл бұрын
Cinco años después del vídeo, buen código.
@karlarito24725 жыл бұрын
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
@Yoguix9 жыл бұрын
bueas noches amigo y si lo quieres programar en un boton que te haga todo eso?
@CESIAGADEA9793710376 жыл бұрын
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
@jesusequijada8 жыл бұрын
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
@antoniopompa53547 жыл бұрын
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
@gera123938 жыл бұрын
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 :).
@diegoarboleda3197 жыл бұрын
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
@formulasexcel7 жыл бұрын
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 .
@diegoarboleda3197 жыл бұрын
Formulas Excel esperare muy ansioso tu proximo video
@28alex046 жыл бұрын
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.
@nathalyyanqui15694 жыл бұрын
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?
@bgasparis6 ай бұрын
si quiciera que bajo de cada renglon agregara mas informacion que habria que hecer??
@edgareduardo51146 жыл бұрын
Excelente, gracias por compartir
@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
@michelchacaliaza7875 жыл бұрын
Muy buen tutorial!
@hlfjimenez4 жыл бұрын
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
@nemacyst77663 жыл бұрын
Gracias crack
@abelhuaman64219 жыл бұрын
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!!!
@spartan18628 жыл бұрын
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.
@formulasexcel8 жыл бұрын
+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
@spartan18628 жыл бұрын
***** excelente muchas gracias
@miguelangelechevarriarojas68436 жыл бұрын
Excelente video me sale el archivo txt en blanco a que se debe, gracias
@TheDarkanimes2 жыл бұрын
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.
@est3ban58 жыл бұрын
excelente video!!!
@emilianocampana95808 жыл бұрын
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?????
@formulasexcel8 жыл бұрын
Puede plantear sus requerimientos en la siguiente pagina. formulasexcel.com/consultoria/
@enriquesifontes51975 жыл бұрын
no tendras por ahi uno de hacer nomina para el faov
@emiliosalinasnolasco54865 жыл бұрын
Exelente tutorial!! Me podría ayudar, como podría generar un txt de una sola hoja pero de algunas columnas
@carloslinking4 жыл бұрын
lo explico en el video :/
@mariocortes39627 жыл бұрын
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.Emerson5 жыл бұрын
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.
@fernandoparejaiparraguirre69817 жыл бұрын
Excelente video...
@andersonaguiar97315 жыл бұрын
Buenas tardes, que pasa si existen campos vacios?
@patriciamercedes79777 ай бұрын
excelente, pero faltaron los centavos de la última columna
@sistemasesesanpablodetarso202 жыл бұрын
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
@victormarvell6 жыл бұрын
saludos, todo me funciono pero hay alguna manera de generar el monto con 2 decimales por ejemplo 5000.00
@nelsonlargo2542 жыл бұрын
como hago para anadir los encabezados de las columnas al archivo txt
@mariocortes39627 жыл бұрын
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
@pablochaile74932 жыл бұрын
Hola al momento de crear el objeto no me sale las opciones de FileSystemObjet será que mi excel lo tiene con otro nombre?
@victorduenas27846 жыл бұрын
QUE BUEN MACRO
@antoniovelasan7 жыл бұрын
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
@TheNamesis2ify7 жыл бұрын
buen dia, quisiera saber si es posible que genere varios txt por hoja separada en el mismo libro con esa mismo macro, gracias
@gatofeliz54809 жыл бұрын
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"
@juandavidsalazar69707 жыл бұрын
Me sirvió mucho el vídeo, pero en la fecha necesito que me pase sin los (/)
@efrainricardoforeromendoza36292 жыл бұрын
Hola, si encontraste la solución, por favor me ayudas
@leoparodi Жыл бұрын
Cómo puedo guardarlo en formato uft-8 desde el editor de visual basic?
@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?
@fernandoparejaiparraguirre69817 жыл бұрын
Excelente...
@emss89247 жыл бұрын
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.
@detodounpk8 жыл бұрын
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!!!
@maxnavarrete50793 жыл бұрын
Hola tengo una duda se podrá EL PROCESO INVERSO?? escriba en txt y se pase a exell
@formulasexcel3 жыл бұрын
En este video se explica como leer txt. kzbin.info/www/bejne/fJu0loR3i8Z8sNE
@ErwinCleitonTerronesBazan8 жыл бұрын
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.
@4danielpacho7 жыл бұрын
metele una condicion parecida a la que le puso para que no ponga la ultima coma
@gustavoyhumar7 жыл бұрын
Gracias!! me ayudaste!!
@carloscamico49235 жыл бұрын
Hola necesito ayuda urgente!! pls ¿Como puedo cargar masivamente una nomina excel a txt?
@cgerkesv8 жыл бұрын
Hola tengo una base de datos por periodos y quisiera que me considere sólo el periodo que yo imputo, podrías ayudarme
@kistellmilagrosarroyoherme86018 жыл бұрын
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?
@eduardomendoza73769 жыл бұрын
Hola bro me podrias ayudar con esa macro para que no me genere el ultimo salto de linea
@churumpis3 жыл бұрын
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..
@wilfredmast7 жыл бұрын
hermano como hago para que me pregunte el nombre con cual quiero guardar el archivo?
@hardyaguila7 жыл бұрын
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 = ????
@formulasexcel7 жыл бұрын
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.
@cheyenneps89508 жыл бұрын
Hola como hago para que a la hora de generar el txt la fecha ingreso aparezca debajo de cada nombre respectivamente.
@jurgisleafardelgadodavila64977 жыл бұрын
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-kun6 жыл бұрын
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
@JAHH95animes6 жыл бұрын
Hola quisiera saber cómo puede generarse archivos planos con extensiones .det .cab .ley y otros tipos de extensiones en excel
@Lunita-d3w8 жыл бұрын
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.
@chernan167 жыл бұрын
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
@jeffersonleal35128 жыл бұрын
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 ?
@RanchoIxmucane2 жыл бұрын
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
@juandavidgarciarodelo85954 жыл бұрын
porque no añade los ceros decimales?
@hackerpercy7 жыл бұрын
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
@gabcha877 жыл бұрын
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
@gonzalotarrio64438 жыл бұрын
Como se hace para que solo se escriba por ejemplo la columna E
@peich9996 жыл бұрын
Como puedo crear el txt con nombre de archivo de una determinada celda?
@RobertoMartinez-yl1kc3 жыл бұрын
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