Private Sub Form_Load()
Dim myexcel As Object
Set myexcel = CreateObject("Excel.application")
'dokument versteckt öffnen
myexcel.Workbooks.Open "c:\rechnung.html"
'inhalt in die zwischenablage kopieren
myexcel.ActiveWorkbook.ActiveSheet.Range("A1:C45").Copy
'Spreadsheet objekt aus den Office Webcontrols
Spreadsheet1.Range("A1").Paste
myexcel.DisplayAlerts = False
myexcel.ActiveWorkbook.Close False
Set myexcel = Nothing