Public Shared Function konsol()
        Dim oExcel As Application
        Dim oBook As Workbook
        Dim oSheet As Worksheet
        Dim oRange As Range
 
        oExcel = New Excel.Application
        If oExcel Is Nothing Then
            Console.WriteLine("ERROR: EXCEL couldn't be started!")
            Environment.ExitCode = 0
            Exit Function
        End If
        oExcel.Visible = True
        oExcel.DisplayAlerts = False
 
 
        oBook = oExcel.Workbooks.Add()
        oBook.Activate()
        oSheet = oBook.Sheets("Tabelle1")
        oSheet.Name = "Zusammenfassung"
        oSheet = oBook.Sheets("Tabelle2")
        oSheet.Delete()
        oSheet = oBook.Sheets("Tabelle3")
        oSheet.Delete()
        oSheet = oBook.Sheets("Zusammenfassung")
        oSheet.Activate()
        oRange = oSheet.Range("A1")
        oRange.Activate()
        oRange.Select()
 
 
        Dim Tabellen(0)
        For i = 0 To 2
            ReDim Preserve Tabellen(i)
            Tabellen(UBound(Tabellen)) = "'C:\[" & "Telco0" & i + 1 & _
              "0705.xls" & "]" & "Sheet1" & "'!R1C1:R4C11"
        Next
 

        oSheet.Cells(1, 1).Consolidate(sources:=Tabellen, Function:=xlSum, _
          TopRow:=True, LeftColumn:=True, CreateLinks:=True)

 
        oExcel.ActiveWorkbook.SaveAs(Filename:="C:\temp\Zusammenfassung.xls")
 
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oRange)
        oRange = Nothing
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oSheet)
        oSheet = Nothing
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook)
        oBooks = Nothing
        oExcel.Quit()
        System.Runtime.InteropServices.Marshal.ReleaseComObject(oExcel) 
        oExcel = Nothing
 
    End Function

it always starts with a plan...