VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Vorlage auswählen und Arbeitsmappe öffnen

Gruppe

Datei

Bereich

Öffnen

Thema

Vorlage auswählen und Arbeitsmappe öffnen

Problem

Wie kann ich aus einem Dialog aus einem festgelegten Vorlagenordner eine Vorlage auswählen und eine darauf basierende Arbeitsmappe laden?

Lösung

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




StandardModule: basMain

Sub VorlageAuswaehlen()
   Dim vTemplate As Variant
   Dim sFolder As String, sAct As String
   sAct = CurDir
   sFolder = Range("B1").Value
   ChDrive Left(sFolder, 1)
   ChDir sFolder
   vTemplate = Application.GetOpenFilename( _
      "Vorlagen(*.xlt), *.xlt")
   If vTemplate = False Then Exit Sub
   Workbooks.Add vTemplate
   ChDrive Left(sAct, 1)
   ChDir sAct
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Öffnen