Dim Excel As Object
 
Excel=GetObject("Excel.Application")
 
Dim Wb As Object=Excel.Workbooks.Open("d:\DeineDatei.xlsx")
 
Dim Ws As Object=WB.Sheets("Tabelle1")
 
Dim Rg as Object=WS.Range("A1")
 
Rg.Value="Irgendwas"
 
Wb.Save(True)
 
Rg=Nothing
Ws=Nothing
WB.Close
 
Wb=Nothing
 
Excel.Quit
 
Excel=Nothing

EALA FREYA FRESENA