Exportar tablas de Excel a Word

Hola Jorge :-)

Hola;

Tengo una duda, es que tengo unas tablas en excel y necesito llevarlas a un
documento de Word en ubicaciones especificas, pero no se si sea posible.

En caso que sea posible, me gustaria saber como funciona esto o como podria
hacerlo por medio de una macro.

Muchas gracias.
Jorge Rendon.

Bien mirate la siguiente conversacion y miramos de modificar los codigos
que en ellas se encuentran »

Seria definiendo nombres a tus tablas en excel y llevandolas a word:

http://tinyurl.com/2b3bgz

Y... comentanos ok? :-)

Saludos
Monica









Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]
» Nothing Else Matters [ Metallica ]

www.fermu.com

Hola monica,

Tome una de las macros de la conversacion y funciona correctamente, pero me
queda faltando algo.

Las tablas pegan en un tamaño demasiado grande, tanto que en algunas queda
apenas media tabla dentro del documento y la otra mitad se sale, :) . Me
gustaria que quedaran del tamaño del documento y centradas, pero no se como
darle la opcion al pegarlas.

Por otro lado, cada que voy a copiar las tablas al abrir las hojas de
calculo de excel salen unas ventanas con preguntas sobre si desea que la
informacion este vinculada o sin vincular, despues de esta salen varias
preguntas mas sobre si desea mantener vinculos y otras cosas.
No se si sea posible darle algun comando de modo que copie las tablas
tranquilamente sin que aparescan todas estas preguntas.

Aprovechando el tema, yo tambien tengo una macro que combina documentos, y
cada vez que combina pregunta si desea combinar en el mismo o en otro
diferente, no se si ahi posibilidad de que deje de preguntar y que lo haga
todo automaticamente.

Muchas gracias por todo.
Jorge Rendon

Feliz Navidad.

Hola otra vez;

Se me olvido algo, el codigo que tome fue:

Sub rangos_excels_word()

Dim x As Excel.Application
Dim Y As Excel.Workbook
Dim problems As Boolean

On Error Resume Next

Set x = GetObject(, "Excel.Application")

If Err Then
problems = True
Set x = New Excel.Application
End If

On Error GoTo 0

Set Y = x.Workbooks.Open _
("c:\libro1.xls")
With Y.Sheets("hoja1")
.[A1:a10].Copy
Selection.GoTo What:=wdGoToBookmark, Name:="uno"
Selection.PasteAndFormat (wdPasteDefault)
End With

x.Quit

Set Y = Nothing:
Set x = Nothing

End Sub

Gracias.

Hola Jorge :-)

Hola monica,

Tome una de las macros de la conversacion y funciona correctamente, pero me
queda faltando algo.

Las tablas pegan en un tamaño demasiado grande, tanto que en algunas queda
apenas media tabla dentro del documento y la otra mitad se sale, :) . Me
gustaria que quedaran del tamaño del documento y centradas, pero no se como
darle la opcion al pegarlas.

Bien te comento que cuando los rangos de excel [ o las tablas ] son muy
grandes, cuando se copian a word si excede de los margenes establecidos
en tu documento de word entonces la tabla sale del documento :-( , el
tema estaria en minimizar los margenes de las celdas desde excel y
modificar el documento de word dejando mas margen y quiza situando la
hoja en horizontal pero eso dependiendo de los rangos de la tabla si son
muchos quiza habria que tomar otros metodos - ?? -

Por otro lado, cada que voy a copiar las tablas al abrir las hojas de
calculo de excel salen unas ventanas con preguntas sobre si desea que la
informacion este vinculada o sin vincular...

Eso te sucede con la macro? o cuando pegas tu manualmente la tabla ?
comentame esto :-)

Aprovechando el tema, yo tambien tengo una macro que combina documentos, y
cada vez que combina pregunta si desea combinar en el mismo o en otro
diferente, no se si ahi posibilidad de que deje de preguntar y que lo haga
todo automaticamente.

Bien ponnos el codigo que tienes y vemos a ver que se puede hacer :-)

Muchas gracias por todo.
Jorge Rendon

Feliz Navidad.

Gracias a ti yyy Felices Fiestas Navideñas :-) !!!

y ... Comentanos :-) !!

Saludos
Monica




Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

» Now We are free [Enya]
» United states of love [ Westbam and the love commitee ]
» Nothing Else Matters [ Metallica ]

www.fermu.com

Hola, :)

Bien te comento que cuando los rangos de excel [ o las tablas ] son muy
grandes, cuando se copian a word si excede de los margenes establecidos
en tu documento de word entonces la tabla sale del documento :-( , el
tema estaria en minimizar los margenes de las celdas desde excel y
modificar el documento de word dejando mas margen y quiza situando la
hoja en horizontal pero eso dependiendo de los rangos de la tabla si son
muchos quiza habria que tomar otros metodos - ?? -

Los rangos de las tablas no fueron problema mientras hacia las pruebas, las
tablas copiaban bien, segun el rango que yo asignara en la macro, pero cuando
pegaban en Word las tablas se salian de la margen del documento.
La forma es que lo organice fue dando click de derecho en propiedades
(Parado sobre la tabla en Word )y asignando un ancho preferido, con lo que la
tabla tomaba un tamaño adeuado a la pagina vertical, tambien le daba la
opcion de "centrado" para que la tabla quedara mas odenada.
La idea es que cuando la macro se ejecute la tabla quede de esa forma, con
un tamaño adecuado y centrada, para que no se tenga que hacer manualmente.

> Por otro lado, cada que voy a copiar las tablas al abrir las hojas de
> calculo de excel salen unas ventanas con preguntas sobre si desea que la
> informacion este vinculada o sin vincular...

Eso te sucede con la macro? o cuando pegas tu manualmente la tabla ?
comentame esto :-)

A lo que me refiero con esto, es que el libro de Excel de donde estoy
sacando las tablas, esta vinculado con informacion de otros libros y otras
bases de datos, entonces cada que se abre pregunta si se desea actualizar la
informacion o si no se desea actualizar.
Yo solo quiero copiar las tablas y esa pregunta es un poco molesta por que
aparece cada que se abre el libro mediante la macro, por lo que debo
seleccionar la opcion "No actualizar" cada que copia una tabla. Seria muy
bueno que se puediera quitar esa pregunta, ;)

>
> Aprovechando el tema, yo tambien tengo una macro que combina documentos, y
> cada vez que combina pregunta si desea combinar en el mismo o en otro
> diferente, no se si ahi posibilidad de que deje de preguntar y que lo haga
> todo automaticamente.

Bien ponnos el codigo que tienes y vemos a ver que se puede hacer :-)

Este es el cuadro que aparece cada que se va a realizar la combinacion de
documento:
http://img292.imageshack.us/img292/...feojy5.jpg

Es solo presionar, continuar, continuar, continuar..., cada vez que se va a
combinar un nuevo documento, pero igual seria mucho mejor que pasara derecho
sin que apareciera esta pregunta.

El codigo que uso para la combinacion es algo largo, pero mas o menos esta
compuesto por lo siguiente:

'[]

'Primero pregunta si el primer archivo existe, en caso de que exista lo abre
y lo 'toma como base para la combinacion

If (FileExists("Ruta\SALUDOCUPACIONAL\" & year & "\SALUD" & mes &
".doc")) Then
Documents.Open FileName:="Ruta\SALUDOCUPACIONAL\" & year & "\SALUD"
& mes & ".doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="111", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
Else
MsgBox (" El archivo Salud ocupacional de:" & mes & " - " & year &
" no esta disponible")
End
End If

' En este paso lo que se hace es empezar a combinar con el primero de los
'archivos que se necesitan, es en este momento donde sale la pregunta

If (FileExists("Ruta\AMBIENTAL\" & year & "\AMBIEN" & mes & ".doc"))
Then
ActiveDocument.Merge FileName:= _
"Ruta\AMBIENTAL\" & year & "\AMBIEN" & mes & ".doc" _
, MergeTarget:=wdMergeTargetNew, DetectFormatChanges:=True, _
UseFormattingFrom:=wdFormattingFromPrompt, AddToRecentFiles:=False
FlagNewtarget = 1
Else
MsgBox (" El archivo de Ambiental de:" & mes & " - " & year & "
no esta disponible")
Windows("SALUD" & mes & ".doc").Activate
ActiveWindow.Close
End
End If

'Vuelve a hacer lo mismo, pero con otro archivo

If (FileExists("Ruta\MANTENIMIENTO\" & year & "\MTMT" & mes & ".doc"))
Then

If (FlagNewtarget = 1) Then
ActiveDocument.Merge FileName:= _
"Ruta\MANTENIMIENTO\" & year & "\MTMT" & mes & ".doc" _
, MergeTarget:=wdMergeTargetCurrent,
DetectFormatChanges:=True, _
UseFormattingFrom:=wdFormattingFromPrompt,
AddToRecentFiles:=False
Else
ActiveDocument.Merge FileName:= _
"Ruta\MANTENIMIENTO\" & year & "\MTMT" & mes & ".doc" _
, MergeTarget:=wdMergeTargetNew, DetectFormatChanges:=True, _
UseFormattingFrom:=wdFormattingFromPrompt,
AddToRecentFiles:=False
FlagNewtarget = 1
End If
Else
MsgBox (" El archivo de Mantenimiento de:" & mes & " - " & year & "
no esta disponible")
End If

' ... Continua repitiendose el mismo codigo, pero cambiando la ruta
del 'archivo que se desea combinar, pero cada vez que va a combinar, aparece
la 'misma pregunta

Espero se entienda, gracias por la atencion prestada.

Jorge Rendon