Excel - Datei-offen herausfinden

[Max_der_Held]

Hallo Forum,
ich möchte herausfinden, ob eine Exceldatei, die ich zuvor mit COMatePlusgeöffnet habe immer noch offen ist.
Wenn der Benutzer die Datei schließt soll sie automatisch neugestartet werden.

Hier ein Code in C++: [Edit] in VBA[/Edit]
Wie setze ich den zu PB um..

Code: Alles auswählen

' Beispiel: C:\MAPPE2.XLS (richtig!) öffnen 
Dim bExists As Boolean 
Dim oWorkbook As Object 

' Prüfen ob Datei bereits geöffnet ist 
bExists = False 
With Application 
  For Each oWorkbook In .Workbooks 
    If UCase$(oWorkbook.Name) = "MAPPE2.XLS" Then 
      ' Jetzt aktivieren 
      Windows(oWorkbook.Name).Activate 
      bExists = True 
      MsgBox "Die Mappe ist bereits geöffnet !" 
      Exit For 
    End If 
  Next 
End With 

' Mappe neu laden! 
If Not bExists Then 
  On Error Resume Next 
  Workbooks.Open Filename:="C:\MAPPE2.XLS", ReadOnly:=False 
  On Error GoTo 0 
End If 

Versuch:

Code: Alles auswählen

exc = EXC_ExcelObject\GetIntegerProperty ( "Workbooks\Item( 'exceldatei.xlsx' )" ) 
Debug exc

scheint nicht zu gehen.. Vielleicht gehts ja auch komplett anders..
Ideen?

[NicTheQuick]

Das ist erstens kein C++-Code, sondern sieht eher aus wie VB und zweitens ist das glaube ich eher ein Makro innerhalb des besagten Excel-Dokuments, glaube ich.

[Pelagio]

Da hat NicTheQuick vollkommen recht, es ist VBA Code und wird als Makro unter Workbook oder im Modul stehen.

[Kiffi]

Normalerweise sind XLS-Dateien schreibgeschützt, wenn sie geöffnet sind.

Versuchs mal ohne Excel:

Code: Alles auswählen

XlsFile.s = "C:\Mappe1.xls"
If RenameFile(XlsFile, XlsFile)   
  Debug "Ja"
Else 
  Debug "Nein"
EndIf

Grüße ... Kiffi

[Max_der_Held]

Okok, in Vba So genau hab ichs mir nicht angeschaut, nachdem das Foreach nicht recht übertragbar war.. und was mit workbooks\items() nicht ging..
@Kiffi:
grundsätzlich gut, aber wenn der User das Excelsheet schließt, ist es im Hintergrund solange offen, bis ich mein Programm beende und somit die Objekte freigebe..
Also wird renamefile() immer false zurückgeben, bis ich im programm manuell die objekte freigebe..

[Max_der_Held]

Ok, habs jetzt ohne Excel gelöst:
Ich hol mir alle window-namen und schau ob das richtige Excelsheet dabei ist..
Das ist zumindest eine möglichkeit.
Also mittels EnumWindows_ ( @EnumWindowsProc(), 0)
Danke für die flotte Hilfe

Lg
Max

Code: Alles auswählen

global main_Standard_Excelpath.s

main_Standard_Excelpath = "testdatei11833.xlsx"
EnumWindows_                (   @EnumWindowsProc(), 0)

Procedure.l EnumWindowsProc(hFind, lParam) ; schaut, in Verbindung mit EnumWindows_(@EnumWindowsProc(), 0) , ob das excelfenster mit unsrer datei da ist.
      WindowName.s          = Space(255)
      WindowClass.s         = Space(255)
      If GetWindowText_     ( hFind, WindowName, 255)
          If FindString     ( WindowName , GetFilePart(main_Standard_Excelpath) ,1)
            exc_windowNameGefunden   = 1
            Debug ""
            Debug "GOT IT"
            Debug ""
          EndIf 
      EndIf 
      ProcedureReturn       1 
EndProcedure