Public Class Form1
Dim Exc As Object
 
Private Sub btnMappeOeffnen_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMappeOeffnen.Click
    Try
        Exc = GetObject(CurDir() & "\Mappe1.xls") 'Wertzuweisung für Exc-Objekt
        Exc.Application.Visible = True 'Excel starten und sichtbar schalten
        Exc.Windows(1).Visible = True 'Tabelle1 (linke Tabelle) sichtbar 
        ' schalten
        Me.Activate() 'VB-Formular wieder in den Vordergrund bringen
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Excel-Fehler", MessageBoxButtons.OK,
        MessageBoxIcon.Error)
    End Try
...
...