Заполнение combobox.

[NicBor]

Для заполнения вордовского документа создана форма, на ней есть combobox. Вопрос - как заполнить combobox на вордовской форме данными из экселевской таблицы "Справочник". Данные расположены в диапозоне А1:А50.

[faiza]

Попробуй так:
Application.Activate
ThisDocument.Activate
iMassiv = Ex.Sheets("Лист1").Range("A1:A50"). Value
ComboBox1.List = iMassiv

[faiza]

Перед этим нужно объявить excel как объектную переменную, чтобы с ней работать.Можно так:

Private Sub UserForm_Initialize()
Dim Ex As Excel.Application 'Описываем переменную как объект
Set Ex = CreateObject("excel.application")
Ex.Workbooks.Open FileName:=ThisDocument.Path & "\Справочник.xlsx" ' Прописываю путь относительно моего документа Word, может и конкретно указать
Ex.Application.Visible = True 'Делаем его видимым

Application.Activate
ThisDocument.Activate
iMassiv = Ex.Sheets("Пуск").Range("A1:A50").V alue
ComboBox1.List = iMassiv

И не забуть подключить библиотеки объектов программы Excel: Tools - References... - Microsoft Excel 14.0 Object Library - OK.

[NicBor]

Спасибо большое за ответ. Все работает, внес небольшое изменение
Application.Activate
ThisDocument.Activate
Dim iMassiv
iMassiv = Ex.Sheets("Лист1").Range("A1:A50"). Value
ComboBox1.List = iMassiv

[forumWord]

Я бы вот так работал с книгой Excel:

Sub Макрос2()
Dim oExcel As Excel.Application
Dim oWorkBook As Excel.Workbook
Set oExcel = CreateObject("Excel.Application")
Set oWorkBook = GetObject("C:\Данные из Excel.xls")
Selection.Text = oWorkBook.Worksheets(1).Range("A1").Value
oWorkBook.NewWindow
oExcel.Quit
Set oExcel = Nothing
Set oWorkBook = Nothing
End Sub