=ИНДЕКС(ДВССЫЛ("'[ТО "&B1&".xlsx]Р2'!$M$10:$M$200"); ПОИСКПОЗ(A9;ДВССЫЛ("'[ТО "&B1&".xlsx]Р2'!$A$10:$A$200");0))

Sub LoadDataFromClosedFile()
Dim monthYear As String
Dim sourcePath As String
Dim sourceFile As String
Dim targetSheet As Worksheet
Dim sourceRange As Range

monthYear = ThisWorkbook.Sheets("Лист1").Range("B1").Value ' Ячейка с "февраль 2025"
sourcePath = "C:\Путь\К\Файлам\"
sourceFile = sourcePath & "ТО " & monthYear & ".xlsx"

Set targetSheet = ThisWorkbook.Sheets("Лист1")

' Данные из закрытого файла (через ADO или формулу массива)
targetSheet.Range("C2:C100").FormulaArray = _
"=ИНДЕКС('" & sourcePath & "[ТО " & monthYear & ".xlsx]Р2'!$M$10:$M$200; " & _
"ПОИСКПОЗ(A2:A100; '" & sourcePath & "[ТО " & monthYear & ".xlsx]Р2'!$A$10:$A$200; 0))"

' Конвертируем формулы в значения (чтобы не зависеть от источника)
targetSheet.Range("C2:C100").Value = targetSheet.Range("C2:C100").Value
End Sub

Sub LoadDataFromClosedFile()
    Dim monthYear As String
    Dim sourcePath As String
    Dim sourceFile As String
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    ' Получаем значение месяца из ячейки B1
    monthYear = ThisWorkbook.Sheets("Отчет").Range("B1").Value
    
    ' Проверяем, что значение не пустое
    If monthYear = "" Then
        MsgBox "Укажите месяц и год в ячейке B1 (например, 'январь 2025')", vbExclamation
        Exit Sub
    End If
    
    ' Формируем путь к файлу (двойные слеши для VBA)
    sourcePath = "\\srv-file\ЭЖ_цеха_21\Техотчеты\2025\"
    sourceFile = sourcePath & "ТО " & monthYear & ".xlsx"
    
    ' Проверяем существование файла
    If Dir(sourceFile) = "" Then
        MsgBox "Файл не найден: " & sourceFile, vbCritical
        Exit Sub
    End If
    
    ' Определяем последнюю строку с данными в столбце A
    On Error Resume Next
    lastRow = ThisWorkbook.Sheets("Отчет").Cells(ThisWorkbook.Sheets("Отчет").Rows.Count, "A").End(xlUp).Row
    If lastRow < 2 Then
        MsgBox "Нет данных для обработки в столбце A", vbExclamation
        Exit Sub
    End If
    On Error GoTo 0
    
    ' Указываем лист для вывода данных
    Set targetSheet = ThisWorkbook.Sheets("Отчет")
    
    ' Записываем формулу массива с полным путем
    With targetSheet.Range("C2:C" & lastRow)
        .FormulaArray = "=IFERROR(INDEX('" & sourcePath & "[ТО " & monthYear & ".xlsx]Р2'!$M$10:$M$200, " & _
                       "MATCH(A2:A" & lastRow & ", '" & sourcePath & "[ТО " & monthYear & ".xlsx]Р2'!$A$10:$A$200, 0)), """")"
        .Value = .Value ' Конвертируем в значения
    End With
    
    MsgBox "Данные успешно загружены!", vbInformation
End Sub