Exportar los Datos de un Formulario Word a Excel
Mapichus
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!
Monica May
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
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ó:
Monica May
> 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 !
Mapichus
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ó: