Как обратиться к закрытому файлу xls из макроса excel

[zion87]

вообщем задача такая необходимо из макроса обратиться к закрытому файлу xls такого содержимого
http://s006.radikal.ru/i214/1304/53/835f32ab249b.jpg
найти значение UserForm1.ComboBox1.Text(к примеру это СОШ 10) ну и дальше будет видно ....
помогайте пожалуйста

[zion87]

весь код макроса

Dim Month, Organiz, VneshSovmest2list, RabSpisSosNezVneshSovm2list, Vsego3list, RabSpisSosNezVneshSovm3list, VneshSovmest3list As String
Dim SRCH, BOLNICH, OTPUSK As String
Dim Stolb, Stroka As Integer


Month = UserForm1.ComboBox2.Text 'месяц с формы
Organiz = UserForm1.ComboBox1.Text 'организация с формы

Sheets("База ").Select
Cells.Find(What:=Organiz, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Activate 'ищем организацию

Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Worksheets("Лист1").Range("месяц").Value = UserForm2.ComboBox2.Text
Worksheets("Лист1").Range("год").Value = UserForm2.TextBox1.Text
Worksheets("Лист1").Range("наименованиеОрг").Value = ActiveCell.Text
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Worksheets("Лист1").Range("почтовыйАдрес").Value = ActiveCell.Text
Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
Worksheets("Лист1").Range("окпо").Value = ActiveCell.Text

[okshef]

Вытянуть данные из закрытых книг в Excel (http://www.cyberforum.ru/vba/thread157325.html)

Ваша задача решается без макросов с пом. функции ВПР