ich möchte über VBS eine bestimmte Excel Datei überprüfen ob sie gerade offen ist. Über Internet habe ich die folgenden Codes gefunden. Es funktioniert leider nicht auf meiner Seite, wobei diese Lösung richtig markiert wurde. Ich habe eine Zeile inzwischen hinzugefügt um zu testen und schauen ob es eine Ausgabe gibt. Nach der Ausführung wird nichts bei mir angezeit. Davon gehe ich aus dass die von mir fett markierten Codes nicht richtig ist. Ist meine Vermutung falsch? Oder hat jemand Ahnung woran es liegt?
Vielen Dank für deine Hilfe im Voraus.
ExcelFileName = "some.xlsx"
On Error Resume Next
Set xl = GetObject(, "Excel.Application") 'attach to running Excel instance
If Err Then
If Err.Number = 429 Then
WScript.Echo "Workbook not open (Excel is not running)."
Else
WScript.Echo Err.Description & " (0x" & Hex(Err.Number) & ")"
End If
WScript.Quit 1
End If
On Error Goto 0
Set wb = Nothing
For Each obj In xl.Workbooks
If obj.Name = ExcelFileName Then 'use obj.FullName for full path
msgbox obj.FullName 'nur zum testen und schauen ob es eine Ausgabe gibt.
Set wb = obj
Exit For
End If
Next
If wb Is Nothing Then
WScript.Echo "Workbook not open."
WScript.Quit 1
End If