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
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.