Окно при сохранении файла excel

Окно «Сохранить как» — полезное окно, но оно может раздражать, если оно продолжает появляться, особенно если вы уже сохранили свой документ. Пользователи сообщали о проблеме во многих программах, но наиболее распространенными являются Word и Excel. Даже если вы попытаетесь сохранить или отменить, оно все равно появится через несколько секунд. Трудно сразу определить причину появления окон «Сохранить как» в приложениях Office, но вы можете применить некоторые решения и посмотреть, устранена ли проблема.

Окно «Сохранить как» продолжает появляться в Word или Excel

Почему в Word и Excel постоянно появляется окно «Сохранить как»?

Трудно определить причину появления окна «Сохранить как» в Word и Excel. Однако есть проблемы, которые могут вызвать его, в том числе проблемы с клавиатурой, сторонние плагины, несовместимые приложения, виртуальные частные сети, антивирусное программное обеспечение, неправильные настройки конфигурации и другие сторонние программы. Устаревшие приложения и ОС также могут сыграть в этом свою роль.

Некоторые решения, такие как отключение «Сохранить как ярлыки», отключение любых надстроек или доступ к приложениям в безопасном режиме, сработали для некоторых пользователей, но некоторые по-прежнему продолжают сталкиваться с бесконечным всплывающим окном. В этой статье мы дадим вам лучшее решение для устранения окна «Сохранить как», которое продолжает вас раздражать. Держите его здесь для практических советов.

Поскольку мы не можем знать точную причину ошибки, лучше сначала устранить проблемы, которые, по нашему мнению, могут быть причиной. Но перед этим примените эмпирическое правило, убедившись, что вы обновили приложения Office и операционную систему Windows. Если окно «Сохранить как» по-прежнему появляется бесконечно, попробуйте следующие решения:

  1. Отключить защищенный просмотр
  2. Отключите параметр «Не показывать Backstage».
  3. Откройте приложение в безопасном режиме
  4. Отключить надстройки
  5. Восстановление приложений Word и Excel

Вот решения подробно.

1]Отключить защищенный просмотр

Окно «Сохранить как» продолжает появляться в Word или Excel

Хотя это параметр безопасности, вы можете временно отключить его и посмотреть, будет ли появляться окно «Сохранить как». Защищенный просмотр показывает файлы, которые могут показаться опасными при их открытии. Он предостерегает вас от открытия и редактирования таких документов. Мы рекомендуем включить его снова, если проблема не решена, и попробовать другие решения. Вот как отключить защищенный просмотр на ПК с Windows:

  • Откройте приложение Word или Excel, перейдите в свой документ и щелкните параметр «Файл», расположенный в верхней левой части окна.
  • Прокрутите вниз и нажмите «Параметры».
  • Появится новое окно. С левой стороны прокрутите вниз и выберите Центр управления безопасностью.
  • В разделе Центр управления безопасностью Microsoft Word щелкните Параметры центра управления безопасностью.
  • Выберите «Защищенный просмотр» слева и снимите все флажки в новых окнах.
  • Вернитесь к документу и посмотрите, решена ли проблема. Если нет, включите параметры и попробуйте другие варианты ниже.

Обратите внимание, что описанные выше шаги применимы как к Word, так и к Excel.

2]Отключите параметр «Не показывать Backstage».

Некоторые пользователи исправили окно «Сохранить как» в Word и Excel, отключив «Не показывать Backstage при открытии или сохранении файлов с помощью сочетаний клавиш‘ вариант. Для этого выполните следующие действия:

  • Откройте документ и нажмите «Файл» в левом верхнем углу.
  • Прокрутите вниз и выберите «Параметры».
  • В новом окне выберите Центр управления безопасностью, а затем щелкните Параметры центра управления безопасностью.
  • Появится другое новое окно, выберите «Сохранить» и снимите флажок «Не показывать Backstage при открытии или сохранении файлов с помощью сочетаний клавиш».

3]Откройте приложение в безопасном режиме.

Если окно «Сохранить как» продолжает появляться, причиной могут быть определенные проблемы, которые можно решить в безопасном режиме. Такие проблемы, как поврежденные файлы, приложения, шаблоны, ресурсы или шаблоны, могут вызвать появление всплывающего окна. Чтобы запустить приложения Office, такие как Excel или Word, в безопасном режиме, выполните следующие простые действия:

  • Откройте диалоговое окно «Выполнить», нажав клавишу Windows + R.
    • В MS Word введите команду: word/safe.
    • В MS Excel введите команду: excel/safe.
  • Нажмите «ОК» и посмотрите, продолжает ли появляться окно «Сохранить как».

Если это не так, вам может потребоваться проверить надстройки Office.

4]Отключить надстройки

Некоторые надстройки в Excel или Word могут вызвать ошибку. Их отключение может предотвратить повторное появление всплывающего окна «Сохранить как». Есть вероятность, что надстройки и расширения могут мешать работе родительских приложений. Выполните следующие действия, чтобы отключить надстройки в Word и Excel:

  • Откройте MS Word или MS Excel и нажмите «Параметры».
  • В списке выберите Надстройки.
  • В нижней части панели рядом с пунктом «Управление» выберите «Надстройки COM» в раскрывающемся меню.
  • Затем нажмите «Перейти», а затем снимите все надстройки, а затем нажмите «ОК».
  • Снова откройте приложение и посмотрите, решена ли проблема.

5]Восстановить установку Office

Окно «Сохранить как» продолжает появляться в Word или Excel

Восстановление Office остановит всплывающее окно «Сохранить как». Мы рекомендуем сначала использовать метод быстрого восстановления, чтобы решить проблему, потому что онлайн-восстановление занимает довольно много времени и требует стабильного подключения к Интернету. Выполните следующие действия, чтобы восстановить Excel или Word на ПК с Windows.

  • Откройте приложение «Параметры Windows», нажав клавишу Windows + I на клавиатуре ПК.
  • С левой стороны выберите «Приложения», а затем перейдите к «Установленные приложения» или «Приложения и функции».
  • Нажмите Microsoft Office или три точки рядом с ним.
  • Выберите «Изменить» и подождите несколько секунд.
  • В новом маленьком окне выберите «Быстрое восстановление», а затем «Восстановить».
  • Вы можете выбрать онлайн-восстановление, если у вас хорошее подключение к Интернету и быстрое восстановление не сработало.
  • Подождите, пока инструмент восстановит ваше приложение. Это может занять несколько минут.

Если ни одно из предыдущих решений не устраняет бесконечное всплывающее окно окна «Сохранить как», вы также можете попробовать следующее:

Мы надеемся, что одно из этих решений поможет вам.

Как запретить Word и Excel сохранять в OneDrive по умолчанию?

Чтобы Word или Excel не сохранялись в OneDrive, необходимо изменить параметры сохранения в каждом приложении. Откройте любой из документов приложений и выберите «Файл» > «Параметры» > «Сохранить». Измените предпочтительное расположение файла в параметре «Местоположение файла по умолчанию». Помните, что вам нужно изменить эти настройки в каждом приложении отдельно.

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

Добрый день уважаемые форумчане!
Подскажите как отключить назойливое всплывающее окно «Сохранения документа». Оно всплывает каждый раз при сохранении и висит 20-30 секунд, при этом ничего не дает делать пока не скроется. Причем если закрывать его крестиком, документ сохраниться и дает выполнять другие действия над документом, но каждый раз его закрывать надоедает. Это происходит с сетевым файлом. Т.е. на компьютере где находится сам файл, такого не происходит, а если сохранять документ с сетевого компьютера, то постоянно выскакивает этот процесс бар.
Раньше такого вроде бы не наблюдалось. После чего появилось ума не приложу.
Вопрос, возможно его как-то отключить или сделать его фоновым, чтоб можно было выполнять работу не дожидаясь его исчезновения. Уже задавал вопрос на других форумах, ответа не получил.

Изменено: antal1013.01.2016 09:40:03

 

SuperCat

Пользователь

Сообщений: 2737
Регистрация: 21.12.2012

Автосохранение отключено?

There is no knowledge that is not power

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

Автосохранение выключено на обоих компьютерах. Я вот только не могу понять, почему при сохранении оно не просто сохраняется, а сохраняется как будто я нажал кнопку не «Сохранить», а «Сохранить как», что видно из скрина.

 

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

Какая версия офиса? Это происходит с одним файлом или со всеми открываемыми из сети файлами? Какой формат проблемного файла? (расширение)

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

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

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

Версия офиса 2013. Это происходит только с этим файлом. Формат файла XLSM есть макросы. Сохранение, что по кнопке в панели быстрого доступа, что через меню Файл—Сохранить, что через Ctrl+S, что макросом происходит с этой табличкой.
Что пробовал: отключал все макросы, надстройки, результат тот же.

P.S. Так же заметил некоторый нюанс. При нажатии сохранить, сначала сохраняет(крутится колесо 2 секунды), затем появляется окно сохранить как и висит секунд 20. Т.е. создается впечатление что сначала просто сохраняет, а потом еще «сохраняет как»

Изменено: antal1013.01.2016 12:02:40

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

#7

13.01.2016 12:02:00

Цитата
The_Prist написал:
Проблема именно в сетевом расположении файлов. Excel сначала получает доступ к сетевому диску, потом сохраняет туда и скорость сохранения напрямую зависит от скорости работы сетевого диска и скорости передачи данных.

Я с вами согласен. Но вопрос не в скорости сохранения по сети, а
1. в том что оно сохраняет не в фоне с выскакиванием прогрессбара(сохранить как) и висит 20 секунд
2. раньше этого не было
3. другие файлы по сети этих проблем не имеют.
У меня есть подозрения, что это может быть как-то связанно с макросами и надстройками, хотя я пробовал отключать. Возможно это связано с разной виндой (один — 7, другой 10) Просто не могу отследить когда все началось.

 

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

#8

13.01.2016 12:12:40

Цитата
antal10 написал: Т.е. создается впечатление что сначала просто сохраняет, а потом еще «сохраняет как»

Предположу, стоит ли в свойствах файла делать копию при сохранении? (иных мыслей нет по данному вопросу)

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

#9

13.01.2016 20:24:24

Цитата
JayBhagavan написал:
Предположу, стоит ли в свойствах файла делать копию при сохранении? (иных мыслей нет по данному вопросу)

А где это посмотреть?

 

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

Сохранить как, Сервис, Общие параметры.

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

Так же вполне возможно, что это настроено на сервере, чтобы было проще управлять версиями файлов, если что-то вдруг засбоит.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

#12

14.01.2016 02:14:47

Цитата
JayBhagavan написал: Сохранить как, Сервис, Общие параметры.

Спасибо, но к сожалению нет. Скрин не прикладываю но там все норм.

Цитата
The_Prist написал: Так же вполне возможно, что это настроено на сервере, чтобы было проще управлять версиями файлов, если что-то вдруг засбоит.

Здесь не совсем понял, где и на каком сервере.
Попробую объяснить немного подробнее. Есть файл находящийся на одном компьютере, если я его открываю на этом компьютере, то все норм. Если я его открываю из другого компьютера по сети(обычная локалка!!!), то вот такая вот бяка получается.

Т.е. за одну операцию получается он сохраняется два раза.
1 раз как обычно(колесо крутится пару сек. прогрессбар в строке состояния экселя тоже) и
2 раз, когда первая операция заканчивается через пару секунд выскакивает это злополучное окно «Сохранить как» и висит 20 секунд и сохраняет в ту же папку по сети(как видно из скрина), что и при первой операции обычного сохранения. Что он там «сохраняет как» непонятно, но копий в той папке не наблюдается.

Делаю вывод: что выполняется двойное сохранение одного файла с одним именем по одному пути(сначала «Сохранить», затем «Сохранить как»). А учитывая то, что операция «Сохранить как» всегда проходила дольше чем обычное сохранение тем более по сети, то отсюда имею то, что имею. Но зачем??? Откуда ему идет эта команда «Сохранить как», я так и не понял, уже всю голову сломал.

Изменено: antal1014.01.2016 12:14:03

 

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

antal10, я бы поэкспериментировал. Например, создал новый файл без поддержки макросов, скопировал в новую книгу все листы из проблемной, сохранил, закрыл эксель, открыл новый файл, сохранил и посмотрел будет ли появляться повторное сохранение. После сохранил бы этот файл с поддержкой макросов или двоичный, допустим, скопировал в него все НЕ событийные макросы, по-одному копировал в него событийные макросы, сохранял, закрывал эксель, открывал и смотрел на его поведение при сохранении. Пока что у меня всё. :)

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

Согласен с JayBhagavan. Сейчас разговор ни о чем. Что у Вас там делают макросы мы не в курсе. С настройками Excel по Вашим словами все в порядке. И сеть тоже не при чем(хотя наблюдается это только если открыть файл с другого ПК по сети). Получается, если верить только Вашим словам — то пора начинать верить в барабашек и иноплянетян :)
 

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

JayBhagavan, The_Prist,вы склоняетесь к тому, что виновниками являются макросы? У меня тоже конечно было подозрение, что дело в них, но макросы одни и те же что на основной машине, что на сетевой, надстройки тоже. И кнопка сохранения в экселе к макросам тоже не имеет никакого отношения. Все событийные макросы в файле только по изменениям на листе, но табличка выскакивает именно после кнопки «Сохранить»  Сейчас попробую сделать как вы сказали, скопирую в новый файл без макросов и надстроек. Но я больше склоняюсь, что это как-то связано с правами пользователей, т.е. к общему доступу к книге.

Изменено: antal1014.01.2016 13:16:12

 

The_Prist

Пользователь

Сообщений: 14182
Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

Вы попробуйте создать новый файл без макросов. Наполните его данными(заполните ячейки диапазона A1:F50000 любым текстом длиной более 50 символов). Сохраните на локальной машине. Потом попробуйте открыть файл с другого ПК и сохранить. И посмотрите — будет ли повторяться ситуация. Точно можно будет сказать дело в файле или в сетевом доступе.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

кнопка цитирования не для ответа [МОДЕРАТОР]

Все вновьсозданные файлы реагируют нормально, т.е. окно не выскакивает. Создал файл без макросов, открыл по сети, полет нормальный. Не могу понять, что с тем файлом, пробовал в нем все отключить, ну это просто беда. Уже все варианты испробовал.

Еще вопрос. Может ли как-то это быть связано с тем, что макросы находятся в файле, а не в личной книге и не связано ли это с надстройками. Ведь на каждом компе в сети надстройки подключены свои. Ну в смысле они одинаковые, но имеют свои пути подключения. Может имеет смысл указать на всех машинах один путь(сетевой) к надстойкам, т.е. тот где лежит файл исходник? Как думаете?

Изменено: antal1016.01.2016 11:21:13

 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

Попробуйте на всех компьютерах разместить надстрйки в одном месте, например C:Program FilesMicrosoft OfficeOffice14Library

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

RAN, Вы имеете в виду на одной из машин? Т.е. на той где лежит файл? Не знаю правильно объяснил или нет. Т.е. на основном компе где лежит файл, путь должен быть C:Program FilesMicrosoft OfficeOffice14Library, а на сетевых компах: \DomCProgram FilesMicrosoft OfficeOffice14Library так что ли? Т.е. ссылка на надстройки должна быть по одному адресу сетевому? Или на каждом компе свой одинаковый путь C:Program FilesMicrosoft OfficeOffice14Library?

Изменено: antal1016.01.2016 18:00:37

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

antal10, сообщение №17. Обратите внимание на замечание.

 

antal10

Пользователь

Сообщений: 459
Регистрация: 01.01.1970

vikttur, извините, учту. Я думал так удобнее человеку читать, на что был ответ.

 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

Последнее.
Но, можете и первое проверить.

Изменено: RAN16.01.2016 18:01:43

 

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

#23

16.01.2016 17:59:55

Удобнее и понятнее. Если цитата, а не целое сообщение. И если нужна.
См. сообщение №19. без цитаты хуже?

MultiSelect Указывает, может быть выбран только один файл или несколько:

  • True — можно будет выбрать более одного файла для обработки(через Shift или Ctrl или простым выделением мышью внутри окна)
  • False — можно будет выбрать только один файл

По умолчанию принимает значение False
Выбора только одного файла:

avFiles = Application.GetOpenFilename _ («Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt», 2, _ «Выбрать текстовые или Excel файлы», , False)

Выбор нескольких файлов:

avFiles = Application.GetOpenFilename _ («Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt», 2, _ «Выбрать текстовые или Excel файлы», , True)

Пример применения диалога Application.GetOpenFilename

Sub ShowGetOpenDialod() Dim avFiles ‘по умолчанию к выбору доступны файлы Excel(xls,xlsx,xlsm,xlsb) avFiles = Application.GetOpenFilename _ («Excel files(*.xls*),*.xls*», 1, «Выбрать Excel файлы», , False) If VarType(avFiles) = vbBoolean Then ‘была нажата кнопка отмены — выход из процедуры Exit Sub End If ‘avFiles — примет тип String MsgBox «Выбран файл: ‘» & avFiles & «‘», vbInformation, «www.excel-vba.ru» End Sub

В данном случае совершенно неважно указан ли выбор только одного файла или нескольких. Может поменяться только способ обработки полученного результата. Если параметр MultiSelect установлен в False, то переменная avFiles примет тип String, т.е. это будет одна строка. Предположим, что была выбрана книга Excel. Тогда открыть её можно будет как обычно это делается при использовании переменной:

Если же параметр MultiSelect установлен в True, то переменная avFiles примет тип Array — массив строк, в котором будут записаны все пути и имена выбранных файлов. Обрабатывать в таком случае следует циклом:

‘avFiles — примет тип Array For Each x In avFiles Workbooks.Open x Next

В приложенном к статье файле приведены две процедуры с использованием этого типа диалога и обработкой файлов с параметром MultiSelect , установленным в True и False.

Диалог выбора файлов FileDialog(msoFileDialogFilePicker)

У этого диалога тоже есть параметры и они очень схожи с таковыми в Application.GetOpenFilename:
Ниже в статье примера кода с применением всех описанных параметров

AllowMultiSelect Указывает, может быть выбран только один файл или несколько:

  • True — можно будет выбрать более одного файла для обработки(через Shift или Ctrl или простым выделением мышью внутри окна)
  • False — можно будет выбрать только один файл
Title Текст заголовка диалогового окна. Если указать «Выбрать текстовые или Excel файлы», то именно этот текст будет в заголовке. Если не указывать, то будет текст по умолчанию(нечто вроде «Открытие документа»)
Filters Перечисляются типы файлов, которые будут отображаться в диалоговом окне выбора. Для добавления типа файла(расширения) необходимо использовать метод Add:
.Filters.Add([Description],[Extensions],[Position])

  • Description — описание типа файлов. Произвольный текст, указывающий тип файлов. Например «Рисунки» или «Файлы Excel».
  • Extensions — расширения файлов. Непосредственно перед расширением обязательно должна стоять звездочка и точка: *.xls . Иначе диалог выдаст ошибку. Для перечисления нескольких расширений используется разделитель в виде точки-с-запятой: «*.xls*;*.xla*» или «*.xls;*.xlsx;*.xlsm» . Звездочка после расширения заменяет любой набор символов или ни одного. Например, при указании «*.xls*» будет возможным выбрать любые файлы, расширение которых начинается на .xls: .xls,.xlsx,.xlsm,.xlsb и т.д. , но нельзя будет выбрать файлы с расширением .xla,.xlam и тем более .doc или .txt . Если необходимо осуществить выбор любого типа файлов, то необходимо просто очистить фильтр и не добавлять никакие типы: .Filters.Clear
  • Position — указывает, каким по счету в списке будет тип файлов. На рисунке ниже первым идет тип «Excel files», а вторым «Text files»:

Тип файлов, который будет показан по умолчанию при вызове диалога определяется свойством FilterIndex диалога FileDialog.
Важный момент: диалог, вызванный в одном сеансе Excel сохраняет добавленные ранее типы файлов. Поэтому перед назначением новых типов необходимо выполнить очистку фильтра:
.Filters.Clear

Каждый новый тип файлов добавляется новым Add:

.Filters.Add «Excel files», «*.xls*;*.xla*», 1 ‘добавляем возможность выбора файлов Excel .Filters.Add «Text files», «*.txt», 2 ‘добавляем возможность выбора текстовых файлов

FilterIndex Назначает тип файлов, который будет выбран по умолчанию из всех перечисленных в коллекции Filters при вызове диалога
InitialFileName Этим параметром можно задать начальную папку, на которой будет открыт диалог:

Если при этом еще добавить имя файла, то в поле диалога Имя файла будет так же отображено это имя:

Я лично не рекомендую указывать имя файла, т.к. после показа диалога этот файл автоматически будет выбран, что не всегда бывает правильным. Но все зависит от задач. Если пользователь не выберет самостоятельно ни одного файла, то ответом диалога будет именно файл с указанным именем(Книга1.xlsx). Если такого файла не окажется в папке, то диалог выдаст предупреждение, что такого файла нет.

InitialView Данный параметр определяет внешний вид и структуру окна диалога. Доступно 9 вариантов:

  • msoFileDialogViewDetails
  • msoFileDialogViewLargeIcons
  • msoFileDialogViewList
  • msoFileDialogViewPreview
  • msoFileDialogViewProperties
  • msoFileDialogViewSmallIcons
  • msoFileDialogViewThumbnail
  • msoFileDialogViewTiles
  • msoFileDialogViewWebView

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

SelectedItems Возвращает коллекцию выбранных файлов. В отличии от Application.GetOpenFilename всегда возвращается массив строк, поэтому можно всегда использовать цикл для открытия файлов, даже если параметр AllowMultiSelect установлен в False:

For Each x In .SelectedItems Workbooks.Open x Next

Так же можно отбирать только отдельные файлы по индексам или организовать цикл иначе:

For lf = 1 to .SelectedItems.Count x = .SelectedItems(lf) Workbooks.Open x Next

Нумерация строк в SelectedItems всегда начинается с 1

Show Пожалуй, самый важный метод в диалоге — отвечает за показ диалога. При этом метод Show возвращает ответ в виде целого числа:

  • -1 — выбор файлов был сделан и нажата кнопка Открыть
  • 0 — была нажата кнопка отмены

Это можно(точнее нужно!) использовать, чтобы не продолжать выполнение кода, если нажата кнопка Отмены:

If .Show = 0 Then Exit Sub ‘была нажата кнопка отмены

Пример вызова диалога выбора файлов:

Sub ShowFileDialog() Dim oFD As FileDialog Dim x, lf As Long ‘назначаем переменной ссылку на экземпляр диалога Set oFD = Application.FileDialog(msoFileDialogFilePicker) With oFD ‘используем короткое обращение к объекту ‘так же можно без oFD ‘With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Title = «Выбрать файлы отчетов» ‘заголовок окна диалога .Filters.Clear ‘очищаем установленные ранее типы файлов .Filters.Add «Excel files», «*.xls*;*.xla*», 1 ‘устанавливаем возможность выбора только файлов Excel .Filters.Add «Text files», «*.txt», 2 ‘добавляем возможность выбора текстовых файлов .FilterIndex = 2 ‘устанавливаем тип файлов по умолчанию — Text files(Текстовые файлы) .InitialFileName = «С:TempКнига1.xlsx» ‘назначаем папку отображения и имя файла по умолчанию .InitialView = msoFileDialogViewDetails ‘вид диалогового окна(доступно 9 вариантов) If .Show = 0 Then Exit Sub ‘показывает диалог ‘цикл по коллекции выбранных в диалоге файлов For lf = 1 To .SelectedItems.Count x = .SelectedItems(lf) ‘считываем полный путь к файлу Workbooks.Open x ‘открытие книги ‘можно также без х ‘Workbooks.Open .SelectedItems(lf) Next End With End Sub

Диалог выбора папки
Диалог выбора папки необходим в случаях, когда файлов в папке много и обработать нужно все эти файлы. Пример такой обработки я уже выкладывал в статье Просмотреть все файлы в папке. Здесь проще всего использовать появившийся в 2002 Excel диалог Application.FileDialog. Его параметры практически такие же, как у Application.FileDialog(msoFileDialogFilePicker) только их меньше доступно для применения:

Title Текст заголовка диалогового окна. Если указать «Выбрать папку с отчетами», то именно этот текст будет в заголовке. Если не указывать, то будет текст по умолчанию(нечто вроде «Открыть папку»)
InitialFileName Этим параметром можно задать начальную папку, на которой будет открыт диалог:
InitialView Данный параметр определяет внешний вид и структуру окна диалога. Доступно 9 вариантов:

  • msoFileDialogViewDetails
  • msoFileDialogViewLargeIcons
  • msoFileDialogViewList
  • msoFileDialogViewPreview
  • msoFileDialogViewProperties
  • msoFileDialogViewSmallIcons
  • msoFileDialogViewThumbnail
  • msoFileDialogViewTiles
  • msoFileDialogViewWebView

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

SelectedItems Возвращает коллекцию с одним элементом, в котором содержится путь к выбранной папке. Нумерация строк в SelectedItems всегда начинается с 1, но т.к. выбор нескольких папок невозможен, то всегда указывается 1: x = .SelectedItems(1)
ButtonName Назначает текст кнопки, которой подтверждается выбор папки. Может содержать не более 51 знака(чего как правило достаточно).
Show Метод, который вызывает показ диалога с выбранными параметрами. Возвращает ответ в виде целого числа:

  • -1 — папка выбрана и нажата кнопка Открыть
  • 0 — была нажата кнопка отмены

Это можно(точнее нужно!) использовать, чтобы не продолжать выполнение кода, если нажата кнопка Отмены:

If .Show = 0 Then Exit Sub ‘была нажата кнопка отмены

Пример вызова диалога выбора папки:

Sub ShowFolderDialog() Dim oFD As FileDialog Dim x, lf As Long ‘назначаем переменной ссылку на экземпляр диалога Set oFD = Application.FileDialog(msoFileDialogFolderPicker) With oFD ‘используем короткое обращение к объекту ‘так же можно без oFD ‘With Application.FileDialog(msoFileDialogFolderPicker) .Title = «Выбрать папку с отчетами» ‘»заголовок окна диалога .ButtonName = «Выбрать папку» .Filters.Clear ‘очищаем установленные ранее типы файлов .InitialFileName = «C:Temp» ‘»назначаем первую папку отображения .InitialView = msoFileDialogViewLargeIcons ‘вид диалогового окна(доступно 9 вариантов) If .Show = 0 Then Exit Sub ‘показывает диалог ‘цикл по коллекции выбранных в диалоге файлов x = .SelectedItems(1) ‘считываем путь к папке MsgBox «Выбрана папка: ‘» & x & «‘», vbInformation, «www.excel-vba.ru» End With End Sub

Диалог выбора папки через Shell
Диалог Application.FileDialog(msoFileDialogFolderPicker) всем хорош и удобен, кроме одного: как я уже упоминал, он стал доступен из VBA только начиная с 2002 Excel. Плюс, описанные выше диалоги не работают в Outlook — он просто лишен хоть какой-либо реализации выбора папок или файлов. Поэтому дополню статью еще одним вариантом показа диалога выбора папки — с помощью объекта Shell. Этот вариант выбора папки будет работать и в Outlook и в любом другом приложении.
Shell.BrowseForFolder([Hwnd], [sTitle], [iOptions], [vRootFolder])

Hwnd Дескриптор окна, к которому будет относится диалог. Как правило указывается 0
sTitle Поясняющий текст, который будет отображен в диалоге. Подобие заголовка окна. Может быть любым текстом, например «Выбрать папку с отчетами»
iOptions Дополнительные параметры для диалога. Рекомендуется использовать 0. Но можно попробовать и пару других вариантов. Например, если указать 20, то в диалоговом окне появится дополнительное текстовое поле, в котором будет отображено имя выбранной папки.
vRootFolder Аналогично InitialFileName в рассмотренных выше диалогах. Задает начальную папку, на которой диалог будет открыт после запуска.


Пример вызова диалога выбора папки через Shell:

Sub GetFolderDialog_Shell() On Error Resume Next Dim objShellApp As Object, objFolder As Object, ulFlags Dim x As String Set objShellApp = CreateObject(«Shell.Application») ‘ulFlags — числовой код, определяющий вид отображаемого окна и некоторые параметры ‘ ulFlags = 0 — наиболее часто применяемый. Лучше использовать всегда именно 0 ‘ ulFlags = 1 — не отображать Корзину ‘ ulFlags = 2 — не включать сетевые папки ‘ ulFlags = 20 — добавляется тестовое поле с отображением имени выбранной папки ‘ ulFlags = 16 — отображать EditBox для ввода полного пути с клавиатуры ‘ ulFlags = 16384 — можно так же выбирать файлы. ‘Некоторые константы можно комбинировать. Например если указать 1 + 16384 — то можно будет выбирать файлы ulFlags = 0 Set objFolder = objShellApp.BrowseForFolder(0, «Выбрать папку с отчетами», ulFlags, «C:Temp»)’» x = objFolder.Self.Path ‘записываем в переменную путь к папке If Err.Number <> 0 Then MsgBox «Папка не выбрана!», vbInformation, «www.excel-vba.ru» Else MsgBox «Выбрана папка: ‘» & x & «‘», vbInformation, «www.excel-vba.ru» End If End Sub

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

Tips_Macro_GetOpenFileFolder.xls (100,0 KiB, 3 729 скачиваний)

Диалог сохранения файла SaveAs
Еще один вид диалогового окна — запрос имени и места сохранения файла.
Параметры:
Application.GetSaveAsFilename([InitialFileName], [FileFilter], [FilterIndex], [Title], [ButtonText])
Универсальный диалог, работающий во всех версиях Excel, начиная с 2000

InitialFileName Можно указать путь и имя файла, которые будут использованы в качестве шаблона для сохранения. По умолчанию в диалоге отображается папка, которая была использована в последний раз в текущем сеансе Excel. Если диалог вызывается впервые, то будет показана для сохранения файлов по умолчанию(задается из самого Excel: Файл (File)Параметры (Options)Сохранение (Save)Расположение локальных файлов по умолчанию (Default local file location) ).
Показываем диалог со стартовой папкой на той книге, в которой сам макрос, без указания имени сохраняемой книги:

Показываем диалог со стартовой папкой на той книге, в которой сам макрос и именем сохраняемой книги «SaveAs.xlsm» :

sToSavePath = Application.GetSaveAsFilename(InitialFileName:=»SaveAs.xlsm», FileFilter:=»Excel files (*.xlsm), *.xlsm»)

Здесь следует обратить внимание на один важный момент: если необходимо помимо стартовой папки указать еще и имя файла, то в обязательном порядке надо указывать так же аргумент FileFilter . Если его не указывать, то InitialFileName просто откроет указанную папку, т.к. не поймет файлы какого типа надо отображать. Либо вместо «SaveAs.xlsm» надо будет указывать «SaveAs.*», что я лично настоятельно не рекомендую делать.
Несмотря на возможность указать имя файла его можно изменить прямо в диалоговом окне, что тоже порой правильнее. Например, чтобы убедиться в том, что имя файла указано пользователем.

FileFilter Указываются типы файлов, которые будут отображаться в диалоговом окне выбора. Должен совпадать с тем типом, с которым собираемся сохранять файл. Например, если указать «Excel files(*.xls*),*.xls*», то возможно будет выбрать только тип файлов Excel(с расширением, начинающимся на .xls — .xls, .xlsx, .xlsb, .xlsm и т.д.). Если указать «Text files(*.txt),*.txt», то только текстовые файлы с расширением .txt. Так же можно указать более одного типа расширений: «Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt». По умолчанию тип файлов в диалоговом окне будет принадлежать первому указанному типу файлов(*.xls*). Но можно указать любой из перечисленных типов при помощи аргумента FilterIndex . Так же можно указать выбор любых типов файлов: «All files(*.*),*.*»
FilterIndex Если аргументом FileFilter указано более одного типа файлов(расширений), то этот аргумент указывает какой именно тип использовать. Например, следующая строка по умолчанию назначает выбор и сохранение файла в текстовый:

avFiles = Application.GetSaveAsFilename _ (InitialFileName:=ThisWorkbook.Path, FileFilter:=»Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt», FilterIndex:=2)

Title Текст заголовка диалогового окна. Если указать «Выбрать текстовые или Excel файлы», то именно этот текст будет в заголовке. Если не указывать, то будет текст по умолчанию(нечто вроде «Сохранение документа»)
ButtonText Данный аргумент доступен только для ПК под управлением Macintosh(MAC). Назначает текст для кнопки диалогового окна Сохранить. Для владельцев Windows этот текст всегда будет «Сохранить»

Что еще важно знать: сам по себе вызов диалога GetSaveAsFilename ничего не сохраняет — он только создает путь для сохраняемого файла. Сохранять придется принудительно после выбора места и имени.
Пример применения диалога Application.GetSaveAsFilename

Sub ShowGetSaveAsDialod() Dim sToSavePath sToSavePath = Application.GetSaveAsFilename( _ InitialFileName:=ThisWorkbook.Path, _ FileFilter:=»Excel files(*.xls*),*.xls*,Text files(*.txt),*.txt», _ FilterIndex:=2, _ Title:=»Сохранить файл») ‘если нажали Отмена — завершаем процедуру ничего не сохраняя If VarType(sToSavePath) = vbBoolean Then Exit Sub End If ‘непосредственно сохранение файла ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=ThisWorkbook.FileFormat End Sub

Здесь тоже есть нюанс — метод SaveAs имеет два важных аргумента:
1. Filename — путь и имя сохраняемого файла. Здесь должно быть все понятно. Указываем то, что выбрали в диалоге.
2. FileFormat — формат сохраняемого файла. При этом не текстовое представление(как в диалоге «xls» или «txt»), а одна из предустановленных констант формата файла. Вот основные константы:

Константа Excel Числовая константа Расшифровка
xlOpenXMLWorkbookMacroEnabled 51 xlsm — книга Excel
xlOpenXMLWorkbookMacroEnabled 52 xlsm — книга Excel с поддержкой макросов
xlExcel12 50 xlsb — двоичная книга Excel (с поддержкой макросов)
xlOpenXMLAddIn 55 xlam — надстройка Excel
xlOpenXMLTemplate 54 xltx — шаблон Excel
xlOpenXMLTemplateMacroEnabled 53 xltm — шаблон Excel с поддержкой макросов
xlExcel8 56 xls — книга Excel(97 — 2003)
xlAddIn 18 xla — надстройка Excel(97 — 2003)
xlTemplate 17 xlt — шаблон Excel(97 — 2003)
xlCurrentPlatformText -4158 txt — текстовый файл с разделителями табуляции
xlUnicodeText 42 txt — текстовый файл в кодировке Юникод
xlCSV 6 csv — CSV(разделитель запятая)
xlCSVMSDOS 24 csv — CSV(MS — DOS)
XlFileFormat 62 csv — CSV UTF-8(разделитель запятая)
xlTypePDF 0 pdf — файл в формате PDF

Пример использования констант в диалогах Application.GetSaveAsFilename
Сохраняем файл с форматом xlsm — файл с поддержкой макросов. Для этого ищем в таблице выше расширение xlsm и берем либо константу Excel либо числовую константу:

Sub ShowGetSaveAsDialod() Dim sToSavePath sToSavePath = Application.GetSaveAsFilename( _ InitialFileName:=ThisWorkbook.Path & «Report.xlsm», _ FileFilter:=»Excel files(*.xlsm),*.xlsm») ‘если нажали Отмена — завершаем процедуру ничего не сохраняя If VarType(sToSavePath) = vbBoolean Then Exit Sub End If ‘непосредственно сохранение файла ‘используем встроенную константу Excel ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled ‘используем числовую константу ‘ThisWorkbook.SaveAs Filename:=sToSavePath, FileFormat:=52 End Sub

Любой метод: либо числовая константа, либо встроенная работают одинаково. Вопрос лишь в том, что лично для Вас будет удобнее и нагляднее.

Статья помогла? Поделись ссылкой с друзьями!

Источник

Читайте также:  Вывод расчетной формулы для excel

Adblock
detector

RRS feed

  • Remove From My Forums
  • Вопрос

  • При сохранении файлов Word, Excel открывается окно «Сохранить Как» и после этого офисные программы зависают и не реагируют на любы действия.

Ответы

  • использую только Word, excel, outlook, а также d  —  Visio, InternetExplorer,

    Что показывает в этот момент диспечер незная, посмотрю, но ресурсов у меня хватает.

    Плата ASUS P5K3Delux, процессор  Core 2 Duo 8200, памяти — 6 гигов

    • Помечено в качестве ответа
      Igor1970
      7 апреля 2010 г. 8:19

Все ответы

  • Какая версия Office (XP, 2003, 2007, 2010)? Какое антивирусное ПО используется?


    MCSA

  • Также укажите, откуда открываются файлы для сохранения (локальные диски, сетевые диски, внешние носители)?

  • Office 2007, Касперский Интернет секьюрити 2010. Диски только локальные. В том то и дело файлы, что файлы с дисков открываются, редактируются и сохраняются, а вот новые в офисе не создаются. Т.е открываем офис нажимаем создать документ, пишем текст, жмем кнопку сохранить, далее появляется окно «Сохранить как» и все на этом офис зависает, в вверху окна появляется надпись ( не отвечает) и появляется новое окно где предлагается, перезапусть, выйти, ожидать отклика ппрограммы.

  • А что Диспетчер задач показывает в момент зависания? Какая программа (кроме, собственно Word, Excel и других, входящей в состав Office)  «отъедает» больше всего ресурсов процессорного времени и памяти?


    MCSA

  • использую только Word, excel, outlook, а также d  —  Visio, InternetExplorer,

    Что показывает в этот момент диспечер незная, посмотрю, но ресурсов у меня хватает.

    Плата ASUS P5K3Delux, процессор  Core 2 Duo 8200, памяти — 6 гигов

    • Помечено в качестве ответа
      Igor1970
      7 апреля 2010 г. 8:19

  • Вопрос закрыт?


    Сазонов Илья http://www.itcommunity.ru/blogs/sie-wl/

  • Вопрос не закрыт, что делать понять не могу.Причем у учетной записи права администратора. Кстати на компьютере есть еще две учетные записи и там проблема была решена путем назначения нового пути сохрания вместо стандартных — Диск С — Пользователь — Докум 

  • Создал новую учетную запись с правами администратор. Перегрузил компьютер в безопасном режиме. Запустил Word появилось оно с просбой провести активацию по интернету или телефону. При это все функции Word были заблокированы. Пергрузил компьютер и зашел в безопасном режиме с поддержкой интернета.

    Word запустился, окно об активации не откылось, активация произошла автоматичкски. При вызове команды Сохранить как или Открыть вообще ничего не происходит. Диалоговые окна не появляются.

     Опять перезапустил компьтер в нормальном режиме зашел в новую учетную запись Word  сохраняет и открывает, т.е работает как надо. Но есть подозрения , что через какое-то время, произойдет тоже самое, что произошло с более старой учетной записью, кода в день создания все работало, затем через время проблема вернулась.

    Для справки: Word 2007 (12.0.6514.5000) SP2 MSO (12.0.6521.5000)

    Точно такие же проблемы как и Word и в Visio, и в PowerPoint, и в Эксплорере такая же фигня — все работает кроме сохраниения. А вот Мозила работает без всяких проблем.

  • По шагам:

    1) Выполните установку Office в режиме восстановления

    2) Проверьте компьютер на вирусы (NOD, AVAST, Symantec — не котируются, воспользуйтесь KAspersky либо Microsoft Security Essentials)

    3) Если проблем не исчезнет, выполните откат системы на дату. предшествующую моменту появления проблемы

    4) О результате действий отпишитесь.


    Все вышесказанное является моим личным мнением, не имеющим отношения к корпорации Майкрософт.
    Доклады на Techdays: http://www.techdays.ru/speaker/Vinokurov_YUrij.html

  • Normal.dot убивать пробовали?

  • Все надоело, решил проблему координально — переустановил систему. Пока все работет. Надолго ли? поживем — увидим?

  • Была та же проблема. Просто удалил из папки, куда word сохраняет файлы по умолчанию, мусор — а именно временные файлы с ~. И все заработало как часы

  • Переустановите OneDrive. Удалите из стандартных папок сохранения временные файлы. Посмотреть список папок можно зайдя например в Word и нажать на «сохранить».

Содержание:

  1. Автосохранение против автовосстановления
  2. Включите автосохранение в Excel в диалоговом окне «Параметры».
  3. Добавление автосохранения в QAT (для Office 365)
  4. Проблема с автосохранением («Сохранить как» или «Сохранить копию»)
  5. Использование сторонних инструментов, таких как DropBox или Google Drive
  6. Автоматически сохранять файл перед закрытием с помощью VBA

Несмотря на то, что Excel постоянно улучшается с каждой новой версией, бывают случаи, когда вы можете обнаружить, что время от времени он дает сбой (особенно если вы работаете с большим набором данных).

А иногда это может быть фактор за пределами Excel — например, сбой питания или зависание вашей системы из-за проблемы, отличной от Excel.

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

Если автосохранение включено, Excel будет сохранять вашу работу через регулярные промежутки времени, чтобы вы не потеряли много работы (максимум несколько минут работы могут быть потеряны).

В этом уроке я покажу вам, как включить автосохранение в Excel, и все важные вещи, которые вам нужно знать об этом.

Примечание: Автосохранение — это новая функция Office365, позволяющая сохранять файлы в реальном времени в OneDrive или SharePoint. Если вы используете предыдущие версии (Excel 2010/2013/2016/2019), у вас есть функция «Сохранить данные автосохранения», которая работает не в режиме реального времени, а сохраняет вашу работу через определенные промежутки времени.

Автосохранение против автовосстановления

Автосохранение — новая функция в Excel Office 365, в то время как автовосстановление было и в предыдущих версиях.

Автосохранение позволяет сохранять вашу работу в режиме реального времени при сохранении файлов Excel в OneDrive или SharePoint.

Напротив, «Сохранить информацию автосохранения» — это опция, которая автоматически сохраняет вашу работу каждые 10 минут (или в любой другой период времени, который вы укажете). Если этот параметр включен, он будет хранить временную копию вашей работы и сохранять ее каждые 10 минут.

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

В этом руководстве я рассмотрю обе эти функции.

Включите автосохранение в Excel в диалоговом окне «Параметры».

Вы можете включить автосохранение, а также сохранить информацию для автоматического восстановления (т. Е. Автоматически сохранять файлы через определенный интервал времени) в Excel в диалоговом окне «Параметры». После этого он будет включен для всех книг, с которыми вы работаете в этой системе.

Помните, что автосохранение доступно только для пользователей Office365. Если у вас нет O365, вы можете использовать только автосохранение.

Ниже приведены инструкции по включению автосохранения в Excel:

  1. Перейдите на вкладку Файл.
  2. Нажмите на Параметры
  3. В диалоговом окне «Параметры Excel» щелкните слева параметр «Сохранить».
  4. Установите флажок «Сохранять информацию автосохранения каждые». По умолчанию это значение составляет 10 минут, но вы можете выбрать меньшее или большее значение, если хотите.
  5. Установите флажок «Автосохранение файлов OneDrive и SharePoint Online по умолчанию в Excel». Этот вариант работает только для Office 365 и сохраняет вашу работу в режиме реального времени (каждые несколько секунд).
  6. Нажмите ОК

Вышеупомянутые шаги обеспечат автоматическое сохранение вашей работы через каждые 10 минут.

Обратите внимание, что для работы функции «Автосохранение файлов OneDrive и SharePoint Online по умолчанию в Excel» ваши файлы должны быть в формате последней версии (например, XLSX, а не XLS).

Другие полезные опции, которые вы можете использовать:

Когда автосохранение включено (с файлами, сохраненными на Onedrive или SharePoint), вы не увидите запроса на сохранение несохраненных изменений при закрытии файла (поскольку эти изменения сохраняются каждые несколько секунд).

Кроме того, если вы добавляете код VB (макрос) в файл, автосохранение остановится и отобразит запрос на сохранение этого файла в формате fike с поддержкой макросов (формат .xlsm).

Автосохранение теперь позволяет пользователям Excel обмениваться файлами и вносить изменения в режиме реального времени. Кроме того, вы можете просмотреть историю версий и вернуться к любой предыдущей версии, если хотите. Когда вы открываете старый файл с помощью истории версий, он будет открыт только для чтения, и вы можете сохранить его под новым именем, если хотите.

Добавление автосохранения в QAT (для Office 365)

Если вы используете OneDrive или SharePoint, вы также можете добавить параметр автосохранения на панель быстрого доступа (доступна только в Office 365).

Это позволяет включить автосохранение (в SharePoint или OneDrive) одним щелчком мыши (это кнопка переключения).

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

  1. Щелкните значок Настроить панель быстрого доступа.
  2. Нажмите на опцию «Автоматическое сохранение».

Если вы не видите параметр «Автоматически сохранять» в раскрывающемся списке, нажмите «Дополнительные команды» и используйте диалоговое окно «Параметры Excel», чтобы добавить параметр «Автосохранение» в QAT.

Проблема с автосохранением («Сохранить как» или «Сохранить копию»)

Когда вы включите автосохранение и сохраните файл в OneDrive или SharePoint, вы заметите, что больше не видите параметр «Сохранить как». Вместо этого вы видите опцию «Сохранить копию» (подробнее об этом здесь).

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

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

Вот почему теперь у вас есть «Сохрани копию‘Вариант, который вы можете использовать для создания копии, а затем внесения изменений.

Если ваших файлов Excel нет в OneDrive или SharePoint, вы все равно увидите параметр «Сохранить как».

Использование сторонних инструментов, таких как DropBox или Google Drive

Вы также можете получить параметры истории версий для файлов Excel с такими вариантами хранения, как Dropbox и Google Drive.

Эти инструменты просто проверяют, были ли какие-либо изменения в файле, и сохраняют предыдущую версию. Затем вы можете вернуться к этим версиям, если хотите.

Одним из преимуществ использования этих сторонних инструментов является то, что вы можете легко сотрудничать с людьми, которые не используют OneDrive.

Поскольку Google Drive и Dropbox обычно предпочитают OneDrive, это помогает, когда вы работаете с командами / клиентами, которые используют эти возможности.

Единственное предостережение — убедитесь, что вы не храните конфиденциальные данные в этих облачных хранилищах.

Автоматически сохранять файл перед закрытием с помощью VBA

Автосохранение — замечательная функция, которая делает работу с Excel без стресса, зная, что данные не будут потеряны.

Если у вас нет Office 365 (что означает, что у вас также нет функции автосохранения), вам придется полагаться на функцию автоматического восстановления Excel.

Другой вариант, который вы можете использовать, — это наличие простого кода VBA, который гарантирует, что ваш файл будет сохранен, прежде чем вы его закроете. Это гарантирует, что вы не потеряете свою работу, потому что вы закрыли файл перед его сохранением.

Примечание. Это имеет смысл только в том случае, если вы не используете Office 365 с OneDrive или SharePoint. Если да, вы всегда можете вернуться к предыдущим версиям, и ваши файлы в любом случае сохранятся автоматически.

Ниже приведены шаги с использованием VBA для сохранения файла перед закрытием книги:

  1. Откройте книгу, в которой вы хотите разрешить сохранение этого кода VBA перед закрытием.
  2. Удерживая клавишу ALT, нажмите клавишу F11 (или Command + Option + F11 в Mac). Откроется редактор VB.
  3. Дважды щелкните объект ThisWorkbook (для файла, в который вы хотите добавить этот код) в Project Explorer.
  4. Скопируйте и вставьте приведенный ниже код в окно кода ThisWorkbook:
    Private Sub Workbook_BeforeClose (Отменить как логическое) ThisWorkbook.Save End Sub
  5. Закройте редактор VB

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

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

Если вы не хотите перезаписывать существующий файл, вы также можете изменить код, чтобы он сохранял файл с отметкой времени. Таким образом, ваша работа не будет потеряна, и вы также сможете вернуться к предыдущей версии.

Ниже приведен код VBA, который сохранит файл с датой и отметкой времени в имени файла:
Private Sub Workbook_BeforeClose (Отменить как логическое значение) wbname = ThisWorkbook.Name timestamp = Format (Теперь, "ддмммгг-ччммсс") ThisWorkbook.SaveAs отметка времени и имя_безопасности End Sub
Это позволит сохранить новый файл с отметкой времени в имени в том же месте, где был сохранен старый файл. Если вы хотите, чтобы файл был сохранен в определенной папке, вы можете указать это место в коде.

Это все, что вам следует знать о включении автосохранения в Excel и его эффективном использовании. И если вы не используете Office 365 и, следовательно, у вас нет автосохранения, вы все равно можете настроить параметры автосохранения и восстановить любые несохраненные файлы. Кроме того, можно использовать код VBA, чтобы файлы автоматически сохранялись в виде копии при ее закрытии.

Надеюсь, вы нашли этот урок полезным!

Понравилась статья? Поделить с друзьями:
  • Окно предпросмотра в excel
  • Окно диалога excel это
  • Окно предварительного просмотра word
  • Окно выбора параметров страницы в microsoft word
  • Окно предварительного просмотра excel