Копировать данные из закрытой книги

[Aleksandr H.]

Sub Get_Value_From_Book()
        Dim sFile As String, sh As Worksheet, ac As Long

        With Application.FileDialog(msoFileDialogFilePicker)
            .Filters.Clear
            .Filters.Add "Microsoft Excel files", "*.xlsx"
            .AllowMultiSelect = False
            .InitialFileName = ThisWorkbook.Path
            If .Show = 0 Then Exit Sub
            sFile = .SelectedItems(1)
        End With

        Set sh = ActiveWorkbook.ActiveSheet
        
        sh.Range("a2:b" & sh.Cells(sh.Rows.Count, 1).End(xlUp).Row).Clear

        With Application
            'отключаем обновление экрана - это убыстрит работу макроса
            .ScreenUpdating = False
            'отключаем события книги
            .EnableEvents = False
            'включаем ручной пересчёт формул - это убыстрит работу макроса
            ac = .Calculation: .Calculation = xlCalculationManual

            With GetObject(sFile).Sheets("Page1")
                .Range("p5:q5000").Copy sh.[a2]
                '.Parent.Close False
            End With

            'возвращаем назад всё отключенное/изменённое
            .ScreenUpdating = True
            .EnableEvents = True
            .Calculation = ac
        End With

End Sub

копирует на активный лист. Обработай sFile что-бы извлечь название файла, проверить если ти такой лист и туда вставлять данные. Если листа нету то создай его

[amadeus017]

Получилось следующее:
Наименование сумма
#ССЫЛКА! -
#ССЫЛКА! -
#ССЫЛКА! -

и т.д.

если встать на ячейку "#ССЫЛКА!" то вижу ошибку на ссылки несуществующих ячеек.
=ЕСЛИ(#ССЫЛКА!="";"";СЦЕПИТЬ(#ССЫЛК А!;":";#ССЫЛКА!;#ССЫЛКА!;ЛЕВСИМВ(#С СЫЛКА!;НАЙТИ(" ";#ССЫЛКА!;1)-1)))

Перенести нужно только значение, не формулы. А так пока все устраивает, а именно, было меню в котором можно выбрать файл для загрузки, очистка значений A2:B, и импорт в нужный диапазон.

[IgorGO]

см. сообщение #10. я в 13:09 это

#ССЫЛКА!

исправил
было

.Cells(5, 16).Resize(.Rows.Count - 4, 2).Copy Range("A2")

стало

.Cells(5, 16).Resize(.Rows.Count - 4, 2).Copy
      Range("A2").PasteSpecial xlPasteValues

[amadeus017]

Скопировал код от IgorGO, все работает!
Буду пробовать подставлять данные из файлов.
Огромное спасибо и прошу прощение, за отсутствие педагогических навыков донести тему (задачу).

[amadeus017]

Все устраивает, отменно работает!
Большое спасибо IgorGO за код и Aleksandr H. за то, что уделили мне внимание!!!

[IgorGO]

отсутствие педагогических навыков донести тему (задачу)

так выход есть! - читайте методические рекомендации "по постановке задачи..."
главное руководствуйтесь ими при формулировке задачи - это должно существенно ускорить процесс получения требуемого результата.