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

[zion87]

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



найти значение 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

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