Visual Basic связь combbobox, textbox, excel

[aleksandr_mo19]

Всем доброго вечера!
Начинаю разбираться с visual basic и не все пока получается...
Вопрос следующий
Из файла excel (из листа 1 первого столбца) в combo box передаются определенные значения.....это получилось реализовать...а дальше при выборе значения в combobox в textbox из того же файла excel должно передаваться значение, соответствующие выбранному, но из 2 столбца.
Вот это реализовать не получается...

Private Sub Form_Load()
Dim XL As Excel.Application
Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Open "C:\kugi\files\kugi.xlsx"
For I = 1 To 18
Combo1.AddItem XL.Sheets(2).Cells(I, 1).Value
Next
For j = 2 To 5
Combo2.AddItem XL.Sheets(1).Cells(j, 1).Value
Next
  XL.Quit
End Sub

Private Sub Combo2_Click()
Dim XL As Excel.Application
Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Open "C:\kugi\files\kugi.xlsx"
For j = 2 To 5
If Combo2.Text = "XL.Sheets(1).Cells(j, 1).Value" Then
Text9.Value = "XL.Sheets(1).Cells(2, 2).Value"
End If
Next
  XL.Quit
End Sub

[doober]

Vb6 нет под рукой,но в VBA так работает.

[aleksandr_mo19]

как задать это условие d = Range("A1:B3") в моем случае, учитывая, что я обращаюсь к файлу экселя?

[doober]

d=XL.Sheets(1).Range("A1:B3").Value
Но я не это хотел продемонстрировать,а принцип заполнения комбобокса и вывод из него информации

[aleksandr_mo19]

Чего-то не получается

[aleksandr_mo19]

ComboBox1.List(ComboBox1.ListCount - 1, 1) = d(n, 2)
эта строка присваивает каждому значению в комбобоксе значения из второго столбца экселя?

ее тоже не получается реализовать

[aleksandr_mo19]

Не работает и ругается на

Combo2.List(Combo2.ListCount - 1, 3) = d(J, 2)

Private Sub Form_Load()

Dim XL As Excel.Application
Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Open "C:\kugi\files\kugi.xlsx"
For I = 1 To 18
Combo1.AddItem XL.Sheets(2).Cells(I, 1).Value
Next
d = XL.Sheets(1).Range("A2", "B5").Value
For J = 2 To 5
Combo2.AddItem d(J, 1)
Combo2.List(Combo2.ListCount - 1, 3) = d(J, 2)
Next
  XL.Quit
End Sub

[doober]

Как костыль.

Dim List()

Private Sub Form_Load()
Dim XL As Excel.Application
Set XL = CreateObject("Excel.Application")
XL.Visible = False
XL.Workbooks.Open "C:\kugi\files\kugi.xlsx"
Redim List(17)
For I = 1 To 18
Combo1.AddItem XL.Sheets(2).Cells(I, 1).Value
List(i-1)=XL.Sheets(2).Cells(I, 2).Value
Next

  XL.Quit
End Sub

Private Sub ComboBox1_Change()
if ComboBox1.listindex)=-1 then exit sub
Textbox1.text=List(ComboBox1.listindex)
End Sub

[aleksandr_mo19]

А вы не могли бы разъяснить, что делает эта строка:

Private Sub Combo2_Change()
Text9.Text = List(Combo2.ListIndex)
End Sub

И вот при таком коде не происходит не чего:

Private Sub Combo2_Change()
Text9.Text = List(Combo2.ListIndex)
End Sub

а если вот так:

Private Sub Combo2_Click()
Text9.Text = List(Combo2.ListIndex)
End Sub

то работает. В чем здесь дело может быть?

ReDim List(4)

это мы переопределяем размерность и говорим, что будет 4 значения, правильно?


Знаю вопросы глупые, но я только начинаю разбираться.
Спасибо за помощь!

[aleksandr_mo19]

Большое спасибо...разобрался, и теперь получилось у одному комбубоксу сразу 5 текстбоксов через индексы привязать!!!