Option Explicit On
Option Strict Off
 
Imports Microsoft.Office.Interop
 
Public Class Form1
 
    Dim xlApp As New Excel.Application
    Dim xlMap1 As Excel.Workbook
    Dim xlmap2 As Excel.Workbook
    'Dim xlTab1 As Excel.Worksheet
    'Dim xlTab2 As Excel.Worksheet
 
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            xlMap1 = xlApp.Workbooks.Open(CurDir() & "\Mappe1.xls")
            xlmap2 = xlApp.Workbooks.Open(CurDir() & "\Mappe2.xls")
            xlApp.Application.Visible = True
            ...
            ...