Supportnet / Forum / Tabellenkalkulation
Wenn Datei schon geöffnet, gehe zu...
Frage
Hallo,
ich möchte eine Funktion in einen Makro einbauen, der checkt, ob die Datei abc.xls schon geöffnet ist. Falls nicht, soll die Datei geöffnet werden. Falls die Datei schon geöffnet ist, soll direkt zur nächsten Anweisung gesprungen werden (Das Öffnen soll quasi "übergangen" werden)
Wie ist das machbar?
Danke im Voraus
Antwort 1 von Annan
Hallo,
z.B. so:
Sub Dateiöffnen()
Dim sPath As String
sPath = ("C:WINDOWSDesktopABC.xls")
If Dir(sPath) = "" Then
´Hier ist die Datei geöffnet. Hier deine Anweisung:
Else
´Falls nicht geöffnet, wird sie geöffnet:
Workbooks.Open (sPath)
´Hier deine Anweisung nachdem die Datei geöffnet wurde:
End If
End Sub
kopiere das Makro in ein Standardmodul und weise es einer Schaltfläche zu bzw. baue es in deinen bisherigen Code ein ! In die Leerzeilen kommt jeweils deine Anweisung, einmal mit bereits geöffneter Datei u. einmal mit zu öffnender Datei ! Den Pfad musst du entsprechend anpassen !
MfG
Annan
z.B. so:
Sub Dateiöffnen()
Dim sPath As String
sPath = ("C:WINDOWSDesktopABC.xls")
If Dir(sPath) = "" Then
´Hier ist die Datei geöffnet. Hier deine Anweisung:
Else
´Falls nicht geöffnet, wird sie geöffnet:
Workbooks.Open (sPath)
´Hier deine Anweisung nachdem die Datei geöffnet wurde:
End If
End Sub
kopiere das Makro in ein Standardmodul und weise es einer Schaltfläche zu bzw. baue es in deinen bisherigen Code ein ! In die Leerzeilen kommt jeweils deine Anweisung, einmal mit bereits geöffneter Datei u. einmal mit zu öffnender Datei ! Den Pfad musst du entsprechend anpassen !
MfG
Annan
Antwort 2 von Socky
Danke!