How to know if Excel or a workbook is open ???

[Dave_lopez]

Hi (Bonjour)
I just wanna know how to know if a workbooks is open.

I used to use this but it does'nt work the count method always send back
the zero value:

Code: Select all

If form2.ExcelApplication1.Workbooks.Count <> 0 Then
   begin
     for cpt := 0 to form2.ExcelApplication1.Workbooks.Count
      do
       form2.ExcelApplication1.Workbooks.Close( cpt);

end;

I need your help.
Merci / Thanks

[Dave_lopez]

Code: Select all

try
    vMSExcel := GetActiveOleObject('Excel.Application');
except
    vMSExcel := CreateOleObject('Excel.Application');
end;