Vorm Öffnen überprüfen ob Datei schon geöffnet ist

Forumthread: Vorm Öffnen überprüfen ob Datei schon geöffnet ist

25.10.2005 13:27:03

Paul

Hallo zusammen,
ich würde gerne wissen ob es eine Möglichkeit gibt vor dem Öffnen einer Datei, zu Überprüfen ob diese nicht schon geöffnet ist und sie dann nicht zu öffnen?
Wäre schön wenn's dazu eine Lösung gäbe.
Danke schonmal im Voraus
MfG
Paul

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vorm Öffnen überprüfen ob Datei schon geöffnet

25.10.2005 13:53:39

gordon

Hallo Paul,
bei normaler Datei (kein Add-In, hidden etc.)
for each ws in ThisWorkbook.worksheets
if ws.name = "DeineDatei" then
msgbox ws.name & " bereits geöffnet"
next
Genrell wären Rückmeldungen ganz nett ( remember: Access-Zugriff)
Gruß
gordon

AW: Vorm Öffnen überprüfen ob Datei schon geöffnet

25.10.2005 14:00:11

Paul

Hallo Gordon,
soetwas habe ich auch schon gefunden, nur nützt mir das nichts. Ich brauche diese Funktion in einem Makro, d.h. das Makro öffnet bestimmte Dateien mit denen es später arbeiten muss, aber nur wenn diese nicht schon offen sind. Das ganze sollte ohne Benutzereingriff funktionieren.
Gruß
Paul

ja und ... ?

25.10.2005 15:31:25

gordon

Hi Paul.,
genau das kannst Du mit dem Codeschnipsel ( oder mit dem der anderen Antwort) machen.
Den zu öffnenden Dateinamen halt bevor Du z.B. set wb = workbooks.open() durchführst auf Vorhandensein in der Liste der offenen Workbooks prüfen.
Gruß
gordon

AW: Vorm Öffnen überprüfen ob Datei schon geöffnet

25.10.2005 14:52:57

dan

Hallo Paul,
Option Explicit


Sub Main()
Dim MeineDatei As Workbook
Dim NameMeinerDatei As String
NameMeinerDatei = "Datei1.xls"
' errors werden nicht abgefangen
On Error Resume Next
Err.Clear
' wir zeigen in die Kolektion der geoeffnetten Dateien
' falls die Datei mit dem Namen NameMeinerDatei in der Kolektion
' existiert, wird es keinen Error geben, falls nicht, gibt es Error Nr.9
Set MeineDatei = Workbooks(NameMeinerDatei)
' Error 9 bedeutet: Subscript out of range, NameMeinerDatei befindet sich nicht in der Kolektion der geoeffnetten Dateien
If (Err.Number = 9) Then
Debug.Print "Datei " & NameMeinerDatei & " ist nicht geoeffnet."
Else
Debug.Print "Ok, Datei " & NameMeinerDatei & " ist geoeffnet."
End If
End Sub

Gruss Dan CZ

Beliebteste Forumthreads (12 Monate)

Vorm Öffnen überprüfen ob Datei schon geöffnet ist

Forumthread: Vorm Öffnen überprüfen ob Datei schon geöffnet ist

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Vorm Öffnen überprüfen ob Datei schon geöffnet ist

Forumthread: Vorm Öffnen überprüfen ob Datei schon geöffnet ist

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread