Dim xlApp As New Excel.Application  ' Excel-Instanz
        Dim xlMap1 As Excel.Workbook        ' Mappe1
        Dim xlMap2 As Excel.Workbook        ' Mappe2
        Dim xlBlt1 As Excel.Worksheet       ' Tabelle aus Mappe1
        Dim xlBlt2 As Excel.Worksheet       ' Tabelle aus Mappe2
 
        ' Erste Datei öffnen
        xlMap1 = xlApp.Workbooks.Open("Pfad\zur\Datei1.xls")
        ' zweite Datei öffnen
        xlMap2 = xlApp.Workbooks.Open("Pfad\zur\Datei2.xls")
 
        ' Blatt1 (=Tabelle1 von Datei1) zuweisen
        xlBlt1 = xlMap1.Sheets(1)
        ' Blatt2 (=Tabelle1 von Datei2) zuweisen
        xlBlt2 = xlMap2.Sheets(1)
 
        ' Zelle A1 von Datei1 nach Datei2 kopieren
        xlBlt2.Range("A1").Value = xlBlt1.Range("A1").Value
 
        ' ...