Способы передачи данных из Excel в Visual Basic

[pooli]

передача данных из Visual Basic в Excel СУЩЕСТВУЕТ!
А как осуществить обратный процесс?

Задача.
Есть прайс листы в формате excel. Править или делать из них базу нельзя,та как они периодически обновляются.
Нужно чтоб из прайса при условии определенного диапазона строк(ячеек) в COMBO втягивать этот перечень(диапазон) для дальнейшего выбора значения в списке(комбо) и подставление выбранного в list.

[qwertyhp]

Кстати: а как осуществить эту самую передачу данных из Visual Basic в Excel? Или по-другому: как эту задачу решаете Вы? Это не любопытство, просто надо.

[iGrok]

2pooli:
Подключаешься через ADO к экселевскому файлу как к бд, и вытягиваешь нужную информацию.
Попробуй сам найти, как это делается, информации в интернете более, чем достаточно.

2qwertyhp:
Через COM-интерфейсы Excel это делается.

[pooli]

2pooli:
Подключаешься через ADO к экселевскому файлу как к бд, и вытягиваешь нужную информацию.
Попробуй сам найти, как это делается, информации в интернете более, чем достаточно.

Я новичок в VB.
В VBA я знаю как это делать.
Но тут не получается.
Можно подробней?
Ведь форум не для того,чтоб говорить поищи в поиске!!!
я бы тогда и не стал спрашивать...

[pooli]

сделал во так

Private Sub Form_Load()
Dim Ex As New Excel.Application
Dim LS As Excel.Sheets
Dim i
Ex.Workbooks.Open "C:\Книга1.xls"
Ex.Visible = False
For i = 1 To 5
Form1.Combo1.AddItem Ex.Sheets("Лист1").Range("A" & i).Value
Next i
Form1.Combo1.ListIndex = 0
End Sub

интересует как сделать чтоб при двойном клике в текстовом поле выходила эта форма со списком?

[iGrok]

Но форум и не для того, чтобы в стопицотый раз писать о том, что уже сточетырестадевяностодевять раз обсуждалось.
А поиск по нему сделан именно для того, чтобы найти нужную тему.

Находится она, кстати, за полминуты по запросу "ADO + XLS" viewtopic.php?t=11185
Так вот если ты не желаешь потратить полминуты своего времени, а хочешь, чтобы его кто-то потратил за тебя, ты не найдёшь на этом форуме единомышленников.

Касательно второго вопроса, я его не совсем понял.

интересует как сделать чтоб при двойном клике в текстовом поле выходила эта форма со списком?

Видимо, что-то вроде:

Код: Выделить всё

Private Sub Text1_DblClick(...)
  Form.Show
End Sub