Prüfung: IsFileClosed

[schauan]

Moin Uwe,

Du machst mich unglücklich 
   
Zumindest, bei entsprechender Anwendung, würde es die Anzahl der nachfolgenden Prüfungen auf Excel reduzieren
Was mir aber fast den Schlaf geraubt hätte ist der [Kompatibilitätsmodus] wenn man bei einer kompletten Prüfung des Titels bleibt. 

[Fennek]

@Kuwer:

Der Fenster-Title sieht gut aus, verräts Du auch, wie das geht?

[Kuwer]

Hallo Fennek,

Application.Caption = "Kuwer"
ActiveWindow.Caption = "Hallo"

       

Gruß Uwe

[volti]

Hallo zusammen,

mein Beispiel war eigentlich nur eine Reaktion auf das Findwindow-Beispiel von Fennek.
Meine Erstversion beinhaltete zunächst nur das sWindowTextFrac = sWindowTitle.
Meine spätere Abänderung in einen Extrateil "*Excel*" war nicht so gut.
Mit der ersten Version hingegen lässt sich bei geschickter Suchbegriffswahl also alles finden. Da kann ja jeder machen was er will.

Auch die von Kuwer umgestalteten, wenn auch selten vorkommende, Caption-Versionen.

PS: Das angehängte "*" in EnumWindowProc muss übrigens bleiben, da ja eine Festlänge übergeben wird und ich nicht den Nutztext extra rausgezogen habe.

@Andre:
Diese zwei Dinge kann ich nicht ganz nachvollziehen:
If sWinTxt Like "*Excel*" Then
sWinTxt = Split(sWinTxt, ":")(0) & " - Excel"

Warum extrahierst Du den linken Teil bei evtl. enthaltenem ":". Dürfte m.E. eh nur bei dupliziertem Fenster kommen.
Ist aber auch mit o.a. Code abgedeckt.

Einen schönen Sonntag noch
Karl-Heinz

[schauan]

Hallöchen,

@Karl-Heinz,
":"
ja, die geteilten Fenster hattest Du ja angesprochen. Allerdings hattest Du oben darauf hingewiesen, dass das nicht klappt ...

Übrigens, meine Test.xlsm in Word ist keine Excel- sondern eine Worddatei - wegen's der tollsten Dateinamen ... Kommt aber sicher noch seltener vor als die Caption.

[snb]

Code:

Sub M_snb_in_gebruik()
  On Error Resume Next
 
  If Dir("G:\OF\01.08.2013.xlsb") <> "" Then Open "G:\OF\01.08.2013.xlsb" For Output As #1
  Close
   
  If Err.Number=0 then workbooks.open "G:\OF\01.08.2013.xlsb"
End Sub