Как вернуть первоначальный вида док-та

[Серёга0629]

Сделал макрос на импорт данных. Как вернуть первоначальный вида док-та?

[IgorGO]

не сохранять после импорта)

[Серёга0629]

Это не удобно, если прошло время идёт автосахронение.
хотелось бы через средства VBA
да, не чего халявного в этом мире нет)))

[IgorGO]

трудно осознать "глубину Ваших глубин".
открываете файл и тут же сохраняете с новым именем (все это можно макросом сделать на автомате). таким образом и исходный постоянно один и тот же и импортированные данные пристроены.

[Серёга0629]

Спасибо) Это один из способов, но всё же хочется добить этот вариант, на форумах видел обсуждения по этому поводу, но не чего конкретного небыло

[Hugo121]

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

[Серёга0629]

в Word усть такой макрос
Sub DoUndo()
While uc > 0
ActiveDocument.Undo
uc = uc - 1
Wend
End Sub

и еще добавляем глобальную переменню:
Dim uc As Integer

Запуск макроса DoUndo откатывает все действия произведенные нашим макросом
для это лишь необходимо каждому действию добавить uc = uc + 1

Мне нужно что-то наподобии, только в Exel

[IgorGO]

Application.Undo

[Серёга0629]

Application.Undo http://msoffice.nm.ru/faq/macros/mis...eous.htm#faq62
Этот макрос отменяет одну команду, а если у меня в макросе много команд?

[IgorGO]

Вы в uc посчитайте сколько изменений внесли а затем:

do While uc > 0
  Application.Undo
  uc = uc - 1
loop