Lijst met open werkboeken

[MauriceSmit]

hoi! Volgens mij is deze niet zo lastig, maar ik heb wat ruzie om het functionerend te krijgen. Ik heb een simpele Access DB (2007) waarin ik een Combobox heb opgenomen met, waarin ik open Excel bestandsnamen wil hebben staan (genaamd: OpenedWorkbooks). Nu wil ik dat dit lijstje gevuld wordt met de huidige open Excel bestanden; Daarvoor heb ik de volgende code opgenomen:

Private Sub Form_Load()
Dim Excelobject As Object
    Set Excelobject = CreateObject("Excel.Application")
    For Each wkb In Excelobject.Workbooks
        Me.OpenedWorkbooks.AddItem wkb.Name
    Next wkb
End Sub

Helaas zonder succes, want er gebeurd niks met de lijst, ongeacht of ik excel workbooks open heb of niet. Zie ik iets over het hoofd?

 

[snb]

Weet niet hoe het zit in Access maar in Word of Excel zou ik hiervoor de userform_Initialize gebeurtenis gebruiken. Op deze wijze (vanwege de snelheid; AddItem is merkbaar traag)

Private Sub Userform_Initialize()
  For Each wb In Getobject(,"Excel.Application").Application.Workbooks
    c0=c0 & wb.name & "|"
  Next
  combobox1.list=split(c0,"|")
End Sub

 

[MauriceSmit]

Helaas gaat hetzelfde mis. Het aanmaken van het object gaat goed, maar zodra hij in de for-loop komt, schiet hij eroverheen; alsof er geen "werkboeken" open zijn.

 

[snb]

Is ook logisch omdat hij eeen 'nieuwe Excel' opent.
Vorige code aangepast.