Como tomar valores de Excel en Word con VBA?

17/01/2008 - 11:51 por Don Juan | Informe spam
Hola a todos. (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.

Cómo hacerlo? Gracias por sus comentarios.
(Necesito abrir Excel para cargar los datos?)
...

Preguntas similare

Leer las respuestas

#6 Don Juan
18/01/2008 - 12:25 | Informe spam
Mostrar la cita
Felizmente que existe, de lo contrario utilizaría el Multiposting :)

Mostrar la cita
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.

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

Mostrar la cita
Documento.

Mostrar la cita
A2..A10

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

Mostrar la cita
Un simple documento sin forms... por el momento

Gracias Moni.



"Monica May" wrote in message
news:
Mostrar la cita
#7 Don Juan
18/01/2008 - 12:25 | Informe spam
Mostrar la cita
Felizmente que existe, de lo contrario utilizaría el Multiposting :)

Mostrar la cita
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.

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

Mostrar la cita
Documento.

Mostrar la cita
A2..A10

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

Mostrar la cita
Un simple documento sin forms... por el momento

Gracias Moni.



"Monica May" wrote in message
news:
Mostrar la cita
#8 Monica May
19/01/2008 - 00:27 | Informe spam
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
#9 Monica May
19/01/2008 - 00:27 | Informe spam
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
#10 Monica May
19/01/2008 - 00:27 | Informe spam
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
Ads by Google
Search Busqueda sugerida