Option Explicit

Dim appXcel As Object


Private Sub cmdOpen_Click()
Set appXcel = CreateObject("Excel.Application")
appXcel.Workbooks.Open FileName:="C:\Mina dokument\MinExcelfil.xls"
appXcel.Caption = "Min Excelfil"
appXcel.Visible = True
End Sub

Private Sub cmdClose_Click()
appXcel.Quit
Set appXcel = Nothing
End Sub