Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problema al leer excel desde tarea programada (https://www.clubdelphi.com/foros/showthread.php?t=96139)

juggern 02-03-2023 14:14:14

Problema al leer excel desde tarea programada
 
Hola chicos,

Un nuevo problema, tengo un fichero excel que se guarda en mi equipo y desde ahí ya lo leo y hago el tratamiento.
Leo las líneas y voy haciendo lo que necesito.
Todo funciona perfectamente si lo lanzo desde la aplicación, pero necesito lanzarlo desde una tarea programada y aquí falla.
He leido por el foro que puede ser problema del usuario al lanzar la tarea pero no doy con ello.
He ido poniendo logs y se para exactamente en esta línea

Código Delphi [-]
FExcel.WorkBooks.Open(sRuta);

La ruta está bien, puse un log y es la ruta de mi archivo y lanzado desde la aplicación funciona bien.

Como os dije, he leido por el foro que puede ser algo al configurar la tarea, no se

Gracias!

movorack 02-03-2023 15:08:23

Podrías revisar temas como el usuario que inicia la tarea, los permisos de este usuario sobre el(los) directorio(s) y la ruta de inicio de la aplicación.

En el foro de Microsoft encontré este post que puede serte relevante: Task Scheduler does not create file.txt

duilioisola 02-03-2023 15:22:18

Ejecuta esa sentencia dentro de un try..except.
Guarda el mensaje de error de la excepción.

Código Delphi [-]
procedure TDMMain.Log(s: string);
var
  F : TextFile;
  FileName : string;
begin
  // El fichero log es el nombre de la aplicación con la extensión .log.
  // Se guardará junto al ejecutable.
  FileName := ChangeFileExt(Application.ExeName, '.log');
  AssignFile(F, FileName);
  try
     Append(F);
  except
     try
        Rewrite(F);
     except
        on e: Exception do
           ShowMessage('Error al abrir fichero : ' + FileName + #13#10 + e.Message);
     end;
  end;
  WriteLn(F, FormatDatetime('[yyyy-mm-dd hh:nn:ss.zzz] ', Now) + s);
  CloseFile(F);
end;

procedure TDMMain.LeeFicheroExel(sRuta: string);
[...]
try
  FExcel.WorkBooks.Open(sRuta);
  Log('Fichero abierto correctamente (' + sRuta + ')');
except
  on E:Exception do
  begin
     Log('Error abriendo fichero. (' + sRuta + ')' + #13#10 + E.Message);
  end
end;
[...]

juggern 02-03-2023 15:59:26

Hola chicos,

Después de 2 días dándole vueltas nada mas escribir el post se me ocurrió una posible solución y la estaba probando y me fué bien.
He tenido la opción de recibir el fichero como csv y ahí se acabaron los problemas.

Gracias por todo!

movorack 02-03-2023 16:26:23

Entonces, el tema si era de permisos. Pero no sobre el directorio o archivo sino en la ejecución de Excel desde la tarea programada. Puede que estés usando el objeto de la VCL, este se conecta por COM a Excel y lo ejecuta, si lo llegaras a ejecutar en un servidor donde no esté instalado el programa te genera error.

Para una solución parecida, decidí usar Excel4Delphi un componente libre que te permite manipular archivos de Excel sin tenerlo instalado. En tu caso, pienso que no te generaría error ya que no necesitas mas permisos.

juggern 02-03-2023 16:59:55

Gracias movorack

Me lo apunto para cuando tenga que usar excel!


La franja horaria es GMT +2. Ahora son las 18:48:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi