Macro para importar archivo TXT | VBA Excel 2016 #76

En este capítulo, veremos cómo importar datos contenidos en un archivo de texto, y cuya información sea agregada al libro de trabajo el cual tengamos activo en ese momento y a partir de una hoja y celda que nosotros elijamos.
Descarga proyecto: goo.gl/aydHmw
¡ Suscríbete! / ottojaviergonzalez

[@armandocalderon902]

Me gustan sus vídeos ya que es un lenguajes claro y preciso, muchas gracias por enseñarnos, que dios te bendiga y te de mucha salud

[@excelymasoficial]

+ARMANDO CALDERON Muchas gracias por tu comentario. Me motivas a seguir con este proyecto. Saludos y un abrazo!

[@robertoadriangonzalez7530]

Soy un gran fan de tu trabajo agradezco el gran contenido que compartes con nosotros gracias.

[@edgarcastillo3118]

Ante todo un gran Saludo Profesor Otto, realmente esta interesante este tema, me a dado nuevas ideas para realizar mis trabajos muchísimas gracias por compartir sus conocimientos Saludos desde Perú.

[@excelymasoficial]

+Edgar Castillo Me alegra que esto te sirva de base para realizar nuevas rutinas. Saludos!

[@dharmavladimiribarra1561]

excelente corto, preciso y sencillo, gracias infinitas desde Venezuela

[@faciol125]

muy buena macro, creo que a todos nos sirve por que en el trabajo muy seguido exportamos datos de un archivo txt. muchas gracias por compartir esta informacion

[@Jhoncas-ht1rk]

Buen día Otto muchas gracias por tus conocimientos eres grande....

[@alejandrovasquez873]

Tengo una duda, si la informacion txt, tiene encabezados y en esos encabezados hay cierta información que necesito extraer, junto con la informacion que pertenece a ese encabezado y asi se repite para varios grupos, como le puedo hacer, gracias

[@Mar10Bravo]

Hace poco llegue a un trabajo donde se hace un comparativo de xml con metadatos de un txt, el chiste que para abrir el txt es todo un proceso y justamente esta macro simplifica mucho.

[@claudiolopez3315]

Buenas tardes, maravilloso el video, explicado al detalle. Queria hacerte una consulta, esta macro tambien sirve para archivos csv???

[@sebastiannino8102]

la información es útil pero la macro seria de mayor utilidad si pudiera automatizar la divición del archivo y buscar el archivo que necesitamos, por ejemplo poner en una celda el nombre del archivo y que lo extraiga con solo tocar el boton.

[@keygenduarte402]

muy buena la explicacion!!! existe la posibilidad de importar también el nombre del archivo?? muchas gracias por la ayuda!!

[@eliezerresendiz9688]

Maestrazo Otto Javier Gonzàlez!!

[@simouharrama6047]

muchas gracias otto,eres un profff saludos desde barcelona

[@excelymasoficial]

+simou harrama Gracias por comentar. Saludos!

[@jonathanramos9969]

me sirvió mucho el video, muchas gracias. Una consulta si, se puede en vez de traer todo el txt, solo datos especificos?

[@joserpc1969]

Gracias por la explicacion, realmente util y entendible.

[@excelymasoficial]

+Jose Perez Me alegra que te guste. Saludos!

[@guillermoalfarocalderon9043]

Excelente video Otto, gracias por sus aportes. Feliz Año

[@jheisoncontable3285]

exelente!!! realmente tus videos ayudan mucho sigue adelante ..

[@001krlz]

Saludos desde Guatemala.

[@excelymasoficial]

+Carlos Joel Tum Palacios Saludos cordiales!

[@ferrukozuniga]

Que tal Otto, tengo ya rato siguiéndote, muchas felicidades. Tengo un detalle cuando agrego el código como Macro no da ningún problema, pero si lo agrego dentro de mi proyecto VBA si marca un error en la linea: Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy Por mas que le moví no logre hacerlo funcionar.

[@xaviermartinez7011]

Gracias Otto!

[@darioestiverfernandezmora5375]

Hola otto como estas, apenas estoy aprendiendo a usar macros de excel, en el vídeo no mencionas como hago para ejecutar la importación desde el botton, gracias

[@TheMetachita]

Muy bueno tu video lo realice y me funciono perfectamente, muchas gracias por tu aporte, pero tengo una inquietud.. como podría agregar varios archivos de texto al tiempo. Bonito día

[@nicolaslencina]

Estimado, muy buena la explicacion!! me podría indicar que lineas deberia agregar a la macro para que enlugar de darme la opcion de elegir la delimitacion quede configurada por VB?? en mi caso una vez que seleccione el archivo necesitaria que al dar acpetar importe los datos y los delimite por punto y coma. Muchas Gracias por su ayuda.

[@Mar10Bravo]

Tuviste la solución?

[@wangluna9589]

muy bueno. muy bien ecplicado

[@excelymasoficial]

+DAND LUNA. L.A. y asociados integrales sac. Muchas gracias por tu valoración. Saludos!

[@carlosgermancastresana3965]

Me podría servir si en el txt no hay separadores? Solo el texto y números de corrido

[@fabianhernandez1782]

Hola Excelentes videos, una duda en mi trabajo manejamos alrededor de 300 sucursales de las cuales cada semana tengo que generar pedidos mediante un layout TXT (delimitado por tabulación) por tienda. La información de excel esta ordenada de la siguiente manera: columna 1 número de sucursal, columna 2 código del producto, columna 3 número CERO (ya que así lo requiere el sistema) y la columna 4 piezas. Sucursal Código Parámetro Piezas 011 AA 0 30 012 AB 0 15 La información que debe contener el TXT por columna es productos, numéro CERO y piezas a partir digamos de la segunda fila ya que en la primera fila siempre debe contar con el número CERO y cada uno que se guarde con el nombre de la sucursal. espero me puedas ayudar a ver como se puede generar la macro para este caso. Ejemplo TXT. 0 AA 0 30

[@arturoguzman8730]

Disculpa, una duda, supongamos que quiero separar el txt. pero las primeras 3 líneas se separan distinto a las del resto, cómo puedo hacerlo ?

muchas gracias por sus videos, lo explica muy bien, tengo una inquietud, como hago para llenar una matriz a partir de un archivo txt. gracias.

[@jfpv2009]

Buenos días, los archivos de el Driver esta bloqueado.

[@tristan10xelmejor5]

Hola estimado Otto excelente video muchas gracias, una pregunta si quisiera que solo se carguen los archivos .txt (sin importar el formato u orden, solo que meta todo el texto) al excel un archivo por hoja como podría hacerlo?

[@Gaara_xp]

saludos amigo, ando investigando para realizar mi tesis y me encontre con este video del cual me surgió una duda. Como hacer una macros con el mismo principio de esta, pero que al pasar un txt a excel, que se exporte el archivo txt pero desde un párrafo en especifico del txt en adelante y que al ser exportado a la hoja de calculo se aplique el formato de tabla automáticamente y se generen los gráficos dinámicos. Se podría hacer eso? Espero tu respuesta y muchas gracias de antemano.

[@Mr_Martinez]

Profe excelente video, quisiera hacerle una pregunta hay alguna forma de que excel.descarge el archivo .txt que viene adjunto en.un correo de outlook

[@carloschavez592]

Hola, Otto, muchas gracias por tus videos y tu ayuda. Implemente este codigo en mi proyecto, pero no hay forma que la ventana de dialogo de importacion no me aparesca? Baje tu archivo de ejemplo y en el mio sale dicha ventana, tambien si me ayudas para que comienze copiando desde la linea 4 de mi archivo de texto. gracias por el apoyo

[@arturrolandoshugulicaicedo9117]

Estimado Otto. Aprovecho la oportunidad para desearle lo mejor para este año, y agradecerle por compartir sus conocimientos; meses atrás me dio su cuenta de skype, pero no he podido contactarlo, por favor me gustaría conversar con usted. Saludos

[@gregoabad]

Que pasa si en el archivo de texto tengo espacios después de los separadores y no quiero que me importe esos espacios a a celda de Excel? Como puedo excluir esos espacios?

[@joselynaushay9650]

Hola.. y para importar archivos desde access, que debo cambiar???

[@fabioalbertoariaspaez7568]

Hola, Otto, agradezco me indiques un número de contacto donde te pueda contactar para una posible consultoría, gracias.

[@darioestiverfernandezmora5375]

Otto como puedo hacer para bulce para exportar varias bases en el mismo archivo y validas que no inserte datos duplicados, gracias... excelente tus tutoriales (=

[@mauricioespin8158]

SE VE CHEVERE PERO COMO HICISTE LA MACRO

[@energiaalternativa8894]

No puedo descargar el archivo me podría mandar otro link gracias

[@davidosoriogarcia3998]

Hola Otto, suponiendo que se necesite solo la fila de un cliente, ¿como sería el codigo?

[@conexionsurf3242]

como hago para seleccionar varios archivos a la vez para importarlo y no solo uno.

[@GonzaloIsrael]

me gustaria un video de extraer de archivo excel, por decirte tengo datos por fecha y tengo mi DB y de ahi sin cesidad de entrar a cada archivo, si no que solo mande a buscar y me agregue la informacion.

[@nataliamejiaochoa1174]

Se pueden seleccionar varios txt a la vez?

[@richardwilmarsalascaballer8746]

Funciona para importar en formato csv?

[@rebollara8487]

¿en lugar de TXT podían ser xlsm?

[@luiskevintrujillohoyos2316]

Buenos tardes amigos se puedo hacerlo tambien desde proyect

[@RafaelMartinez-tf7to]

Buenas otto. muy buenas tus publicaciones, de verdad que me sirve de mucho. tengo un caso parecido a este. sin embargo tengo el inconveniente de que cuando me abre la ventana son muchos txt por lo cual pierdo mucho tiempo en buscar el que debo de pegar, en este caso tardaria mucho tiempo en ejecutar la tarea. existe alguna manera de que la macro me hale el archivo segun el nombre que quiera que abra. agradeceria de tu ayuda.

[@agustinllasam.6557]

buenazo amigo otto gracias

[@excelymasoficial]

+Javi ferrer Gracias a ti por el apoyo. Saludos!

[@InsolenteMike]

y como capturo la ruta del archivo?

[@abelfs2267]

Hola oye si lo que yo deseo es sacar datos espesificos como de podria hacer? Saludos

[@omarmurillo465]

Como mrda te aparece la opción de importar txt

[@albertotirapo5846]

Una pregunta como le puedo hacer si el txt esta en un zip? es que no me deja! Saludos!

[@innomedsanmiguel8905]

Hola don otto es un gusto saludarle esperando que Dios de tenga bien. De ya le pido disculpas porq mi comentario no ba con este video. Pues no encuento la forma de mandarle.un correo privado o personal. Le comento mi caso. Figese que hace unos dias encontre un videp donde puedo editar unserform en elcabezado agregarle una imagen pero nose como hacerle para canbiarla ya que el video esta en portugues y no entiendo muy bien. Y pues quiero mandarle el archivo y talves me ayuda.. de antemano gracias y bendiviones.

[@eduardosanchezromero2958]

Buena tarde, Por favor me ayuda para resolver el siguiente asunto: Tengo factura en word y necesito pasarla a excel para automatizarla, como lo puedo hacer l sin que se modifique la estructura de la factura??

[@adelamauriszaratemartinez3693]

sí quieres te hago la factura, sigueme y verás

[@PenaHub]

COMO EXPORTAR A CSV DELIMITADO POR |

[@adrianizquierdo522]

tienes algún video donde explique la función inversa. es decir tengo un excel y quiero crear un txt

[@guscoz4587]

Eso esta en el video No. 60

[@Diego-vq8et]

No me aparece el asistente para importar texto

[@mariodvillarreal]

Todo muy bonito, para archivitos de juguete. El tema serio, es cuando tenemos que importar un archivo de 500 mb, entonces tu copy paste se va al carajo. Me parece que es mejor mediante el ADODB o FileSystemObject, sin ese molesto asistente.

[@alfredmery6041]

Hola me puedes ayudar, tengo un problema en macro y no lo puedo solucionar.. Tengo un problema que quiero solucionar con excel y necesito que alguien por favor me pueda ayuda, les cuento: Tengo en una carpeta muchos archivos .txt que quiero importar en forma automática a excel, pero necesito que la información que contenga dicho archivo vaya en una celda, es decir, un archivo .txt igual una celda en la fila 1 en columna 1, segundo archivo .txt en la fila 2 de la columna 1 y asi sucesivamente. Además solo si es posible, que el nombre del archivo .txt vaya en la columna 2, al lado de la importacion de la fila 1, fila 2.. Etc.. Yo no tengo conocimiento avanzado en el tema, pero voy con este macro a ver si me pueden ayudar por fa. Sub importar() ubica = InputBox("En qué celda va empezar la importación del Texto") With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\Prueba excel\Article - Abridge.txt" _ , Destination:=Range(ubica)) 'AQUI DEBES SEÑALAR LA RUTA DONDE ESTA TU ARCHIVO DE DATOS ORIGEN .Name = "importar_datos_excel_1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 850 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub

[@eduardocumpajuarez5808]

Hola, podrías hacer un tutorial enseñando a como crear, editar, guardar y eliminar un archivo txt, desde excel con macros. Y a la misma vez puedes hacer que el archivo txt generado por la macros envié toda la información que se alla guardado en el archivo txt a una base de datos, ya sea mysql o sql server !. todo eso desde excel macros. sera que se pueda hacer todo eso ?, espero tu respuesta, si fueras tan amable !

[@cheyenneps8950]

Y COMO HAGO PARA CREAR UN MACRO EN EXCEK PARA QUE EXPORTE LOS DATOS A TXT?

[@guscoz4587]

creo que eso esta en el video No. 60

[@adrianhurtado8890]

Falto ejemplo de ejcución

[@luismiguelgrajales3851]

PARA GUARDAR EN UN TXT Sub Txr_guardar() Dim final As Integer, LC As Integer, Textu As String Ruta = ThisWorkbook.Path & "\bang.txt" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(Ruta) Then Kill Ruta 'Open Ruta For Random As #1 Len = Len(pReg) + 2 final = Range("A" & Rows.Count).End(xlUp).Row LC = Cells(1, Columns.Count).End(xlToLeft).Column Dim Archivo_No1 As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''' Archivo_No1 = FreeFile Open Ruta For Output As #Archivo_No1 'Open "Prueba.txt" For Output As #Archivo_No Textu = "" For Fla = 1 To final Textu = "" For Clma = 1 To LC Textu = Textu & Cells(Fla, Clma) & "," Next Clma With Sheets("Hoja1") 'Print #Archivo_No1, .Cells(Fla, Clma) & "," '& .Range("D" & i) Print #Archivo_No1, Textu End With Next Fla 'Close #Archivo_No Close #Archivo_No1 'Cells(Fla, Clma).Select End Sub