взять данные из закрытого книга

[Aqil_f]

Hugo121, спасибо за помощ. Но, у меня что-то не получается. Если можно посмотрите на моем примере и подскажите что я не так делаю.

[Hugo121]

Работает там всё. По 13-му столбцу если поперемещаться. У Вас форма появляется?
Ещё может быть в пути ошибка, я то свой путь прописал, больше ничего не менял.

[Aqil_f]

Сообщение от Hugo121

Работает там всё. По 13-му столбцу если поперемещаться. У Вас форма появляется?
Ещё может быть в пути ошибка, я то свой путь прописал, больше ничего не менял.

Форма появляется.
Пут я менял.

[Hugo121]

А после зарытия формы мессидж с адресом не появляется, хотя такое значение там в обоих файлах есть в нужных местах?

[Aqil_f]

Сообщение от Hugo121

А после зарытия формы мессидж с адресом не появляется, хотя такое значение там в обоих файлах есть в нужных местах?

Мессидж с адресом тоже появляется. Но, вот копировать из этого записа некоторые данные (например, столбец B, C и F) в 1-ю книгу (книга K1, LIST1) не получается. В LIST1 куда копировать- это конкретное место, например - D10.

[Hugo121]

Ну так естественно, этого ведь в коде и нет - Вы же не сказали, что куда копировать. Даже и сейчас - что сказали, а куда именно в 1-ю книгу (книга K1, LIST1) - нет. Не все же три значения в одну ячейку писать.
вот например для копирования из столбца B - напишите вместо мессиджа:

        If Not y Is Nothing Then
            ThisWorkbook.Sheets(1).Cells(строка, столбец).Value = wb.Worksheets(1).Cells(y.Row, 2).Value
        End If

Естественно, (строка, столбец) замените на известные только Вам цифры. Для D10 - (10, 4)
Ну а ниже ещё пару аналогичных строк для C и F.