VBA Combobox vullen Word met gegevens uit excel.

[Bosswilly]

Goedemiddag allemaal,

Wie kan mij helpen met het volgende vraagstuk.

Ik ben nog niet veel in thuis in VBA, maar leer al aardig in mijn eigen tempo.

Ik kom nu niet uit met de combobox.

Reden hiervoor is dat ik een aparte registratie heb met betrekking tot de leerlingen (in Excel).

Deze gegevens wil ik in de combobox (Is in Word) importeren via VBA, zodat ik altijd de excellijst kan aanvullen met bijvoorbeeld nieuwe klanten en die kan gebruiken via de combobox in Word.

Kan iemand mij hierbij helpen?

Alvast bedankt.

Voorbeeld heb ik meegestuurd.

Groetjes.

Bekijk bijlage Vraagstuk.zip

 

[edmoor]

Hier staat een relevant voorbeeld:
http://stackoverflow.com/questions/13861914/populate-word-combobox-with-excel-data-through-vba

 

[snb]

En hier een eenvoudiger:

1 regel code in de Docuemnt_open gebeurtenis.

een paar regels code in de Userform_initialize gebeurtenis.

Zorg ervoor dat je tabel van de leerlinggegevens begint in cel A1 (laat rij1 en kolom A nooit leeg !!)

 

[Bosswilly]

Hartelijk dank voor de reacties. Ik ga er naar kijken.

Is er een reden voor dat je alleen maar in A1 moet beginnen?

Is dit niet te veranderen in de cel zoals ik nu begonnen ben?

Ik hoor wel van jullie.

 

[glennlissone]

Private Sub UserForm_Initialize()

Dim oExcel As New Excel.Application
Dim arr As Variant
Dim oWB As Workbook
Dim ws As Worksheet

arr = Array("a", "b")

Set oWB = oExcel.Workbooks.Open("C:\excel\data.xlsx")
Set ws = oWB.Sheets(1)

With ws.UsedRange
arr = .Offset(1).Resize(.Rows.Count - 1) 'uitzonderen eerste rij HEADINGS
End With
ComboBox1.List = oExcel.WorksheetFunction.Index(arr, 0, 1)

oWB.Close
oExcel.Quit

End Sub

 

[snb]

@glen

Gebruik svp code tags.

Iets eenvoudiger/sneller

Private Sub UserForm_Initialize()
   with getobject("C:\excel\data.xlsx")
     With .sheets(1).UsedRange
       combobox1.list = .Offset(1).Resize(.Rows.Count - 1).value
     End With
     .Close 0
   end with
End Sub