Dialoogbox om Excel te openen

[antonie_beens]

Hallo mensen,

Ik ben bezig om een dialoogbox te bouwen om Excel te openen met een nieuwe worksheet, en om Excel weer te kunnen sluiten.

Vba-code:

Private Sub ToggleButton1_Click()
Dim excelApp As New Excel.Application
Dim excelWorkBook As Excel.Workbook
Dim excelworkSheet As Excel.Worksheet
excelApp.Workbooks.Open ("C:\users\Antonie Beens\Documents\stock list running.xls")

On Error Resume Next
UserForm1.Hide
If Err <> 0 Then
Err.Clear
Set excelApp = GetObject(, "Excel.Application")
If Err <> 0 Then
MsgBox "Could not start Excel", vbExclamation
End
End If
End If
excelApp.Visible = True

UserForm1.Show
End Sub

Private Sub ToggleButton2_Click()
Dim excelApp As Excel.Application
On Error Resume Next
UserForm1.Hide
Err.Clear
Set excelApp = GetObject(, "Excel.Application")
If Error <> 0 Then
Err.Clear
MsgBox "No Excel session running", vbExclamation
End If
excelApp.Quit
UserForm1.Show
End Sub


Excel opstarten gaat goed, alleen afsluiten is een probleem, hij geeft continue de melding dat er geen session running is, wat ik hem heb geleerd. Wat doe ik fout?

 

[snb]

Een schakelknop (togglebutton) lijkt me geen voor de hand liggend object voor deze akties.
Commandbutton2 dient deel uit te maken van de userform in het document...'stock list running.xls"

Als dit code is binnen Excel:

Private Sub Commandbutton1_Click()
 UserForm1.Hide
  with Workbooks.Open ("C:\users\Antonie Beens\Documents\stock list running.xls")
    .userform1.show
  end with
End Sub

Private Sub Commandbutton2_Click()
   UserForm1.Hide
   workbooks("stock list running.xls").close False
End Sub

NB. de zin van deze exercitie ontgaat me.