Jump to content

Macro para exportar datos de una tabla de word a excel


aviquez76

Recommended Posts

Buenas,

Quisiera saber si me pueden ayudar. Recibo una información en una tabla en Word de 4 columnas y la cantidad de filas es variable.

Quisiera saber si me pueden ayudar con una macro que copie del archivo llamado Reporte.docx a uno en Excel la tabla pero unicamente los datos de las columnas 1 y 3, con titulo Nombre y ID.

Recibo tablas muy grandes y es muy tedioso hacerlo manualmente,

Muchas gracias,

Link to post
Share on other sites

Prueba esto a ver si te funciona

Sub wdxl()

Const MiDocu As String = "C:\Tablas.doc"

Dim wAp As Object

Dim wordDoc As Object

Dim ws As Worksheet

Set wAp = CreateObject("Word.Application")

Set wordDoc = wAp.Documents.Open(MiDocu)

Set ws = Worksheets("Sheet1")

ws.Activate

ws.Range("A1").Select

wordDoc.Tables(1).Select

wAp.Selection.Copy

ActiveSheet.Paste Link:=True

wAp.Quit

End sub

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy