Fin de datos en excel

[jgutti]

Hola al foro, uso delphi 6, importar datos desde una Hoja excel a interbase sin problemas, mi consulta es.
¿Como determinar cual es la ultima celda con datos en la hoja excel, si este tiene filas en blanco en medio de la hoja?
- Realizo la importación directa a interbase con los componentes ComObj, XLConst, ActiveX.

Atte

Jgutti

[lgarcia]

Hola

Me imagino que la tabla debe tener al menos un campo obliagatorio y si es asi entonces debes asociar la siguiente sentencia

repeat
with InsertarProductos do
begin
Close;
Parameters.ParamByName('@codplu').Value:= Excel.Cells[j,1].Value;
Parameters.ParamByName('@codtrasval').Value:= Excel.Cells[j,2].Value;
Prepared:= True;
ExecProc;
end;
inc(j);
until Excel.Cells[j,2].Value = '';

Donde el campo codtrasval es un campo obliagatorio

Saludos
Luis Garcia

____________________________
La mejor manera de decir es hacer