Problemas al exportar a excel con FireSoft

[[Espartaco]]

No sé donde puediera estar el archivo bloqueado por el Excel, ya que yo no tengo el Excel abierto en el momento de exportar. Además, insisto en que en otra ficha me lo hace bien.

Creo que voy a tirar la toalla y ponerle un nombre de archivo fijo en una carpeta fija Frustrante, no?

Gracias a todos por vuestra ayuda, de todas formas seguiré visitando este hilo por si a alguien le ha pasado lo mismo y lo ha solucionado. También he pensado en usar otro componente similar, lo que pasa es que este funciona muy rápido, muy bien y es muy sencillo.

[delphi.com.ar]

Es que algo me dice que el problema no viene propiamente del control, sobre todo por el error que dices que informa. ¿Has probado poner un punto de ruptura sobre el SaveToFile para evaluar el contenido de la variable DestinoC?
Básicamente el control crea un TFileStream y escribe la información en este stream, al igual que muchas clases de la VCL. Dudo que falle en sí el procedimiento, ademas que aparenta ser un clásico error informado por el SO, tal como si hacemos:

Código Delphi [-]
  with TStringList.Create do
    try
      SaveToFile('');
    finally
      Free;
    end;

o

Código Delphi [-]
  with TStringList.Create do
    try
      SaveToFile('c:\?');
    finally
      Free;
    end;

O algún archivo en uso:

Código Delphi [-]
  with TStringList.Create do
    try
      SaveToFile('c:\pagefile.sys');
    finally
      Free;
    end;

¿Solo dice que no se puede crear el archivo?

Saludos!

[[Espartaco]]

Si eses es el error que da, pero si lo prueba en diseño, me da el error y se queda parado en DataExport.pas en la parte que comentas del TFileStream.

Efectivamente creo que el problema debe estar en la variable, he probado ponerla global en la ficha principal pero hace lo mismo, en cambio si en vez de utilizar la ficha con el DirectoryListBox lo hago con un InputBox, no tengo ningún problema, por tanto debe haber algo raro en eso.

No he probado lo del punto de ruptura porque no estoy muy ducho en el Debug, es mi asignatura pendiente, de todas formas seguiré intentado solucionarlo y si encuentro el problema lo postearé para otros foreros.

Si podeis recomendarme alguna lectura sobre el Debug que sea buena os lo agradecería.

Muchas gracias Delphi.com.ar y Roman por vuestra ayuda.

Un saludo,

[delphi.com.ar]

Te recomiendo que te bajes el libro "La cara oculta de Delphi 4" que puedes bajar gratuitamente de la página del autor: www.Marteens.com

Igualmente, rápidamente puedes hacer la siguiente prueba, agregando un mensaje antes de intentar crear el archivo:

Código Delphi [-]
  ShowMessageFmt('El archivo que quiero generar es:"%s"', [DestinoC]);
  DataToXLS1.SaveToFile(DestinoC);

Saludos!

[[Espartaco]]

Tenías razón, me daba el error porque la variable DestinoC estaba vacía. Lo he comprobado con el codigo que me has pasado. El problema era que tenía que poner la variable en la unidad principal y poner en el uses de la ficha que contenía el DirectoryListBox la ficha principal.

Ahora funciona correctamente, muchas gracias por todo.

Foros como este hacen la vida del programador un poco menos solitaria.