Problemas al exportar a excel con FireSoft

[[Espartaco]]

El mensaje de error es que no puede crear el archivo.

Por otro lado no sé a qué os referís con lo de unidireccional, a lo mejor sé lo que es pero dicho así no sé a qué se refiere. Os agradecería si pudierais explicarme un poco.

Lo que sí he descubierto tras varios intentos son dos cosas:

- Si realizo la operación de exportar desde otra ficha nueva, empieza a funcionar bien hasta que a partir de un momento determinado empieza a fallar otra vez. No sé en qué momento exactamente.

- Yo utilizo otra ficha con un DirectoryListBox para decidir el nombre del archivo y la carpeta donde se va a colocar.
Para obtener el nombre del archivo abro la ficha así

Código Delphi [-]
        Ficha1:=TExportExcel.Create(Self);
        Ficha1.ShowModal;
        Ficha1.Free;

y Utilizo una variable pública

Código Delphi [-]
DestinoC :string;

y luego cuando cierro la ficha anterior, una vez añadido a la variable la extensión XLS, creo el archivo de esta manera

Código Delphi [-]
DataToXLS1.SaveToFile(DestinoC);

Bien pues si en vez de hacer esto, le pongo directamente el nombre del archivo sí funciona, de esta manera

Código Delphi [-]
DataToXLS1.SaveToFile('c:\fichmaq\DestinoC.xls');

pero ojo, en la otra ficha que comenté anteriormente, lo hago igual y funciona perfectamente.

La verdad no entiendo qué puede estar pasando.

Gracias por vuestro interés.

[roman]

La variable DestinoC, ¿dónde está declarada?

// Saludos

[[Espartaco]]

La tengo declarada en la ficha que inicia el proceso, a continuación pongo un trozo del código de dicha ficha

Código Delphi [-]
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  DestinoC: String;
implementation
uses ExpExcl, Menu, LAsigFab;
{$R *.DFM}
procedure TForm1.BitBtn3Click(Sender: TObject);
var ficha1: TExportExcel;

Pero reitero, en otra ficha está igual que en esta y funciona perfectamente.

Gracias.