|
Javier_A, para empezar creo que te estas confundiendo y en lugar de hablar de Word estas hablando de excel, de ser asi, te pongo la forma para poder exportar datos de una hoja de excel a un dataset:
1. Agrega las componentes ADO a la paleta de componentes
2. Agrega una componente TAdoConnection a tu formulario y pon su propiedad LoginPrompt en false.
3. Haz doble click en la componente para que se abra el editor de la propiedad ConnectionString y selecciona "Use connection string" y luego oprime el botón "Build" para que se abra la ventana de vínculo de datos.
4. En esa ventana, en la ficha "Proveedor" (Provider) selecciona Microsoft Jet 4.0 OLE DB y da click en siguiente.
5. En la ficha "Conexión" (Connection), en el cuadro "Usar nombre de origen de datos" (o algo así) escribe el nombre del archivo excel (te deja buscarlo con un botoncito)
6. En la ficha "Todas" (All) selecciona "Extended properties" y luego "Modificar valor" y escribes "Excel 8.0" (sin las comillas)
7. Oprime 'Ok' las veces necesarias para cerrar todas las ventanas.
Esta fue la parte "difícil", crear la cadena de conexión.
8. Ahora coloca una componente TAdoDataSet en el formulario y asigna el AdoConnectio a su propiedad "Connection"
9. Pon la propiedad CommandType del DataSet en cmdTableDirect y en la propiedad CommandText escoges la hoja que desees del archivo de Excel (si todo salió bien te aparece una lista con las hojas del libro) El nombre de la hoja aparece seguido de un signo $, es normal.
A partir de aquí ya todo es "coser y cantar". El AdoDataSet funciona similar a un Table (aunque de sólo lectura) y lo abres con su propiedad Active:=true o con el método Open (cuidado porque a mi me marcó un error cuando lo activé en tiempo de diseño y luego corrí la aplicación así que mejor lo dejé inactivo y lo abrí hasta la ejecución).
Para la transferencia simplemente usas un bucle:
code:--------------------------------------------------------------------------------
while not AdoDataSet1.EoF do
begin
Table1.Append;
Table1.Fields[0].Value := AdoDataSet1.Fields[0].Value;
Table1.Fields[1].Value := AdoDataSet1.Fields[1].Value;
Table1.Fields[2].Value := AdoDataSet1.Fields[2].Value;
...
AdoDataSet1.Next;
end;
--------------------------------------------------------------------------------
saludos
|