'Das IMPORTS NICHT VERGESSEN SOWIE DEN VERWEIS
 
 
Dim exl As Excel.Application
xl = CType(CreateObject("Excel.Application"), Excel.Application)
 
'öffnet eine bestehende Datei 
xl.Workbooks.Open(dateipfad)
 
 
'Performace Tweaks
'Excel im Hintergrund öffnen
xl.Visible = False
'Excelrückfragen deaktivieren 
xl.DisplayAlerts = False
'Abarbeitung von VBA-Ereignissen in XLS-Dateien verhindern 
xl.EnableEvents = False
'ScreenUpdaten deaktieren
xl.ScreenUpdating = False
 
xl.Cells(1, 1).FormulaR1C1 = "HALLO"
 
'Kopie abspeichern
xl.ActiveWorkbook.SaveAs(Filename:=c:\HALLO.xls, FileFormat:= _
Excel.XlWindowState.xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False)
 
 
xl.Application.UserControl = True
xl.Application.ScreenUpdating = True
xl.Application.DisplayAlerts = True
xl.Quit