Prüfen od Arbeitsmappe bereits geöffnet ist
14.05.2009 07:34:30
Harald
hab da mal folgende Aufgabenstellung:
mit dem folgendem Code kopiere ich Daten einer anderen Datei in ein betreffendes Tabellenblatt.
Ist diese andere Datei jedoch geöffnet, so kommt beim ausführen der Prozedur der Hinweis "bereits geöffnet blabla...........".
nach Bestätigen der Meldung bricht Prozedur ab und Quelldatei bleibt offen.
kann mir jemand helfen dieses Problem zu lösen(fehlender Schritt im Code dokumentiert)
bin für jeden Hinweis Dankbar
hier mein code
Sub kopiereDaten()
Dim Pfad As String, Quelldatei As String, Zieldatei As String
Pfad = "D:\Datenpool\"
Quelldatei = "Daten_09.xls"
Zieldatei = Application.ThisWorkbook.Name
Application.ScreenUpdating = False
datenblattSchutzaus
wksBlatt09.Activate
Columns("A:X").Select
Selection.Copy
ChDir Pfad
Workbooks.Open Filename:=Pfad & Quelldatei
'hier sollte geprüft werden ob Datei schon offen ist.
'wenn ja dann Msgbox Datei geöffnet und
Sub abbrechen
'wenn geschlossen: mit
Sub fortfahren
Sheets("Daten_09").Activate
Columns("A:X").Select
ActiveSheet.Paste
Range("a1").Select
Application.CutCopyMode = False
Application.DisplayAlerts = False
ActiveWorkbook.Save
Windows(Quelldatei).Close
Application.DisplayAlerts = True
Windows(Zieldatei).Activate
wksBlatt09.Activate
datenblattSchutzein
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Danke
Harry
Anzeige