jackfish
Gebruiker
- Lid geworden
- 10 sep 2010
- Berichten
- 297
Ik wil in een Word-userform, de combobox laden met gegevens uit een excelbestand. Dat werkt met onderstaande code. Alleen kan ik het Excel bestand nadien niet bewerken omdat het in de modus alleen lezen is gezet. Ik weet even niet hoe dit te verhelpen.
Alvast dank voor het meedenken en de aanwijzingen.
Alvast dank voor het meedenken en de aanwijzingen.
Code:
Sub combobox()
Dim Xlapp As Object
Dim XLwb As Object
Dim XlSht As Object
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim a As Integer
Dim b As Integer
Dim Myarray_A(50)
Dim Myarray_B(50)
Dim Myarray_C(50)
Dim Myarray_D(50)
Set Xlapp = CreateObject("Excel.Application")
Set XLwb = Xlapp.Workbooks.Open("C:\Test\Registratieformulier.xlsx")
Set XlSht = XLwb.Worksheets("Blad1")
For x = 2 To 50
Myarray_A(x - 1) = XlSht.Range("A" & x).Value
Next x
For y = 2 To 50
Myarray_B(y - 1) = XlSht.Range("E" & y).Value
Next y
For z = 2 To 50
Myarray_C(z - 1) = XlSht.Range("H" & z).Value
Next z
For a = 2 To 50
Myarray_D(a - 1) = XlSht.Range("N" & a).Value
Next a
For b = 2 To 50
Myarray_E(b - 1) = XlSht.Range("P" & b).Value
Next b
UserForm1.textbox16.List() = Myarray_A
UserForm1.textbox17.List() = Myarray_D
UserForm1.textbox18.List() = Myarray_A
UserForm1.textbox19.List() = Myarray_D
UserForm1.textbox20.List() = Myarray_B
UserForm1.textbox21.List() = Myarray_C
UserForm1.textbox33.List() = Myarray_E
UserForm1.textbox43.List() = Myarray_E
UserForm1.textbox53.List() = Myarray_E
UserForm1.textbox63.List() = Myarray_E
End Sub