Überprüfung, ob Datei offen ist
12.03.2006 14:44:12
Tomy
ich würde gerne überprüfen, ob eine Datei schon geöffnet ist, damit ich, wenn sie denn auch offen ist, in diese Daten von einer anderen Datei kopieren kann.
Ich hatte jetzt mal bißchen gesucht und auch was gefunden, aber das Problem ist, wenn man mehrer Dateien auf hat, bekomme ich halt viele Reaktionen (Msgboxen). Also für jede Datei eine. Kann man das auch anders machen?
Private Sub geöffnetodernicht_Click()
Dim Datei
For Each Datei In Workbooks
If Left(Datei.Name, 3) = "Mix" Then
Dim iClick As Integer
iClick = MsgBox( _
prompt:="Datei ist offen", _
Buttons:=vbOKCancel)
Else: iClick = MsgBox _
(prompt:="Datei ist noch nicht geöffnet" _
, Buttons:=vbOKCancel): GoTo Abbruch
End If
Abbruch:
Next
End Sub
Ziel soll sein, wenn die Datei noch nicht geöffnet ist, den Benutzer (bin nicht ich) dazu aufzufordern die Datei zu öffnen und dann direkt, automatisch die Daten zu kopieren. Oder wenn sie halt auf ist: direkt kopieren.
Die Kopiersache habe ich jetzt weggelassen.
Würde mich über eine Antwort freuen.
Gruss Tomy
Anzeige