title image


Smiley Re: Abfragen ob eine bestimmte Datei bereits geöffnet ist
Hallo Christian,



hier noch eine Möglichkeit:



Function WorkbookExists(strFile As String) As Boolean

   Dim wkb As Object

   On Error Resume Next

   Set wkb = Workbooks(strFile)

   If Err = 0 And Not wkb Is Nothing Then

      WorkbookExists = True

   End If

   On Error Goto 0

End Function



Sub Abfrage()

   Dim strFile As String

   strFile = "test.xls"

   Dim strPath As String

   strPath = "C:\Daten\"

   If WorkbookExists(strFile) Then

      Windows(strFile).Activate

   Else

      Workbooks.Open (strPath & strFile)

   End If

End Sub

Code eingefügt mit Syntaxhighlighter 1.14



Anstatt der fest eingetragenen Namen für File & Pfad kannst du auch Inputboxes verwenden - dann allerdings unbedingt auf die richtige Schreibweise beim Eingeben der Namen achten!





Schöne Grüße aus Bruchköbel

Friedel


Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt.
Albert Einstein


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: