копирование листов из закрытых книг

[mephist]

Мне очень нужно макросом скопировать содержимое одного листа одной книги на другой лист другой книги. Причем книга-источник будет закрыта. Имена книг и листов будут известны заранее.
Как мне это по-красивее осуществить?

[EducatedFool]

Если скопировать требуется только значения - можно реализовать, и не открывая книгу.

На мой взгляд, проще всё-таки с открытием:

Sub test()
    Application.ScreenUpdating = False
    Filename = "C:\Documents and Settings\Игорь\Рабочий стол\Sample__29-06-2009__18-22-17.xls"
    With Workbooks.Open(Filename, , True)
        ' .Worksheets(1).Copy ThisWorkbook.Worksheets(1) ' добавляем лист в текущую книгу
        .Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).[a1] ' копируем содержимое листа
        .Close False
    End With
End Sub

[mephist]

Отлично! Спасибо большое! Вот можно только один вопрос, но зато очень принципиалньный для меня: можно обойтись без прописывания полного пути файла?

C:\Documents and Settings\Игорь\Рабочий стол\Sample__29-06-2009__18-22-17.xls"

Оба файла у меня лежат в одной папке. Правда папка может перемещаться и из-за этого путь тоже изменится.

[EducatedFool]

Sub test()
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "Sample__29-06-2009__18-22-17.xls")
    With Workbooks.Open(Filename, , True)
        .Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).[a1]    ' копируем содержимое листа
        .Close False
    End With
End Sub

[mephist]

Громадное спасибо! Правда! Большое спасибо! Теперь я решу множество проблем с которыми сижу уже несколько дней! Respect EducatedFool!!!