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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

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

вообщем задача такая необходимо из макроса обратиться к закрытому файлу xls такого содержимого

найти значение UserForm1.ComboBox1.Text(к примеру это СОШ 10) ну и дальше будет видно ....
помогайте пожалуйста

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

Код:

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

Вытянуть данные из закрытых книг в Excel

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