Archivo de excell abierto
 

Buenos días,

En una aplicación en delphi 7 sin acceso a base de datos, voy a grabar datos en un archivo de excell.

Como puedo saber si mi archivo está abierto??. Quiero avisar a mi usuario de que el archivo está abierto y que no podrá grabar los datos.

Gracias

El siguiente código te lista todos los libros de Excel abiertos en un ListBox. De aquí sólo tendrías que buscar en el listado si está tu archivo.

Código Delphi [-]
(*
  ExcelApp - componente TExcelApplication
  lbDocs - ListBox
*)

var
  OleI: OleVariant;
  I: Integer;

begin
  lbDocs.Clear;
  for I := 1 to ExcelApp.WorkBooks.Count do
  begin
    OleI := I;
    lbDocs.Items.Add(ExcelApp.WorkBooks.Item[OleI].Name);
  end;
end;

// Saludos

Muchas gracias,

habia solucionado mi problema de otra forma pero probare esta.