Datei öffnen [Excel]

Gespeichert von Erik Wegner am/um Do., 01.04.2010 - 22:27

Beschreibung

Das Makro erwartet einen Dateinamen und den Pfad zu dieser Datei als Parameter. Es prüft, ob die Datei bereits geöffnet ist und aktiviert dann dieses Fenster. Ist die Datei noch nicht geöffnet, wird sie geladen.

Quellcode

Sub springeZuDatei(pfad$, datei$)
	If dateiOffen(datei$) Then
		Workbooks(datei$).Activate
	Else
		Workbooks.Open FileName:=pfad$ + datei$
	End If
End

SubFunction dateiOffen(datei$)
	Dim r As Boolean
	Dim w As Workbook
	r = False
	For Each w In Workbooks
	If w.Name = datei$ Then r = True
	Next w
	dateiOffen = r
End Function

Kategorien