Private oExcel1 As Object, oExcel2 As Object
    Private oBook1 As Object, oBook2 As Object
    Private oSheet1 As Object, oSheet2 As Object
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        oExcel1.Quit()
        oExcel2.Quit()
    End Sub
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        oExcel1 = CreateObject("Excel.Application")
        oBook1 = oExcel1.Workbooks.Open("C:\haupt.xls")
        oSheet1 = oBook1.Worksheets(1)
        oExcel2 = CreateObject("Excel.Application")
        oBook2 = oExcel1.Workbooks.Open("C:\Test.xls")
        oSheet2 = oBook1.Worksheets(1)
    End Sub
    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tmr.Tick
        oSheet1.Cells(1, 1).Value = oSheet2.Cells(1, 2).Value
        oBook1.SaveAs("C:\haupt.xls")
    End Sub