Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range  
 
'Exceldatei öffnen und Mappe, Blatt und Excel-Range definieren
xlApp = New Excel.Application
xlApp.Visible = False
xlMappe = xlApp.Workbooks.Open(pfad & datei)
xlBlatt = xlMappe.Worksheets(1)
xlZelle = xlBlatt.Range("A1")	        
 
...hier steht dein Code....
 
'Excelobjekt schließen und beenden
xlMappe.Save()
xlMappe.Close()
xlApp.Quit()
 
xlZelle = Nothing
xlBlatt = Nothing
xlMappe = Nothing
xlApp = Nothing