Clever-Excel-Forum

Normale Version: Prüfung: IsFileClosed
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2
Moin Uwe,

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

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

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

[attachment=37700][attachment=37701]

Gruß Uwe
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
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 ... Smile Kommt aber sicher noch seltener vor als die Caption. 17
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
Seiten: 1 2