copy-paste. Оптимизация!

[mephist]

Прошу прощения за детский вопрос:
как в макросе прописать копирование из ячейки одной книги в ячейку другой.
Я написал такой код, но работает он до посинения долго
(этот блок кода повторяется 8 раз, то есть я создаю 16 ссылок, а работает это 7-10 минут ):

ThisWorkbook.Worksheets(1).Unprotect
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "3 sz.xlsx")
    With Workbooks.Open(Filename, , True)
        ActiveWorkbook.Worksheets(1).Unprotect
        Range("C8").Copy ThisWorkbook.Worksheets(1).[C8]
        Range("D8").Copy ThisWorkbook.Worksheets(1).[D8]
        .Close False
    End With

Подскажите, где я ошибся? А вообще здесь есть логические ошибки, и можно ли это оптимизировать?

[SAS888]

А Вам нужно именно копию ячейки? Т.е. со всеми свойствами (шрифт, формат, заливка, границы и т.п.)?
Если достаточно только значения, то файл-источник можно не открывать. Скорее всего "тормозит" именно открытие/закрытие файлов.

[mephist]

Да. Мне нужно только значение. Как можно это сделать?

[SAS888]

Получить значение ячейки из неоткрытой книги можно лишь в том случае, если известно имя листа и адрес ячейки этой книги, т.к. указывать нужно явно. По номеру листа обратиться невозможно. Например, пусть в Вашем случае, лист с данными (WorkSheets(1) в закрытой книге-источнике) имеет имя "Лист1". Тогда можно применить следующее:

Application.ScreenUpdating = False
With ThisWorkbook.Sheets(1)
    .Unprotect
    .[C8].Formula = "='" & ThisWorkbook.Path & "\[3 sz.xlsx]Лист1'!$C$8": .[C8].Value = .[C8].Value
    .[D8].Formula = "='" & ThisWorkbook.Path & "\[3 sz.xlsx]Лист1'!$D$8": .[D8].Value = .[D8].Value
End With