Zugriff auf den Inhalt von 2 Excel File ermöglichen - visual basic .NET

 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oExcel As Object = CreateObject("Excel.Application")  
        Dim oBook As Object = oExcel.Workbooks.Open("d:\test.xls")  
        Dim oSheet As Object = oBook.Worksheets(1)
        '//Lesen der A2 Zelle     
        Dim cellValue As String = oSheet.Range("A2").Value  
        '//Wert in A2 Zelle ändern  
        oSheet.Range("A2").Value = "hallo"  
        '//Speichern das Excel Dokument  
        oBook.SaveAs("d:\test2.xls", True)  
        oExcel.Quit()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        '//Word Anwendung erstellen  
        Dim oWord As Word.Application = CreateObject("Word.Application")  
        '//Neues Word Dokument erstellen  
        Dim oDoc As Word.Document = oWord.Documents.Add()
        oWord.Visible = True

        '//eine Tabelle 3 x 5 einsetzen und füllen mit spezifischen Daten  
        Dim r As Integer, c As Integer
        Dim oTable As Word.Table = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, 3, 5)  
        oTable.Range.ParagraphFormat.SpaceAfter = 6
        For r = 1 To 3
            For c = 1 To 5
                oTable.Cell(r, c).Range.Text = "Row" & r & "Col" & c  
            Next
        Next
        'make the first row bold and italic  
        oTable.Rows.Item(1).Range.Font.Bold = True
        oTable.Rows.Item(1).Range.Font.Italic = True
        '//Speichern das Word Dokument  
        oDoc.SaveAs("d:\hv1.doc", True)  
        oDoc.Close()
        oWord.Application.Quit()

        'Dim mm As Word.MailMerge = oDoc.MailMerge  
        'mm.ViewMailMergeFieldCodes()) '  ViewMailMergeFieldCodes '  OpenDataSource(  

    End Sub