Большой выпадающий список с данными из другой закрытой книги Excel.

[agregator]

Во вложении большой выпадающий список в ячейке по двойному щелчку. Как сделать, чтобы данные для списка (ComboBox1) брались из другой закрытой книги Excel?

[doober]

пример импорта из закрытой книги

Sub Импорт_из_закрытой_книги()

Dim Path, File, List As String

Path =  'Путь к папке с Вашим файлом
File =  'имя файла
List = ' Имя листа
Range("A1:A10").Formula = "='" & Path & "[" & File & "]" & List & "'!" & "A1"
Range("A1:A10") = Range("A1:A10").Value

End Sub

[agregator]

А можно брать данные для ComboBox1 из другой книги? Да или нет?

[doober]

А что Вам мешает импортировать данные на вспомагательный лист,и загружать в комбобокс

[agregator]

Просто я думал, что создать выпадающий список с данными, которые находятся в другой, закрытой книги возможно.

[VovaKl]

Никто не мешает Вам загрузить книгу скопировать данные на Ваш лист и затем закрыть ее не обновляя данные на листе...

[Teslenko_EA]

Здравствуйте agregator.
изменив Вашу процедуру подобным образом:

Sub FillCombo()
Dim o As Object, XL As Excel.Application
Set XL = CreateObject("Excel.Application")
Set o = XL.Workbooks.Open("c:\Книга1.xls").Worksheets("Лист1")
    Me.ComboBox1.Clear
    For Each cell In o.Range(ValidationList).Cells
        Me.ComboBox1.AddItem cell
    Next
    XL.Quit
    Set o = Nothing
    Me.ComboBox1.ListRows = Range(ValidationList).Cells.Count
    Me.ComboBox1.Value = ActiveCell.Value: Me.ComboBox1.Font.Size = 6
End Sub

можно достать из "закрытой" книги. Создается объект XL - новый экземпляр Excel, в нем открывается "закрытая" книга, читается диаппазон и закрывается XL. Плюс в том, что у объекта XL свойство Visible = False, т.е. он открывается "невидимкой" и сразу закрывается, оставляя ощущение - считали с закрытой книги!!!.
Евгений.

[agregator]

Почему то тормозит и список выпадает пустой. Ещё можно так.

[ugli]

вопрос
1. А как сделать не по двойному клику а по одному?
2. В макросе прописано что список в ячейке А1 и А2 одинаковый.Как прописать что в А1 у меня список одних пунктов прайса, а в А2 другой?
и например в А3 из другого прайса(файла)?
3.При выборе одного из пунктов списка как сделать чтоб с ним рядом в ячейке выпадала его цена(из прайса)?

прилагаю список и прайс.

[doober]

В константах укажете пути к файлам,листы,диапазоны.
Если удобно,добавил действия по правой кнопке мышки