Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, ob Datei existiert und bei nein Meldung

Gruppe

Name

Problem

Wie kann ich abfragen, ob eine Arbeitsmappe schon geöffnet ist bzw. überhaupt existiert? existiert. Wenn sie existiert soll sie geöffnet, wenn sie nicht

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub MappeOeffnen()
   Dim wkb As Workbook
   Dim sFile As String, sPath As String
   sFile = Range("B1").Value
   sPath = Range("B2").Value
   If Right(sPath, 1) <> "\" Then
      sPath = sPath & "\"
   End If
   On Error Resume Next
   Set wkb = Workbooks(sFile)
   If Err > 0 Or wkb Is Nothing Then
      Err.Clear
      If Dir(sPath & sFile) = "" Then
         MsgBox "Die Datei wurde nicht gefunden!"
      Else
         Workbooks.Open sPath & sFile
      End If
   Else
      wkb.Activate
   End If
End Sub