Создание копии листа.

[tae1980]

Прорабатываю одну идею нужен совет.
Задача: есть лист на котором находиться сложная таблица (ее размер заранее не известен) и кнопки. Нужно сделать копию информации ВСЕЙ информации на листе в один в один, без кнопок. Для хранения и последующего восстановления (обратного копирования) при необходимости.
Решение:
1. Можно пройтись по каждой ячейки и скопировать ее содержание. Но мне чем-то это решение не нравиться, хотя оно легко организовывается.
2. Можно выделить весь лист и просто вставить. Более симпатично, но в этом случае копируются и кнопки... Можно ли этого избежать?

Как лучше поступить? Есть ли другой путь?

[Hugo121]

Пройтись в копии по кнопкам и их удалить. Я так делал.

[tae1980]

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

Пройтись в копии по кнопкам и их удалить. Я так делал.

Можно пример кода цикла удаления всех кнопок?

[Hugo121]

Давайте лист с Вашими кнопками - посмотрим.
Кнопки разные бывают...

А так, с обычными:

Sub tt()
Dim sh As Object
For Each sh In Shapes
'sh.Select
sh.Delete
Next
End Sub

[tae1980]

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

Давайте лист с Вашими кнопками - посмотрим.
Кнопки разные бывают...

Вот пример...
Так же копируются все выпадающие списки и т.п. А мне нужна только информация, без оформления.

[Hugo121]

Может тогда тупо так - раз оформление не нужно?

Sub tt()
Dim a
a = ActiveSheet.UsedRange.Value

With Workbooks.Add.Sheets(1)
.[a1].Resize(UBound(a, 1), UBound(a, 2)) = a
End With
End Sub

P.S. можно ещё после выгрузки

.UsedRange.EntireColumn.AutoFit

воткнуть...

[Hugo121]

Я тут подумал - если это резервное копирование только данных, то может в текст сохранять?
Место здорово сэкономите...
Тот же массив a перебором построчно писать в текст, разделяя ячейки табами.
Если этому тексту дать расширение xls, то открыть можно кликом как xls, и с виду будет лист Экселя, но места займёт меньше, да и архивироваться тоже будет хорошо.
Или можно стандартным способом сохранить лист в текст.

[tae1980]

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

Я тут подумал - если это резервное копирование только данных, то может в текст сохранять?
Место здорово сэкономите...

Я всегда говорил: текстовый файл - лучшая база данных. :)) Но ту не много другой случай.

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

Тот же массив a перебором построчно писать в текст, разделяя ячейки табами.

Я ввел у себя стандартный разделитель "||". В этом случае нет особых ограничений для текста.

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

Если этому тексту дать расширение xls, то открыть можно кликом как xls, и с виду будет лист Экселя, но места займёт меньше, да и архивироваться тоже будет хорошо.
Или можно стандартным способом сохранить лист в текст.

Опишу ситуацию подробнее:
Принята как аксиома следующая формула: один объект работ - одна папка (по адресу) - один файл (документация).
По одному объекту может быть:
* Несколько договоров.
* У каждого договора могут быть несколько доп.соглашений.
* По каждому договору и доп.соглашению может формироваться любая (из предусмотренных) документация.
При есть только один комплект текущих "исходных данных" для договора, доп.соглашения и любого формируемого документа.

Вывод: Так как договоров и т.д. может быть много, а текущие "исходные данные" только одни, для переключения между договорами и т.д. нужно сохраняться "исходные данные" для текущего договора и восстанавливать "исходные данные" для договора и т.д. на который происходит переключение.

При реализации этой концепции я столкнулся с тем что для договоров и доп.соглашений количество данных ограничено и известно заранее, сохранить их на техническом листе не составляет проблемы. А вот количество исходных данных для формируемых документов заранее не известно, по этому мелькнула мысль не заморачиваться, а тупо копировать весь лист исходными данными. Но как видимо подобное решение не слишком удачное. Я пока слоняюсь к мысли что все же нужно переносить данные по поэлементно, хотя макрос и получиться размашистый.

[Hugo121]

Перенести массивом как я выше показал не годится? Формулы только пропадут вместе с форматами.

[tae1980]

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

Перенести массивом как я выше показал не годится? Формулы только пропадут вместе с форматами.

При обработки массивом, встанет проблема уничтожения формул, так как значения и формулы тесно переплетены.
Не думаю что целесообразно плодить кучу текстовых файлов с данными. Рациональнее создавать технические листы и прятать их от пользователя. Тем более что можно координаты размещения информации рассчитывать одновременно и для листа с исходными данными, и для технического листа. Формулы запоминать не надо, они автоматически пересчитаются при и изменении данных.
Вопрос лишь в размер скрипта, и муторности его написания. Да и будут проблемы с тем что количество данных у разных договоров будет разным, придется предусмотреть механизм удаления лишних данных.
Но похоже нужно выбрать именно этот путь...