Option Explicit On
Option Strict Off
 
Imports Microsoft.Office.Interop
 
Public Class Form1
 
    'Exc ist formweit deklariert. Dies ermöglicht einen Zugriff aus mehreren 
    ' Subs.
    Dim Exc As New Excel.Application
    Dim WB As Excel.Workbook
 
    Private Sub btnMappeOeffnen_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnMappeOeffnen.Click
        Try
            WB = Exc.Workbooks.Open(CurDir() & "\Mappe1.xls")
            Exc.Application.Visible = True 'Excel starten
            Exc.Windows(1).Visible = True 'Tabelle1 (linke Tabelle) sichtbar 
            ' schalten
            Me.Activate()  'VB-Formular in den Vordergrund bringen
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Excel-Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
            MessageBox.Show("Das Anwenderprogramm MS-Excel ist nicht" & _
            "installiert " & vbCrLf & _
            "oder die Mappe1.xls fehlt.", "Fehler bei der Programmausführung", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
        'Exc = Nothing  'Objekt Exc aus Arbeitsspeicher entfernen
        'WB = Nothing  'Objekt WB aus Arbeitsspeicher entfernen
    End Sub