Создание книги и перенос данных листа в дргую несуществующюю книгу

[OgE®_M@G]

Здравствуйте. У меня возникла проблема. Мне надо скопировать данные из одной книги в другую. Например: Книга1 открыта и есть необходимые данные мне надо скопировать данные в новую книгу, чтобы она создалась автоматически. Можно ли это сделать.
Копирование с закрытых книг пробовал, а вот как скопировать данные в несуществующую книгу

[doober]

Создать новую книгу

   Dim NEWWB As Workbook

Set NEWWB = Workbooks.Add

[The_Prist]

Sub Copy_Paste()
    Dim wbThisBook As Workbook
    Set wbThisBook = ActiveWorkbook
    Workbooks.Add
    wbThisBook.ActiveSheet.UsedRange.Copy Cells(1, 1)
End Sub

[OgE®_M@G]

Спасибо. А можно ли сохранить форматирование ячеек листа с которого копируются данные?

[The_Prist]

Сообщение от OgE®_M@G

Спасибо. А можно ли сохранить форматирование ячеек листа с которого копируются данные?

А Вы попробовали? В моем примере вроде и так все форматирование должно сохраняться.

[OgE®_M@G]

Я пробовал The_Prist. Вот файлик. И еще мне надо включить, чтобы макрос удалял пустые строки в диапазоне A8:F19. Если не сложно подскажите как это осуществить. Заранее спасибо.

[The_Prist]

Сообщение от OgE®_M@G

Я пробовал The_Prist

Ну и что? Копирует форматы?

Сообщение от OgE®_M@G

чтобы макрос удалял пустые строки в диапазоне A8:F19

См.вложение

[SAS888]

Можно чуть проще.

[OgE®_M@G]

SAS888 он и формулы удаляет. Как быть? В макросах я не силен. Я только начинаю изучать.

[SAS888]

он и формулы удаляет. Как быть?

Не может такого быть. Посмотрите пример в посте №8. В исходной книге "Пример.xls", например в ячейке "F8" находится формула "=D8*C8". После работы макроса создается новая книга, в которой удалены пустые строки, а формулы сохранены. Так в новой книге в ячейке "F8" находится формула "=D8*C8".
А что происходит у Вас?