Set lobjXls = CreateObject("Excel.Application")
Set lwrdXls = lobjXls.Workbooks.Add(file_html)
 
    With lwrdXls
        .SaveAs file_xls, xlNormal
        .Close
    End With
 
'Excel verlassen/ Prozess beenden
lobjXls.Quit
Set lwrdXls = Nothing
Set lobjExcel = Nothing
 
End Sub