Como tomar valores de Excel en Word con VBA?

-A que tanto crosspoting -??-

Felizmente que existe, de lo contrario utilizaría el Multiposting :)

-A que Comboboxes nos referimos -??-

Cuando abres un documento de Word, he insertado un contro VB (el ComboBox,
el típico control que te permite escoger una opción deslizante.

-Son Active X o de formulario -?-

Allí si que no lo sé... sólo he añadido el que viene por definición en VB de
Word 2003.

-En el documento o en un userform -??-

Documento.

-Que rangos exactamente se quieren cargar -??-

A2..A10

-Necesidad de añadir esos datos en word -??-

No relamente en Word, sino en el control, una vez que en control está lleno
tomaré este valor para asignarlo a un campo.

-estructuracion del documento -??-

Un simple documento sin forms... por el momento

Gracias Moni.



"Monica May" wrote in message
news:

Hola,


(Office 2003)

En Excel tengo dos hojas, Sheet1 y Sheet2
En Sheet2 tengo dos coumnas (A, B) en B tengo los valores que necesito
recuperar dentro de un documento Word.
El documento Word contiene un ComboBox (en VBA) que necesito llenarlo al
abrir el documento de Word.

-A que tanto crosspoting -??-
-A que Comboboxes nos referimos -??-
-Son Active X o de formulario -?-
-En el documento o en un userform -??-
-Que rangos exactamente se quieren cargar -??-
-Necesidad de añadir esos datos en word -??-
-estructuracion del documento -??-

Comentanos...!!


www.fermu.com
www.teladearana.es

-A que tanto crosspoting -??-

Felizmente que existe, de lo contrario utilizaría el Multiposting :)

-A que Comboboxes nos referimos -??-

Cuando abres un documento de Word, he insertado un contro VB (el ComboBox,
el típico control que te permite escoger una opción deslizante.

-Son Active X o de formulario -?-

Allí si que no lo sé... sólo he añadido el que viene por definición en VB de
Word 2003.

-En el documento o en un userform -??-

Documento.

-Que rangos exactamente se quieren cargar -??-

A2..A10

-Necesidad de añadir esos datos en word -??-

No relamente en Word, sino en el control, una vez que en control está lleno
tomaré este valor para asignarlo a un campo.

-estructuracion del documento -??-

Un simple documento sin forms... por el momento

Gracias Moni.



"Monica May" wrote in message
news:

Hola,


(Office 2003)

En Excel tengo dos hojas, Sheet1 y Sheet2
En Sheet2 tengo dos coumnas (A, B) en B tengo los valores que necesito
recuperar dentro de un documento Word.
El documento Word contiene un ComboBox (en VBA) que necesito llenarlo al
abrir el documento de Word.

-A que tanto crosspoting -??-
-A que Comboboxes nos referimos -??-
-Son Active X o de formulario -?-
-En el documento o en un userform -??-
-Que rangos exactamente se quieren cargar -??-
-Necesidad de añadir esos datos en word -??-
-estructuracion del documento -??-

Comentanos...!!


www.fermu.com
www.teladearana.es

Hola Juan,

bien prueba lo siguiente en Thisdocument y en el evento open del libro
que cargara los datos al abrir el Documento en desplegable [ primero
define nombre al rango de datos [ A1..A10 ]:

'[]

Private Sub Document_Open()

Dim x As New Excel.Application
Dim y As Variant

ComboBox1.Clear

x.Workbooks.Open "c:\libro1.xls"
'x.Visible = True
For Each y In x.Sheets(1).[NombreDefinido]
ComboBox1.AddItem y
Next y

x.Quit

End Sub

'[]


Y Comentanos ...!!

Saludos
Monica




www.fermu.com
www.teladearana.es

Hola Juan,

bien prueba lo siguiente en Thisdocument y en el evento open del libro
que cargara los datos al abrir el Documento en desplegable [ primero
define nombre al rango de datos [ A1..A10 ]:

'[]

Private Sub Document_Open()

Dim x As New Excel.Application
Dim y As Variant

ComboBox1.Clear

x.Workbooks.Open "c:\libro1.xls"
'x.Visible = True
For Each y In x.Sheets(1).[NombreDefinido]
ComboBox1.AddItem y
Next y

x.Quit

End Sub

'[]


Y Comentanos ...!!

Saludos
Monica




www.fermu.com
www.teladearana.es

Hola Juan,

bien prueba lo siguiente en Thisdocument y en el evento open del libro
que cargara los datos al abrir el Documento en desplegable [ primero
define nombre al rango de datos [ A1..A10 ]:

'[]

Private Sub Document_Open()

Dim x As New Excel.Application
Dim y As Variant

ComboBox1.Clear

x.Workbooks.Open "c:\libro1.xls"
'x.Visible = True
For Each y In x.Sheets(1).[NombreDefinido]
ComboBox1.AddItem y
Next y

x.Quit

End Sub

'[]


Y Comentanos ...!!

Saludos
Monica




www.fermu.com
www.teladearana.es