Prüfen ob eine Datei geöffnet ist
05.03.2008 09:28:28
Boris
mit folgendem (hier gekürztem) Code kopiere ich Daten aus anderen xl-Dateien. Nun möchte ich folgendes erreichen: Ist die Quelldatei (in diesem Beispiel die "Asset List") bereits geöffnet, soll diese natürlich nicht nochmal geöffnet werden und nach dem Kopiervorgang soll sie nicht geschlossen, sondern weiterhin geöffnet bleiben. Ist die Quelldatei nicht geöffnet funktioniert untenstehender Code.
Wie frage ich das ab?
Sub Update()
Dim strBereich As String
Dim strProjekt As String
Dim strOrdner As String
Dim strDatei As String
Dim strSheet As String
strProjekt = "Trio"
strOrdner = "\..\1 Asset List\"
strDatei = "Asset List.xls"
strSheet = "Asset List"
Workbooks.Open Filename:=ThisWorkbook.Path & strOrdner & strProjekt & "_" & strDatei
'hier wird kopiert, Code rausgenommen'
Application.DisplayAlerts = False
Workbooks(strProjekt & "_" & strDatei).Close
Application.DisplayAlerts = True
End Sub
Viele Grüße Boris