recorriendo un archivo de excel

[lgarcia]

Hola:

Una solucion podria ser de buscar la fila con una columna que sea obligatoria y chequear si esta vacia. Un ejemplo.

repeat
                 with InsertarProductos do
                  begin
                  Parameters.ParamByName('@codplu').Value:= Excel.Cells[j,1].Value;
                  Parameters.ParamByName('@codtrasval').Value:= Excel.Cells[j,2].Value;
                  Parameters.ParamByName('@codfabricante').Value:= Excel.Cells[j,3].Value;
                  Parameters.ParamByName('@descripcionplu').Value:= Excel.Cells[j,4].Value;
                  Parameters.ParamByName('@preciocosto').Value:= Excel.Cells[j,6].Value;
                  Parameters.ParamByName('@precioventa').Value:= Excel.Cells[j,7].Value;
                  Parameters.ParamByName('@um').Value:= 1;
                  Parameters.ParamByName('@categoria').Value:= Excel.Cells[j,13].Value;
                  Prepared:= True;
                  ExecProc;
                  end;                  
      inc(j);
      until Excel.Cells[j,2].Value = '';

Saludos
Luis Garcia