Option Explicit On
Option Strict Off
 
Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Dim Exc1, Exc2 As New Excel.Application
    Dim WB1, WB2 As Excel.Workbook
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            WB1 = GetObject(CurDir() & "\Mappe1.xls")
            Exc1.Application.Visible = True
            Exc1.Windows(1).Visible = True
            WB2 = GetObject(CurDir() & "\Mappe2.xls")
            Exc2.Application.Visible = True
            Exc2.Windows(1).Visible = True  'Fehler (ungültiger Index)