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

[ronimaxh]

Gracias por responder, he probado con ado, pero el asunto es que son muchos archivo de excel si hay una forma de que se conecte al acrivo que uno le diga y que se pueda redireccionar fuera mejor esa parte no la vi.

[ronimaxh]

Gracias por la idea Garcia, ya lo resuelto.