Club Builder

[shackletta]

Hola a todos!!, vereis, tengo un nuevo problema y por más que he buscado en el foro no he encontrado la solución, y creo que sí la tiene. A ver, tengo un archivo excel con datos sobre personas, y lo que me gustaría es poder importar parte de este archivo a una tabla Access para poder realizar las consultas pertinentes. O sea, querría importar los datos de una única persona, aunque tampoco me importaría importar todo el contenido de la hoja excel y después ya consultaría sólo la persona que me interesa. Por supuesto, esta tabla la modificaría y después debería exportar el resultado de nuevo a Excel.

1ª Pregunta: Esta sería una buena solución?, como se importan datos desde Excel a Access?
2ª Pregunta: Podría también seleccionar el rango que me interesa de Excel, importarlo en un StringGrid?? o algo similar??
3ª Pregunta: Se os ocurre otra solución mejor??

Bueno, gracias por vuestra ayuda, la verdad es que he conseguido abrir archivos de excel, escribir y leer de ellos, pero tan sólo una celda, nunca un rango. Podría hacer las consultas directamente a Excel??. Alguien sabe como funcionan los componentes Office2k en Builder 6??. Por cierto, utilizo Office 2002.

Gracias otra vez.....

[shackletta]

Hola de nuevo, ahora estoy intentando leer un rango de la hoja activa de excel y volcarlo en un array que después pasaré a un grid, pero me parece que no debe ser tan complicado. Estoy haciéndolo siguiendo un ejemplo de Leo (creo) que era para enviar rápido datos a excel desde un grid. No estoy obteniendo buenos resultados, podríais ayudarme??, como debo crear el array para que tenga exactamente el mismo tamaño que el rango?es que he probado de varias maneras y siempre me sale el error "index out of bounds". Esto es lo último que he hecho:

/***********************************************************/
Variant ExcelApp= Variant::CreateObject("Excel.Application");

// Creo acceso al objeto 'libro'/workbook
Variant Books = ExcelApp.OlePropertyGet("Workbooks");

Books.Exec(Procedure("Open") << NomExpPath
<< 0
<< false
<< 5
<< "1234");

// Obtenemos la hoja activa
Variant Hoja = ExcelApp.OlePropertyGet("ActiveSheet");

// Para leer el valor de las celdas
Variant Celdas = Hoja.Exec(PropertyGet("Cells"));

// coger la última celda con datos
Variant UltimaCelda=Celdas.Exec(Function("SpecialCells")<<11);

int UltimaFila = UltimaCelda.Exec(PropertyGet("Row"));
int UltimaCol = 11;

Variant Rango = Hoja.OlePropertyGet("Range", "A1");

// Adaptamos el tamaño del rango
Rango = Rango.OlePropertyGet("Resize",
UltimaCol, UltimaFila);

// Creo el array donde almacenaré los datos Excel
int bounds[4] = {0, UltimaCol, 0, UltimaFila};
Variant Datos = VarArrayCreate(bounds, 3, varVariant);

// Enviamos los datos al array
Datos = Rango.OlePropertyGet("Value");

//Cierra excel para evitar los procesos residentes en memoria
ExcelApp.Exec(PropertySet("Visible") << false);
ExcelApp.Exec(Procedure("Quit"));
ExcelApp.Clear();

/***********************************************************/

Por otra parte : ¿Podría hacer algo similar a la opción "Importar" de la pestaña "Tablas" de Access??

Necesito vuestra ayuda, porque sino terminará estallándome la cabeza, y tendré pesadillas con celdas de excel o algo así.....