Prüfen ob Datei offen (ein- oder ausgeblendet) ist
Peter
Ich habe einer StringVariable strPfadDatei den vollständigen Pfad und ein Dateiname zugewiesen,
z.B. "C:\Muster\Dokumente\Test33.xls"
Nun überprüfe ich, ob die Datei vorhanden ist, wenn nicht, erzeugt das Aufrufen von "NotFound" eine Mitteilung und beendet das Programm.
Anschliessend überprüfe ich, ob die Datei geöffnet ist. Ist dies nicht der Fall, wird die Datei geöffnet.
Bei den folgenden Schritten bin ich bis jetzt gescheitert:
Ich überprüfen, ob die Datei eingeblendet ist oder nicht.
Wenn sie nicht eingeblendet ist, möchte ich sie einblenden; andernfalls aktivieren (wenn mehrere Workbooks-offen sind).
Kann mir jemand weiterhelfen?
Danke, Peter
If Dir(strPfaDat) = "" Then
NotFound (strPfaDat)
Else
JaNein = DateiGeoeffnet(strPfaDat)
End If
If JaNein = False Then Workbooks.Open strPfaDat
If Workbooks(strPfaDat).Visible = False Then
Workbooks(strPfaDat).Visible = True
Else
Workbooks(strPfaDat).Activate
End If
Public Function DateiGeoeffnet(DerPfad As String) As Boolean
' Bei shared Workbooks, schreibgeschützten Mappen o.ä.. kann dies auch ein falsch zurückgeben.
On Error Resume Next
Open DerPfad For Binary Access Read Lock Read As #1
Close #1
If Err.Number 0 Then
DateiGeoeffnet = True
Err.Clear
End If
End Function
Anzeige