Dim xlApp As Excel.Application
Dim xlMappe As Excel.Workbook
Dim xlBlatt As Excel.Worksheet
Dim xlZelle As Excel.Range
 
xlApp = New Excel.Application
                xlApp.Visible = False
                xlMappe = _
                xlApp.Workbooks.Open("C:\Ausgang.xls")
                xlBlatt = xlMappe.Worksheets(1)
 
xlMappe.SaveAs(src)
                xlMappe.Close()
                xlApp.Quit()