Dim exApp As New Excel.Application
        Dim Pfad As String
        Dim Datei As String
        Pfad = "C:\Vorlagen\"
        Datei = "Kunden.xls"
        With exApp
            .Workbooks.Open(Pfad & Datei).Activate()
        End With

Gru? aus dem Norden
manyki