Импорт в Excel и обратно, но только значения

[oleg_sh]

Доброго всем времени, форумчане!

Есть проблемка, которую я не могу решить.

1. Нажав на кнопку сохранить, создаётся новый файл с копией активной страницы и с именем как указано в ячейках S2, T2, U2
1. Но, если теперь необходимо взять из этого сохранённого файла обратно, то страница возвращается как есть, т.е. вместе со всем сохранённым форматированием.

Как сделать так, чтобы вставлялись толко значения как при специальной вставке?
Т.к. каждый раз (до бесконечности) дублируется правило при условном форматировании ячеек A20:F27, что как то не красиво. Откроешь редактор правил, а там их уже после каждого возврата данных может быть очень много и все продублированы.

Заранее спасибо.

[oleg_sh]

Друзья, что-то не так?
Уже второй мой вопрос полностью игнорируется.
Что я делаю не так? Или задача для Вас не интересна?

Думаю, что решение задачи будет полезна многим, т.к. может решить проблему создания резервной копии (листа, таблицы) с последующим при необходимости востановлением в исходную таблицу для дальнейших расчётов.
Разные копии могут иметь различные данные, но при необходимости обрабатываться при помощи одного основного файла (с формулами и расчётами) путём их вложения из копий.

У меня просто в документе большая таблица с условным форматированием ячеек и строк (это необходимо для визуализации), и задача в общем то решена (смотрите пример), но не могу избавится от дублирования условного форматирования в ячейках при загрузки сохранённой ранее страницы (таблицы) обратно.

Возможно, что у Вас есть другое решение сохранить таблицу и при необходимости вернуть данные обратно вставив лишь значения.

[EducatedFool]

Ну так замените этот кусок кода (копирование вместе с форматированием)

With iThisSheet
        SourceSheet.UsedRange.Copy .Cells(.UsedRange.Row, "A")
    End With

вставкой значений:

    arr = SourceSheet.UsedRange.Value
    iThisSheet.Cells(iThisSheet.UsedRange.Row, "A").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr

[oleg_sh]

Спасибо, я сделал как Вы написали, но в этом случае код не работает. Ошибка подсвечивается на первое значение arr=.....
Может я что-то не понял. Вы не могли бы присоединить файл.

[IgorGO]

возможно arr надо в обьявления переменных поместить?

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

[oleg_sh]

Игорь, спасибо за совет.
arr - поставить в объявление переменных. Как, куда? Я ещё только учусь.
Другие средства резервного копирования?
Я по-этому и обратился на форум. Умом то я понимаю, что это, возможно, не лучший вариант, но он мне хоть понятен.
Сохранять таблицы из Excel, а затем по необходимости вставлять их обратно в форму. Пожалуйста, подскажите на что ещё можно обратить внимание?

EducatedFool, извините, обращаюсь по нику.
Прошу мне помочь и объяснить, а лучше показать как правильно заменить, используя Ваш вариант в код.
Пожалуйста

[kuklp]

Вместо:

With iThisSheet
        SourceSheet.UsedRange.Copy .Cells(.UsedRange.Row, "A")
End With

делайте:

With iThisSheet
        SourceSheet.UsedRange.Copy 
       .Cells(.UsedRange.Row, "A").pastespecial xlpastevalues
End With

[oleg_sh]

Kuklp, я счастлив!!! Всё работает как надо!

А можно как-то избавится от предупреждения, что в буфере обмена находится большой объём данных?
Раньше этого не было.
Может есть какая нибудь команда (код), которая автоматически отвечает на это предупреждение "нет", а лучше вообще не задавался бы этот вопрос.

[kuklp]

Да. В начале макроса вставьте:

application.displayalerts=false

а в конце:

application.displayalerts=true

[oleg_sh]

БОЛЬШОЕ СПАСИБО ВСЕМ!!! Кто принял участие в обсуждении.

При помощи Вас проблема решена.

Персональное спасибо Kuklp.

Всё получилось!