Dim wb As Excel.Workbook
        Dim xlapp As New Excel.ApplicationClass
        wb = xlapp.Workbooks.Open("C:\test.xls", True, False)
        Dim ws As Excel.Worksheet = xlapp.ActiveSheet
        Dim s As String = ws.Range("A1").Value
        ws.Range("A1").Value = "zzz"
        wb.Save()
        wb.Close()
        xlapp.Quit()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist