Dim myexcel As Object Set myexcel = CreateObject("excel.application") myexcel.Visible = True ' Wenn notwendig ... myexcel.Workbooks.Open "Pfadzurexceldatei" ' Mach irgendwas myexcel.Quit Set myexcel=Nothing