|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
10.05.2011, 11:20 | #1 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Как вернуть первоначальный вида док-та
Сделал макрос на импорт данных. Как вернуть первоначальный вида док-та?
|
10.05.2011, 11:45 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
не сохранять после импорта)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
10.05.2011, 11:54 | #3 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Это не удобно, если прошло время идёт автосахронение.
хотелось бы через средства VBA да, не чего халявного в этом мире нет))) |
10.05.2011, 12:00 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
трудно осознать "глубину Ваших глубин".
открываете файл и тут же сохраняете с новым именем (все это можно макросом сделать на автомате). таким образом и исходный постоянно один и тот же и импортированные данные пристроены.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
10.05.2011, 12:24 | #5 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Спасибо) Это один из способов, но всё же хочется добить этот вариант, на форумах видел обсуждения по этому поводу, но не чего конкретного небыло
|
10.05.2011, 12:46 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Так и Вы ничего конкретного не показали.
Можно сперва взять данные в публичный массив, потом из массива выгрузить назад на лист. Или сделать копию листа, потом испорченный лист удалить, копию переименовать.
webmoney: E265281470651 Z422237915069 R418926282008
|
10.05.2011, 13:28 | #7 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
в Word усть такой макрос
Sub DoUndo() While uc > 0 ActiveDocument.Undo uc = uc - 1 Wend End Sub и еще добавляем глобальную переменню: Dim uc As Integer Запуск макроса DoUndo откатывает все действия произведенные нашим макросом для это лишь необходимо каждому действию добавить uc = uc + 1 Мне нужно что-то наподобии, только в Exel |
10.05.2011, 13:41 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Application.Undo
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
10.05.2011, 13:50 | #9 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Application.Undo http://msoffice.nm.ru/faq/macros/mis...eous.htm#faq62
Этот макрос отменяет одну команду, а если у меня в макросе много команд? |
10.05.2011, 14:05 | #10 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Вы в uc посчитайте сколько изменений внесли а затем:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Док станция для ноутбуков | misher | Компьютерное железо | 0 | 31.03.2011 16:54 |
как вернуть звук? | Дініс | Компьютерное железо | 12 | 27.08.2009 10:13 |
Как вернуть Swithboard? | Skolot | Microsoft Office Access | 4 | 08.06.2009 09:45 |
SOS. Не могу открыть, сохранить док.ворд 2007 | ola-ola | Microsoft Office Word | 3 | 17.03.2009 21:57 |
Как вернуть избранное | Умелец | Свободное общение | 1 | 29.05.2007 13:03 |