Dim Exc1 As New Microsoft.Office.Interop.Excel.Application
Dim Exc2 As New Microsoft.Office.Interop.Excel.Application
Dim Sheet1 As Microsoft.Office.Interop.Excel.Worksheet
Dim Sheet2 As Microsoft.Office.Interop.Excel.Worksheet
Dim i As Integer
 
Exc1.Workbooks.Open(CurDir() & "\Mappe1.xls")
Exc2.Workbooks.Open(CurDir() & "\Mappe2.xls")
Sheet1 = CType(Exc1.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
Sheet2 = CType(Exc2.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
For i = 0 To 7
  Sheet2.Cells(1, i + 1) = Sheet1.Cells(1, i + 1)
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de