Exportar los Datos de un Formulario Word a Excel

Mapichus escribió:

Hola Amigos!
No se usar Acces, pero si word y lo justo excel y con eso me defiendo para
mis pequeñas bases de datos y mis combinar correspondencia.,
pero he dado un paso mas...
he creado un formulario, con sus campos de textos, sus combos , sus casillas
de verificación y demas...
Pero quiero que esa informacion, que rellenen mis compañeros se vaya a una
tabla de Excel.. para poder crear mi pequeña base de datos ..

Y la verdad es que no se como se hace.. ¿es posible? ¿Como?
he visto autenticos "maquinas del word" por aqui, asi que a ver si podeis
dar luz a un pobrecillo!

Hola,

Que controles hay que enviar a excel exactamente -?-

me referiero a que si en el formulario tienes cuatro o cinco textboxes
para rellenar y enviar a excel o algun listbox cuyos datos se tengan que
enviar etc

Comentanos !

Saludos
Monica






www.fermu.com
www.teladearana.es

Hola Monica!
En primer lugar gracias por tu ayuda...

Yo he creado mi formulario, con mis campos a rellenar...
Ej :

NOMBRE
APELLIDOS

La gente lo rellena... (los cuadrados gris que he creado)
Pero como exporto esos datos...
A mi me gusatria que esos datos se fuesen a una tabla de excell o que
quedasen recogido en alguna base de datos para no tener que pasarlos yo mismo.

Me explico mejor ahora??

Un Beso!



"Monica May" escribió:

Mapichus escribió:
> Hola Amigos!
> No se usar Acces, pero si word y lo justo excel y con eso me defiendo para
> mis pequeñas bases de datos y mis combinar correspondencia.,
> pero he dado un paso mas...
> he creado un formulario, con sus campos de textos, sus combos , sus casillas
> de verificación y demas...
> Pero quiero que esa informacion, que rellenen mis compañeros se vaya a una
> tabla de Excel.. para poder crear mi pequeña base de datos ..
>
> Y la verdad es que no se como se hace.. ¿es posible? ¿Como?
> he visto autenticos "maquinas del word" por aqui, asi que a ver si podeis
> dar luz a un pobrecillo!

Hola,

Que controles hay que enviar a excel exactamente -?-

me referiero a que si en el formulario tienes cuatro o cinco textboxes
para rellenar y enviar a excel o algun listbox cuyos datos se tengan que
enviar etc

Comentanos !

Saludos
Monica






www.fermu.com
www.teladearana.es

Mapichus escribió:

Hola Monica!
En primer lugar gracias por tu ayuda...

Yo he creado mi formulario, con mis campos a rellenar...
Ej :

NOMBRE
APELLIDOS

La gente lo rellena... (los cuadrados gris que he creado)
Pero como exporto esos datos...
A mi me gusatria que esos datos se fuesen a una tabla de excell o que
quedasen recogido en alguna base de datos para no tener que pasarlos yo mismo.

Hola,

Pues bien te paso un Codigo de Greg Maxey que puedes adapatarlo a tu
necesidad »

'--

Sub ExportToExcel()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim myWB As String
Dim oFF As FormField
Dim i As Long
myWB = "C:\Libro1.xls"
Set oXL = New Excel.Application
On Error GoTo Err_Handler
Set oWB = oXL.Workbooks.Open(FileName:=myWB)
Set oSheet = oWB.Sheets("hoja1")
Dim LastRow As Long
LastRow = oSheet.Cells(oSheet.Rows.Count, "C").End(xlUp).Row
i = 1
For Each oFF In ActiveDocument.FormFields
oSheet.Cells(LastRow + 1, i).Value = oFF.Result
i = i + 1
Next oFF
oWB.Save
Set oSheet = Nothing
Set oWB = Nothing
oXL.Quit 'Added
Set oXL = Nothing
'Excel.Application.Quit
Exit Sub
Err_Handler:
MsgBox myWB & " caused a problem. " & Err.Description, vbCritical, _
"Error: " _
& Err.Number
End Sub

'--

cualquier duda adicional, nos comentas !

Saludos
Monica



www.fermu.com
www.teladearana.es

Hola!
no me manejo muy bien con esos codigos.. peor creo que me las podre apañar
con la ayuda de un coleguilla que si sabes de esos códigos...
Ya te cuento..
Bss Mil

"Monica May" escribió:

Mapichus escribió:
> Hola Monica!
> En primer lugar gracias por tu ayuda...
>
> Yo he creado mi formulario, con mis campos a rellenar...
> Ej :
>
> NOMBRE
> APELLIDOS
>
> La gente lo rellena... (los cuadrados gris que he creado)
> Pero como exporto esos datos...
> A mi me gusatria que esos datos se fuesen a una tabla de excell o que
> quedasen recogido en alguna base de datos para no tener que pasarlos yo mismo.
>

Hola,

Pues bien te paso un Codigo de Greg Maxey que puedes adapatarlo a tu
necesidad »

'--

Sub ExportToExcel()
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim myWB As String
Dim oFF As FormField
Dim i As Long
myWB = "C:\Libro1.xls"
Set oXL = New Excel.Application
On Error GoTo Err_Handler
Set oWB = oXL.Workbooks.Open(FileName:=myWB)
Set oSheet = oWB.Sheets("hoja1")
Dim LastRow As Long
LastRow = oSheet.Cells(oSheet.Rows.Count, "C").End(xlUp).Row
i = 1
For Each oFF In ActiveDocument.FormFields
oSheet.Cells(LastRow + 1, i).Value = oFF.Result
i = i + 1
Next oFF
oWB.Save
Set oSheet = Nothing
Set oWB = Nothing
oXL.Quit 'Added
Set oXL = Nothing
'Excel.Application.Quit
Exit Sub
Err_Handler:
MsgBox myWB & " caused a problem. " & Err.Description, vbCritical, _
"Error: " _
& Err.Number
End Sub

'--

cualquier duda adicional, nos comentas !

Saludos
Monica



www.fermu.com
www.teladearana.es