сохранить лист в другой файл Exel2003

[Pasha_Z]

Как сохранить лист в другой файл с данными и форматированием колонок и строк, но без формул и связей.

[Serge 007]

Записал макрорекордером:

Sub Pasha_Z()
    Sheets("Лист1").Copy
    Cells.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.SaveAs Filename:="C:\путь\Книга1.xls"
End Sub

[Pasha_Z]

Сообщение от Serge 007

Записал макрорекордером:

Sub Pasha_Z()
    Sheets("Лист1").Copy
    Cells.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.SaveAs Filename:="C:\путь\Книга1.xls"
End Sub

спасибо.
нормально все

[kalbasiatka]

А дальше специальная вставка / значения.

[Serge 007]

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

при выполнении даного макроса также копируются формулы...

Прежде чем писать, попробуйте запустить макрос

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

...и ссылки на макросы

Что такое "ссылки на макросы"?

ЗЫ Pasha_Z, с каким глубинным смыслом Вы процитировали мой пост целиком? Зачем? Кому это надо? Вы знаете об оверквотинге?

[Pasha_Z]

Сообщение от Serge 007

Прежде чем писать, попробуйте запустить макрос

Что такое "ссылки на макросы"?

ЗЫ Pasha_Z, с каким глубинным смыслом Вы процитировали мой пост целиком? Зачем? Кому это надо? Вы знаете об оверквотинге?

Привет.
проти Вашего кода я не возражаю.
но он не вполне выполним.

он выполняется если нету никакого форматирования.
если есть объединенные ячейки то макрос выдает ошибку.

[Serge 007]

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

... выполняется если нету никакого форматирования.
если есть объединенные ячейки то макрос выдает ошибку.

Pasha_Z, Вы запустить код попробуйте, прежде чем писать. Код выполняет всё что Вам нужно, без каких-либо проблем. И Объединённые ячейки ему тоже не помеха, так как сначала копируется лист целиком, а потом вставляются только значения на те же места, где были формулы (в структуре листа не происходит изменений)

Про оверквотинг есть здесь. Перестаньте бессмысленно цитировать!

[Pasha_Z]

Сообщение от Serge 007

Pasha_Z, Вы запустить код попробуйте, прежде чем писать. Код выполняет всё что Вам нужно, без каких-либо проблем. И Объединённые ячейки ему тоже не помеха, так как сначала копируется лист целиком, а потом вставляются только значения на те же места, где были формулы (в структуре листа не происходит изменений)

Про оверквотинг есть здесь. Перестаньте бессмысленно цитировать!

даю прикрепление файла
на лист2 фото экрана ошибки.

извините что отнял время.
я нашел в чем проблема была. почему высвечивалась дана ошибка.

[gling]

Попробуйте так

Sub Pasha_Z()
    Sheets("Лист1").Copy
    Cells.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
'    ActiveWorkbook.SaveAs Filename:="C:\путь\Книга1.xls"
End Sub

[Serge 007]

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

я нашел в чем проблема была.

Pasha_Z, Вы читать умеете? Или Вы умышленно игнорируете то, что я Вам пишу?