Dim oExcelApp As Object
oExcelApp = CreateObject("Excel.Application")
 
Try
'Excel File öffnen
oExcelApp.Workbooks.Open(Filename:=sPath, ReadOnly:=False, Editable:=True)
 
'Editing im Excel
'...
 
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
oExcelApp = Nothing
End Try