Saltar al contenido

Exportar de forma ordenada datos de Formulario Word hacia una Hoja Excel o Access


Recommended Posts

Buenas tardes a todos y todas,

en mi trabajo nos interesa explotar datos que provienen de un formulario de word. Para ello, debo extraer los datos/textos que se introducen en cada campo de Formulario a un formato que permita explotarlos o segmentarlos junto con el resto de datos de los mismos formularios que se han obtenido de otros proyectos. He intentado generar un .txt que me separa los datos de los campos por ; pero el problema que he encontrado es que no todos los datos de los campos los exporta... sólo los de los formularios heredados, por lo que no me sirve... ya que los necesito exportar todos.

He estado buscando por el foro y sí encuentro varias soluciones para hacer el paso inverso, es decir, de una hoja Excel estructurada, cargar datos en un formulario word, pero no he visto nada que me pueda servir. Quizás no he puesto en el buscador las "palabras mágicas". Si en algún lugar está lo que necesito os pido disculpas.... no lo he visto y os agradecería que me respondáis con el link.

En definitiva, necesitaría alguna idea que me permita exportar datos de los campos de un Formulario Word hacia un excel o un access... y que el "repositorio" pueda ir incrementándose a medida que exporto formularios (en una fila nueva por ejemplo).

Espero haberme explicado... y espero que me deis algo de luz. 

Muchas gracias.

Benjamín.

Enlace a comentario
Compartir con otras webs

Buenas tardes a todos y todas,

os agradecería aunque sea una pista a seguir... o aunque sea... olvídate, es imposible.

Me corre cierta prisa para ver otras alternativas, si las hay.

Gracias y disculpad las prisas... ya se que no son buenas consejeras.

Benjamín.

Enlace a comentario
Compartir con otras webs

Hola benjarc,

No he trbajado con formularios de word y no tengo ninguno para trabajar. Pero la solución a tu problema yo lo plantearía de la siguiente manera. El formulario Word tendrá un botón o algo parecido para grabar los datos que envías al propio documento. En ese momento sería automatizar el ingreso de los datos en otra aplicación como Excel o Access. Y ¿Cómo? Pues seguro que hay un momtón de ejemplos en el foro que te ayudan a construir algo. Por darte una idea yo si sería a Access lo haría con una consulta de actualizacion usando ADO. Y con Excel dependería la cantidad de campos que tenga el registro, con muchos lo haría con un recordset, insertando directamente la fila y con pocos pues igual lo hacía directamente en la hoja.

Esa es más o menos la teoría, claro con un ejemplo se podría afinar más.

Un saludo

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Saludos amigos espero estén bien Estoy intentando hacer un formulario que me convierta unidades de masa sin embargo  en el mejor de los casos solo he podido lograr la conversión de una unidad a la vez en los TextBox 1, 3, 5, 7, 9, 11 y 13 y cuando lo logro el resultado que se copia  en la celda no se corresponde con el obtenido originalmente en el Textbox del Formulario (frmconv)  ejemplo al convertir 1900 Kg a Lb el resultado en el TextBox1 =4188,78298142 sin embargo al guardar el resultado lo que se copia en la Celda  "F11" es  418.878.298.142,00, adicionalmente el resultado de la conversión no se visualiza inmediatamente por lo que debo de hacer click en los TextBox 1, 3, 5, 7, 9, 11 y 13  para ver el resultado. Mucho les sabre agradecer la ayuda que me puedan brindar. PRUEBA.xlsm
    • Saludos a ambos. Copiar y pegar por sí solas, no tengo el conocimiento de que sirvan como "evento" para actualizar las referencias que buscas hacer, en la forma que lo quieres hacer, ó la fórmula como la quieres hacer. Te recomiendo abrir un tema similar en Macros, es posible que algún Maestro te de alguna idea. Por otro lado, si debe ser con funciones, entonces tendías que interactuar con COLUMNA() y FILA() para que al pegar el destino "sepa" donde está ubicado e intentar cambiar la referencia. =INDIRECTO(CARACTER(COLUMNA()+64)&FILA()) Algo como eso se podría usar para obtener el código ASCII de la letra de la columna (donde 65 es el código para “A”), y FILA() devuelve el número de la fila. La función CARACTER() convierte el código ASCII en una letra. Luego, INDIRECTO() toma la cadena resultante (por ejemplo, “A1”, “B2”, etc.) y la usa como una referencia de celda. En ese caso, una posible idea de editar tu ejemplo sería: =SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&"1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")); 0)   Enfatizo que es una idea, es muy probable que haya que editar. Así como esta su tema, la recomendación del maestro toma relevancia porque especular o deducir no es lo adecuado para intentar ayudar en este tipo de consultas. Por esta causa de mi parte por ejemplo no puedo aportar algo adicional.
    • En el ejemplo te he puesto 1 segundo para no hacer largo el gif, cámbialo a tu necesidad
    • Sub RecorrerRangoC() Set hoja = ActiveSheet Set rango = hoja.Range("C2:C" & hoja.Cells(hoja.Rows.Count, "C").End(xlUp).Row) If rango.Cells.Count = 0 Then MsgBox "No hay datos en la columna C.", vbExclamation Exit Sub End If For Each celda In rango.SpecialCells(xlCellTypeVisible) celda.Select Application.Wait Now + TimeValue("00:00:01") Next celda End Sub Prueba y comenta
    • Gracias   Al final funciona con esta formula. =SI.ERROR(C5*BUSCARV(A$2;TablaReparto[#Todo];COINCIDIR(D5;TablaReparto[#Encabezados];));C5) En la celda C5 he puesto la OT. Es similar a lo que me das como solución. ¡Muchas gracias por la ayuda!  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.