VBA: Copiar Tablas de Excel a Documento de Word
Вставка
- Опубліковано 13 вер 2024
- ¡Bienvenidos a un nuevo video de Inteligencia Eficiente! 💡
En el video de hoy generaremos una subrutina que copie una tabla de datos en Excel a un documento de Word.
Me ayudarías bastante si lo compartes con todas las personas a las que creas que puede interesarles este video. 🤩 🙏
¿Necesitas asesoría personalizada? ¡Contáctame!
💻 Facebook: / inteligenciaeficiente
📧Gmail: inteligenciaeficienteYT@gmail.com
Música utilizada:
Hola Beats - Life, universe and everything - open.spotify.c...
Este tipo de contenido no es común en UA-cam, te felicito por compartir tus conocimientos con la comunidad, espero que sigas subiendo más vídeos como este.
Muchas gracias por tu valioso comentario, espero poder seguir contribuyendo :D
Buenísimo video. Gracias por compartir tus conocimientos, bien explicado además. Lo que necesitaba. Tengo 61 años, desde Chile 👍
Muchísimas gracias por valioso comentario, saludos hasta Chile :D!!
Que manera de transmitir y explicar, muy claro todo, muchas gracias por el contenido.
¡Muchas gracias por tu valioso comentario!
Excelente video! La verdad tus videos para mi son más entendibles que de otros UA-camrs 😅Era justo lo que estaba buscando pero en mi caso lo que quiero pegar no son tablas si no un rango del excel, que pego en las cartas en formato de imagen y luego los guardo en pdf y lo encripto, sabes como se podría hacer que el word que se genera de la plantilla se guarde en pdf o si es posible que se guarden y encripten 😅
O ya estoy pidiendo mucho
Gracias de antemano
Buen aporte. Estaría genial lo del ciclo para minimizar el codigo
¡Excelente! Muchas gracias, me sirvió mucho.
¡Con gusto! Saludos!! :D
excelentes videos! como podria hacer si la tabla que quiero exportar varía en filas para cada documento?
Excelente video y como sería de diferentes tablas. Un bucle que habrá diferentes excels de una carpeta y una vez ubicados los abre ingresa a una hoja particular y copia una tabla pequeña hacia un documento Word por ejemplo 20
Muy buen explicado 👍... pero tu crees que se pueda copiar y pegar la tabla en el Word pero con vínculo?? Osea q si cambio una información en el Excel se vea el cambio en el Word. Crees que se pueda ??
Claro que es posible Ale, cambia la parte LinkedToExcel:= False a LinkedToExcel:=True para que esté ligado, saludos!!
Te felicito por la explicación, tengo una duda la tabla es de un solo tamaño o se puede ir modificando a diferentes líneas
Si la tabla que estoy trabajando por ejemplo son 5 líneas pero después esa tabla solo tiene 3 líneas cuando ejecuto la macro detecta el tamaño de la tabla ?
Hola, me sumo a muchos de tus seguidores, de lo que eh buscado en internet del tema, muy poco eh encontrado, por lo cual agradezco el tiempo que te haz tomado por el caso.
Aplique lo mencionado en el video y lo ajuste a mi necesidad , pero solo quiero preguntar: "como ingreso datos desde excel al encabezado de word", anticipo mi agradecimiento a tu respuesta.
¡Hola! Muchas gracias por tus valiosos comentarios, en mi video de Buscar y Reemplazar dejé un comentario fijado para poder realizar dicha acción, si necesitas ayuda en ajustar esto para tu macro puedes contactarme al mail que dejo en la descripción y con gusto te apoyo a llevarlo a cabo. ¡Saludos!
Buenisimo video... ¡¡ FELICIDADES !! , una consulta, ¿como puedo insertar a traves de un ciclo diferentes parrafos en Word desde Excel y que los vaya insertando uno por uno a partid de una ubicación especifica (esto último se soluciona con la función FindAndSelect) dejando un espacio en blanco entre cada parrafo?.. Disculpa la molestia!!
¡Hola! Muchas gracias por tu comentario, claro que es posible, te comparto un ejemplo de como copiar el segundo párrafo de un documento de word. SALUDOS :D
Dim myDoc As Word.Document
Set myDoc = wdApp.Documents.Open("C:/TuRutaAqui")
myDoc.Paragraphs(2).Range.Copy
@@InteligenciaEficiente Muchas gracias por tu atención... Pondré en práctica el código... Saludos
muchas gracias por el video, estoy haciendolo y solo puedo sacar un word con los datos de unas determinadas celdas, como hago para sacar varios word de cada fila de datos que tiene mi tabla de excel? Gracias
Genial, me gustaría saber como crear la ruta, y como hacer cuando la tabla no tiene formato tabla.
Muchas gracias por la información... quisiera saber si hay forma de crear varios documentos Pdf usando una sola tabla, pero filtrando por un criterio específico.
¡Hola! Sí hay manera, si gustas puedes contactarme al correo que dejo en la descripción para poder tener un contacto más cercano. ¡Saludos!
Tus videos esta buenisimos...... una pregunta, como pudiera hacerse para que en vez de copiar una ruta en una celda, se utilizara el cuadro de dialogo tipico de windows de "guardar como", y mediante esa herramienta obtener la ruta?
Gracias !
¡Muchas gracias por tu comentario! Para realizar ese cambio debes modificar la siguiente sección del código:
newDocFileName = ActiveSheet.Range("D7").Text '
Bravo!!!
¡Muchas gracias! :D
hola, muchas gracias por tu video
muy muy útil y didáctico
como se podría cambiar código para que lo que se peguen sean las tablas pero en formato imagen en el word?
¡Hola! Podrías llamar a este método al final que convierte todas las tablas a imagen:
Sub ConvertTablesToImages()
Dim tbl As Table, rng As Range, i As Integer
Dim currentDoc As Document
Set currentDoc = ActiveDocument
For i = currentDoc.Tables.Count To 1 Step -1
Set tbl = currentDoc.Tables(i)
Set rng = tbl.Range
rng.Collapse Direction:=wdCollapseStart
tbl.Range.CopyAsPicture
tbl.Delete
rng.PasteSpecial DataType:=wdPasteEnhancedMetafile
rng.ShapeRange(1).ConvertToInlineShape
Next
End Sub
Hay ocasiones en las que requerimos no copiar la totalidad de la tabla sino algunos campos o columnas, celda por celda, hay alguna forma de interactuar? Podrías hacer algún ejemplo de ello?, saludos y gracias... :)
Hola Dario, espero que este video te ayude y cualquier cosa puedes contactarme a mi correo inteligenciaeficienteYT@gmail.com SALUDOS!! ua-cam.com/video/gm04zRD4ImE/v-deo.html&ab_channel=InteligenciaEficiente
Hola, me pasa igual, necesito solo la información que filtró de una tabla, si pudiste realizarlo?
Buen día, primero gracias por compartir tus conocimientos ya que son de mucha ayuda para personas como Yo que queremos seguir a prendiendo.
una consulta y en caso no encuentre la marca designada ; hemos logrado enviar un mensaje el cual nos informa que no se puede copiar la tabla ; pero como cierro el libro sin guardarlo .gracias por la ayuda.
Hola Juan, el método .Close SaveChanges:=False te permite cerrar un documento de Word o un libro de Excel sin guardar los cambios, te comparto más información en esta documentación :D docs.microsoft.com/es-mx/office/vba/api/excel.workbook.close
@@InteligenciaEficiente muchas gracias, sigue así ya que nos ayudas mucho.
La explicacion es clara. Pero me pasa que la tabla me queda fuera de rango. ¿Cómo se agrega el autofit en la macro de excel para que encaje bien en el documento?
Hola Verónica, podría intentar ejecutando este comando: With ActiveDocument.Tables(ActiveDocument.Tables.Count)
.AllowAutoFit = True
.AutoFitBehavior 1
.AutoFitBehavior 2
End With
hola, muy bueno todo.
podrias hacer un video que tenga una tabla con horarios, que pase a word,.Porque los horarios no me respertan el formato cuando los pasos, ose no queda tal cual , gracias
¡Hola Judith! Sí, ese puede ser un problema, lo tomaré en cuenta para futuros videos. ¡¡Muchas gracias!!
También tengo la duda si el word debe estar abierto al correr la macro ?
Hola Vanesa, no es necesario. ¡Saludos!
Hola muchas gracias por la información !!! Hice toda la macro como la explicas pero me sale un error en la FilaName ni de que pueda ser. Quizá la ruta. Me podrías ayudar ?
Hola Vanesa, claro que sí. Puedes enviarme tu macro al correo en la descripción para que pueda revisarla con mayor detalle. ¡Saludos!
Hola muy buenos sus videos, consulta, cuando Ejecuto el codigo me larga error "91" VARIABLE DE OBJETO O BLOQUE WITH NO ESTABLECIDO, revise el codigo y esta copiado tal cual sin errores!!!! AYUDAAAA
Hola!! Puede ser que no esté habilitado la referencia a Microsoft Word Object Library, de igual manera puedes mandarme tu macro a inteligenciaeficienteyt@gmail.com para poder revisarla a detalle Saludos!!
Cómo hago si quiero copiar tablas que se repiten y gráficos en un mismo documento de Word?😊
¡Hola Roger! No entiendo muy bien la pregunta pero podrías compartirme la macro con la que estás trabajando por correo para que pueda apoyarte de mejor manera. En la descripción del video encontrarás mi correo. ¡Saludos! :D
Hola, excelente tutorial.
Sabes, se me produce un error denominado "Se ha producido el error '9' en tiempo de ejecución: Subíndice fuera del intervalo" y el depurador me lleva a la función "CopyFromTable" fila "Set ExcelTable = ThisWorkbook.Sheets(sheetName).ListObjects(tableName)
Tiene alguna noción de que puesa ser, he buscado y no he podido solucionarlo
Gracias
Hola Rodrigo por favor verifica que el nombre de la hoja que contiene la tabla es correcto, debe coincidir mayúsculas, minúsculas y espacios, lo mismo con el nombre de la tabla. ¡Saludos!
y por otro lado, si solo queremos pegar un rango de celdas (sin ser "tabla")?
Hola Ander, espero que este video te sirva: ua-cam.com/video/gm04zRD4ImE/v-deo.html&ab_channel=InteligenciaEficiente ¡¡SALUDOS!!
Bro muy buen video, disculpa que te moleste pero tú sabes que cuando pongo set ExcelTable= thisworkbook.sheets(sheetName).ListObjects(tableName) me aparece subscript out OF range, tienes idea cómo lo puedo solucionar?
Hola Pedro! debes verificar que tanto sheetName como tableName sean nombres válidos de acuerdo a la hoja del libro de Excel que estás referenciando y al nombre de la tabla que quieres copiar.
@@InteligenciaEficiente muchas gracias!!!!!
Me sucede lo mismo, pudiste resolverlo?
el .Select para posicionar el cursor no me funciona
Hola Rossana, algún detalle podría haber... Si deseas una asesoría más personal puedes escribirme a: inteligenciaeficienteyt@gmail.com SALUDOS!!
Excelente video! muchas gracias por el contenido. Quizá alguien pueda ayudarme, me arroja error en: Set wdDocument = wdApp.Documents.Open(Filename:=mainSheet.Range("C1").Value, ReadOnly:=True)....en mi aplicación corresponde "C1"
Claro que sí, puede enviarme su macro al mail que le dejo en la descripción de este video. ¡Saludos! :D
@@InteligenciaEficiente Muchas gracias por la corrección, la aplicación me es de gran utilidad. Saludos!
Alguien me apoya con un error en la función que dice que no se ha definido 🥲
Hola Ricardo, respondí tu correo. Espero que haya quedado solucionado el error. ¡Saludos!