---

Servus

Hab eine xlam mit diversen Makros die ich aus anderen Excel Dateien aufrufen will.
Mit Workbooks.Open Filename:="Pfad\Datei.xlam" funktioniert das recht gut.

Dauert aber 1 bis 1,5 Sekunden die xlam zu laden, ich denke aber das ich mir das sparen könnte wenn ich vorher Prüfe ob sie schon offen ist.

Hab diese Funktion gefunden die Angibt ob sie offen ist oder nicht nur wo bring ich jetzt mein Workbooks.Open Filename:="Pfad\Datei.xlam" unter?

Code:

---

Option Explicit

Public Sub TestePfad()
Dim sPfad As String
sPfad = "C:\Eigene Dateien\Test.xls" ' Pfad ändern für Tests
MsgBox DateiGeoeffnet(sPfad)
End Sub

Private Function DateiGeoeffnet(DerPfad As String) As Boolean
' Bei shared Workbooks, schreibgeschützten Mappen o.ä.. kann dies auch ein falsch zurückgeben.
On Error Resume Next
Open DerPfad For Binary Access Read Lock Read As #1
Close #1
If Err.Number <> 0 Then
DateiGeoeffnet = True
Err.Clear
End If
End Function

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Public Sub TestePfad()
Dim sPfad As String
sPfad = "C:\Eigene Dateien\Test.xls" ' Pfad ändern für Tests
  If DateiGeoeffnet(sPfad) = False Then
    Workbooks.Open Filename:="W:\Work\ExcelAddins\eigeneMakros.xlam"
    End If
End Sub

Private Function DateiGeoeffnet(DerPfad As String) As Boolean
' Bei shared Workbooks, schreibgeschützten Mappen o.ä.. kann dies auch ein falsch zurückgeben.
On Error Resume Next
Open DerPfad For Binary Access Read Lock Read As #1
Close #1
If Err.Number <> 0 Then
DateiGeoeffnet = True
Err.Clear
End If
End Function

---

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

wenn Du den Namen der versteckten Workbooks (z.b. *xlam) kennst kannst Du mit
folgenden Code checken ob das schon in Excel geladen ist :

    Dim WB As Workbook
   
    On Error Resume Next
    Set WB = Workbooks("Test.xls")
    If Err <> 0 Then
      Debug.Print "Workbook not loaded !"
    End If
    On Error GoTo 0

Gruß
Roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus, danke der ist kürzer!

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark  Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd,

da dir der Name mindestens eines Tabellenblattes (z.B. "Tabelle1") der xlam-Datei bekannt ist, dann kannst du es auch mit einem Einzeiler lösen:

Code:

---

If Not IsError(Evaluate("='[eigeneMakros.xlam]Tabelle1'!A1")) Then Workbooks.Open Filename:="W:\Work\ExcelAddins\eigeneMakros.xlam"

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP