Option Explicit
Private oExl As New Excel.application
Dim Zeile As Long, Spalte As Integer
 
Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String)
On Error Resume Next
oExl.Workbooks.Open sWSName
If Err > 0 Then
MsgBox "Bla Bla"
Exit Sub
End If
On Error GoTo 0
ActiveWorkbook.Sheets(sTabName).Select
End Sub
 
Private Sub Command1_Click()
' Zeile / Spalte festlegen zum Auslesen
Zeile = 1
Spalte = 1
Label1.Caption = ActiveSheet.Cells(Zeile, Spalte).Value
' Zeile / Spalte festlegen zum Einlesen
Zeile = 2
Spalte = 1
ActiveSheet.Cells(Zeile, Spalte).Value = Text1.Text
End Sub
 
Private Sub Form_Load()
Call OpenExlWS (App.Path & "\test.xls", "Tabelle2")
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
ActiveWorkbook.Close savechanges:=False
oExl.Quit
Set oExl = Nothing
End Sub