Exceldatei mit VB öffnen und bearbeiten

Hallo an alle,

mit folgendem Syntax kann ich eine Exceldatei über eine Dialogbox öffnen. Wie kann ich direkt eine Exceldatei öffnen ohne das eine Dialogfenster aufgeht öffnen, z.B möchte ich immer fest die xls-Datei in c:\temp\test.xls öffnen.

' Öffnen der Excel-Datei
APP.Tools.FileBrowser.open(".xls")
If APP.Tools.FileBrowser.FileName = "" Then WBScript.Quit
Set ExcelSheet = GetObject(APP.Tools.FileBrowser.FileName)
Set ExcelSheet = CreateObject("Excel.Application")
Set WorkBook = ExcelSheet.Workbooks.Open(APP.Tools.FileBrowser.FileName)
Set sheet = ExcelSheet.ActiveSheet

Könnt IHr mir weiterhelfen?

Gruß Alex

Dim objExcel, objWorkbook
Set objExcel = CreateObject("Excel.Application")  
Set objWorkbook = objExcel.Workbooks.Open("B:\Mappe1.xls")  
objExcel.Visible = True