Сохранить все открытые книги excel

На чтение 8 мин. Просмотров 6.9k.

Итог: Изучите несколько трюков и советов, чтобы сохранить и закрыть все открытые книги Excel.

Уровень мастерства: Начинающий

3 Tips to Save and Close All Files2

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

Содержание

  1. Совет № 1: Shift + кнопка закрытия окна
  2. Совет № 2: добавьте кнопку «Закрыть все» на панель быстрого доступа
  3. Совет № 3: Закройте все открытые книги с помощью макроса
  4. У вас есть свои советы по сохранению и закрытию файлов?

Совет № 1: Shift + кнопка закрытия окна

Самый
быстрый способ закрыть все открытые книги — это удерживать клавишу Shift,
нажимая кнопку «Закрыть окно». Кнопка «Закрыть окно» — это «х» в правом верхнем
углу окна приложения

Close All Excel Workooks Shortcut Shift Key Close Button

Если все открытые книги были сохранены, все они будут
закрыты.

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

Excel Warning Want to Save Changes Before Closing File Window Save All

Окно также содержит кнопку Сохранить все. Вы можете нажать эту кнопку, чтобы сохранить все несохраненные книги за один шаг.

Нажатие на кнопку «Отмена» отменит всю операцию, а все еще открытые книги останутся открытыми.

Но что, если мы не хотим сохранить все или некоторые из открытых рабочих книг? Мы вернемся к этому в совет № 3.

Совет № 2: добавьте кнопку «Закрыть все» на панель быстрого доступа

Мы также можем добавить кнопку «Закрыть все» на панель
быстрого доступа (QAT), чтобы закрыть все открытые книги. Это делает то же
самое, что и сочетание клавиш Shift + Close Window.

Excel Close All Button Quick Access Toolbar

Преимущество здесь в том, что мы можем использовать сочетание клавиш для нажатия кнопки. Доступ к кнопкам QAT можно получить с помощью сочетания клавиш, нажав клавишу Alt и номер, назначенный кнопке.

QAT Keyboard Shortcut to Close All Excel Files

Чтобы добавить кнопку «Закрыть все» в QAT, откройте окно параметров Excel («Файл»> «Параметры») и следуйте инструкциям на изображении ниже.

Add Close All But to Quick Access Toolbar in Excel Options

После нажатия кнопки «Закрыть все» нам будет предложено то же окно, как описано в совете № 1.

Бонусный совет: мы также можем использовать сочетание клавиш Ctrl + W, чтобы закрыть одну книгу. Я упомянул этот совет в своем посте по 17 ярлыкам Excel на 2017 год.

Press Ctrl W to Close Last Excel Workbook and Leave Application Open

Совет № 3: Закройте все открытые книги с помощью макроса

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

Макрос для закрытия всех книг без сохранения

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

Sub Close_All_Files_No_Save()
' Закройте все открытые книги и не сохраняйте

Dim wb As Workbook

  ' Просмотрите каждую рабочую книгу
  For Each wb In Application.Workbooks
    
    ' Предотвратить рабочую книгу, которая содержит
    ' код от закрытия
    If wb.Name <> ThisWorkbook.Name Then
      
      ' Закройте книгу и не сохраняйте изменения
      wb.Close SaveChanges:=False
    
    End If
  Next wb

End Sub

Как работает этот макрос?

Приведенный выше макрос просматривает все открытые книги на компьютере с помощью цикла For Next Loop. Он использует оператор If, чтобы проверить, является ли файл в цикле (wb.Name) НЕ (<>) файлом, который содержит код ThisWorkbook.Name.

Затем он использует метод Workbooks.Close (страница справки MSDN), чтобы закрыть книгу. Метод Close имеет необязательный параметр для SaveChanges. Мы можем установить значение True, чтобы сохранить изменения, и False, чтобы закрыть без сохранения.

Примечание. Этот макрос следует запускать только в том случае, если вы уверены, что не хотите сохранять изменения ни в одном из открытых файлов. Его нельзя отменить. Возможно, вы также захотите добавить окно сообщения Да / Нет, чтобы предупредить пользователя перед запуском этого макроса.

Макрос для сохранения всех, кроме новых несохраненных книг (блокнот)

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

Macro to Save and Close All Files Except New Unsaved Files

Файлы — блокноты никогда не сохранялись, поэтому они еще не имеют расширения. Они называются: Book1, Book2, Book2 и т.д. Обратите внимание, что на снимке экрана отсутствует расширение файла (.xlsx, .xlsm).

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

Sub Save_and_Close_All_Files_Except_ScratchPads()
' Закройте все открытые книги, кроме новых несохраненных файлов

Dim wb As Workbook

  ' Просмотрите каждую рабочую книгу
  For Each wb In Application.Workbooks
    
    ' Предотвратить рабочую книгу, которая содержит
    ' код от закрытия
    If wb.Name <> ThisWorkbook.Name Then
      
      ' Проверьте, имеет ли имя файла расширение
      If InStr(Right(wb.Name, 5), ".xls") > 0 Then
        wb.Close SaveChanges:=True
      Else
        ' Не сохраняйте изменения, если это блокнот.
        wb.Close SaveChanges:=False
      End If
    
    End If
  Next wb

End Sub

Как работает этот макрос?

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

Функция Right используется для возврата 5 символов в конце
имени файла. Если wb — это существующий файл, который уже был сохранен, то
Right (wb.Name, 5) вернет «.xlsx» или «.xlsm».

Функция Instr (страница справки MSDN) используется для поиска строки в строке. Возвращает начальный номер строки. Таким образом, если Instr находит «.xls» в пределах «.xlsx» или «.xlsm», он возвращает 1. В противном случае он возвращает 0.

Оператор If проверяет, является ли возвращаемое значение из
Instr больше 0, и сохраняет изменения при закрытии книги. В противном случае
изменения не сохраняются для книг, которые НЕ содержат расширения.

Макрос для сохранения и закрытия всех книг и автоматического именования файлов

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

Save and Close All Files and Auto Name New Files

Следующий макрос сохранит и закроет ВСЕ файлы и автоматически назовет новые файлы, которые не были сохранены. Он помещает все новые файлы (блокнот) в указанную вами папку.

Unsaved Files Save to a Folder and Automatically Named

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

Sub Save_and_Close_All_Files()
' Закройте все открытые книги, кроме новых несохраненных файлов

Dim wb As Workbook
Dim sPath As String

  ' Путь, где будут сохранены новые несохраненные файлы.
  ' Измените это на папку на вашем компьютере. Конец с обратной косой чертой 
  sPath = "C:UsersusernameDocumentsExcel CampusScratch Pads"

  ' Просмотрите каждую рабочую книгу
  For Each wb In Application.Workbooks
    
    ' Предотвратить рабочую книгу, которая содержит
    ' код от закрытия
    If wb.Name <> ThisWorkbook.Name Then
      
      ' Проверьте, имеет ли имя файла расширение
      If InStr(Right(wb.Name, 5), ".xls") > 0 Then
        wb.Close SaveChanges:=True
      Else
        ' Сохранить блокноты в папке
        wb.Close SaveChanges:=True, _
            Filename:=sPath & wb.Name & Format(Now, " yyyy-mm-dd-hhmm")
      End If
    
    End If
  Next wb

End Sub

Как работает этот макрос?

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

Чтобы использовать этот макрос, вам нужно изменить
переменную sPath на папку на вашем компьютере. Обязательно заканчивайте строку
пути к файлу обратной косой чертой.

У метода Workbooks.Close есть еще один необязательный
параметр (Filename), который позволяет нам указать имя файла, в котором мы
хотим сохранить файл, если файл еще не был сохранен.

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

Значение параметра Filename объединяет строку для полного
пути к файлу. Он также изменяет текущую дату и время до конца имени файла,
используя функции «Формат» и «Сейчас». Функция Format в VBA аналогична функции
TEXT в Excel и позволяет нам указать числовой формат. Функция «Сейчас»
возвращает текущую дату и время на компьютере пользователя.

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

У вас есть свои советы по сохранению и закрытию файлов?

Я надеюсь, что эти советы и макросы помогут вам закончить день немного быстрее. Есть ли у вас какие-либо другие советы по закрытию файлов? Пожалуйста, оставьте комментарий ниже с любыми предложениями или вопросами. Спасибо!

Как сохранить сразу все открытые файлы / книги в Excel?

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

Сохраните все открытые файлы / книги сразу с кодом VBA в Excel
Сохраняйте сразу все открытые файлы / книги с помощью вкладки Office


Сохраните все открытые файлы / книги сразу с кодом VBA в Excel

С помощью приведенного ниже кода VBA вы можете сохранить все открытые файлы Excel одновременно. Пожалуйста, сделайте следующее.

1. Нажмите другой + F11 одновременно открыть Приложение Microsoft Visual Basic окно.

2. В окне приложения Microsoft Visual Basic щелкните Вставить > Модули. Затем скопируйте и вставьте ниже код VBA в Модули окно.

Код VBA: сохранить все открытые файлы / книги сразу

Sub SaveAll()
	Dim xWb As Workbook
	For Each xWb In Application.Workbooks
		If Not xWb.ReadOnly And Windows(xWb.Name).Visible Then
			xWb.Save
		End If
	Next
End Sub

3. Нажмите F5 ключ для запуска кода, тогда все открытые книги сразу сохраняются автоматически.


Сохраняйте сразу все открытые файлы / книги с помощью вкладки Office

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

Office Tab: перейти к бесплатной пробной версии Office Tab в 30 дней.

После установки Office Tab, все открытые книги отображаются в одном окне с вкладками. Смотрите скриншот:

Чтобы сохранить все открытые книги, щелкните вкладку правой кнопкой мыши, а затем щелкните Сохраните все из контекстного меню. Смотрите скриншот:

Тогда все открытые книги сохраняются сразу.

Если эта утилита вам пригодится, вы можете скачайте и попробуйте бесплатную пробную версию прямо сейчас!


Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

офисный дно

Комментарии (0)


Оценок пока нет. Оцените первым!

MulTEx »

9 Июль 2016              3925 просмотров

Сохранить все

Данная функция является частью надстройки MulTEx


Вызов команды:
MulTEx -группа Книги/ЛистыКнигиСохранить все


Команда сохраняет все открытые в текущем сеансе книги одним нажатием.

Для чего это нужно?

Стандартно все открытые книги сохранить нет возможности. Возможно лишь закрыть все книги с сохранением (для этого необходимо нажать кнопку закрытия приложения с зажатой клавишей Shift и при запросе на сохранение выбрать Сохранить все (Save All)). Но часто закрывать книги нет необходимости — требуется только сохранять. Например, когда одновременно приходится работать с несколькими открытыми отчетами, которые взаимосвязаны. И в таких случаях стандартно приходится переключаться отдельно на каждую книгу и жать Ctrl+S или иконку на панели.
С командой Сохранить все такой проблемы больше не будет — достаточно просто перейти в меню MulTEx -группа Книги/ЛистыКниги и нажать Сохранить все. Все открытые книги будут сохранены.
Следует учитывать, что новые книги (которые еще не были сохранены на компьютер) будут сохраняться в папку по умолчанию (как правило это Мои Документы (My Documents)).

Примечание: в некоторых случаях книги открываются таким образом, что каждая книга принадлежит отдельному сеансу(процессу). В таком случае данная команда не сможет сохранить все книги и сохранить только те, которые относятся к тому процессу, из которого запущена команда. Проверить сколько процессов Excel запущено можно нажав Cltr+Alt+Delete -Запустить диспетчер задач и в появившемся окне перейти на вкладку Процессы. Если в списке более одного процесса с именем EXCEL.EXE — значит запущено несколько процессов.

 

Есть такой софт Гранд-смета, он делает экспорт смет в формат Excel. Экспорт может быть пакетным, то есть несколько смет одновременно экспортируются каждая в свой отдельный файл Excel. При этом экспорт идет не как сохранение в файл на диск, а открывается Excel и в нем формируется документ-таблица…и остается висеть открытым! при пакетном экспорте из Гранд-сметы получается куча открытых документов Excel, каждый из которых нужно руками сохранить на диск.

Вопрос: есть ли способ (внутри самой Excel, сторонняя утилита, как угодно) одновременно сохранить все открытые и не сохраненные документы на диск? Спасибо заранее

 

The_Prist

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

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

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

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

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

 

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

 

Казанский

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

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

#4

26.02.2016 11:41:52

Цитата
kompilainenn написал:
несколько смет одновременно экспортируются каждая в свой отдельный файл Excel

Надо еще понять, каждая смета создается в отдельном экземпляре приложения Excel, или все в одном. Посмотрите Вид — Перейти в другое окно или в диспетчере задач.

 

Михаил С.

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

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

#5

26.02.2016 11:44:44

Цитата
Казанский написал:
Надо еще понять, каждая смета создается в отдельном экземпляре приложения Excel, или все в одном.

имхо. это зависит от настроек системы.

 

kompilainenn

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

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

#6

26.02.2016 11:53:42

Цитата
Казанский написал:
Надо еще понять, каждая смета создается в отдельном экземпляре приложения Excel, или все в одном. Посмотрите Вид — Перейти в другое окно или в диспетчере задач.

да как обычно, открыты несколько документов Эксель.

Прикрепленные файлы

  • Excel несколько документов.png.png (9.74 КБ)

 

bedvit

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

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

Виталий

#7

26.02.2016 12:06:40

Сохранить все открытые (не скрытые) книги (в одной сессии) в папку C:1. При условии, что они были выгружены/созданы и еще не были сохранены!

Код
Sub Сохранить()
For Each AW In Application.Windows
If AW.Visible Then Workbooks(AW.Caption).SaveAs Filename:="c:1" + AW.Caption + ".xlsx", FileFormat:=xlOpenXMLWorkbook
Next AW
End Sub

Изменено: bedvit26.02.2016 12:09:25

«Бритва Оккама» или «Принцип Калашникова»?

 

JayBhagavan

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

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

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

#8

26.02.2016 12:08:35

Скрытый текст

Что будете делать, если файл таким именем в указанной папке существует?

Изменено: JayBhagavan26.02.2016 14:12:14

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

 

bedvit

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

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

Виталий

JayBhagavan, а какой будет wb.Name, если файл выгружен и не сохранен? (по условию задачи)

«Бритва Оккама» или «Принцип Калашникова»?

 

JayBhagavan

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

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

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

bedvit, а проверить дэбаггером. :)

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

 

bedvit

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

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

Виталий

JayBhagavan, создайте новую книгу и не сохраняя попробуйте посмотреть wb.Name, у меня выдает ошибку.

«Бритва Оккама» или «Принцип Калашникова»?

 

JayBhagavan

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

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

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

bedvit, так и делал. У меня ошибку не выдаёт.

Изменено: JayBhagavan26.02.2016 12:25:22
(+ скрин)

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

 

bedvit

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

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

Виталий

JayBhagavan, да так и есть, мы говорим о разном, я о Application.Windows, вы о Workbooks. Вопрос снимаю). Но в таком случае будут перебираться все книги, в том числе скрытые (в т.ч. книга личных макросов)

«Бритва Оккама» или «Принцип Калашникова»?

 

JayBhagavan

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

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

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

#14

26.02.2016 12:29:59

bedvit, если внимательно приглядеться, то есть условие отбора:

Код
Len(wb.Path) = 0

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

 

Небольшое дополнение, Гранд-смета при экспорте присваивает файлу Эксель ИМЯ, которое соответствует имени файла сметы! То есть, если есть возможность, то пакетно сохранять файлы нужно именно под этими, уже существующим именами для каждого файла.  

 

JayBhagavan

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

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

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

kompilainenn, а Вы таки пробовали это предложенными вариантами сделать?

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

 

bedvit

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

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

Виталий

JayBhagavan, Выходит  все сохраненные файлы — не сохраняются этим кодом, что в рамках задачи. не подкопаешь)) вопросы снимаю. У меня немного другой алгоритм, сохраняются те файла, которые не скрыты.

«Бритва Оккама» или «Принцип Калашникова»?

 

JayBhagavan

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

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

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

bedvit, таки да. Сколько людей — столько алгоритмов. :)

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

 

bedvit

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

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

Виталий

kompilainenn, именно так два кода и работают.

«Бритва Оккама» или «Принцип Калашникова»?

 

kompilainenn

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

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

#20

26.02.2016 13:10:37

Цитата
bedvit написал:
именно так два кода и работают.

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

 

JayBhagavan

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

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

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

Что такое макросы.

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

 

не получается, выдает ошибку (см.скриншот)

 

JayBhagavan

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

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

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

#23

26.02.2016 14:13:53

kompilainenn, добавьте после:

Код
strPath = Replace(.SelectedItems(1) & "", "\", "") ' полный путь папки

эту строку:

Код
end With

В коде выше исправил эту ошибку.

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

 
парни, я туплю.как сохранить макрос в самом экселе, а не в каком-то файле?

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

Изменено: kompilainenn01.03.2016 10:13:58

 

JayBhagavan

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

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

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

kompilainenn, почитайте про личную книгу макросов. И

про макросы вообще

.

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

 

дада, спс, уже почитал, макрос не работает только =(

 

JayBhagavan

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

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

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

У меня работает.

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

 

The_Prist

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

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

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

#28

01.03.2016 12:27:23

Видимо, программа все же сохраняет уже куда-то эти файлы и у них есть путь.
Попробуйте вместо строки

Код
If Len(wb.Path) = 0 Then wb.SaveAs strPath & wb.Name

записать:

Код
msgbox "полное имя, включая путь: " & wb.FullName & "; только имя: " & wb.name

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

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

 

вот что показывает, два сообщения:

Изменено: kompilainenn01.03.2016 13:37:53

 

The_Prist

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

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

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

#30

01.03.2016 15:11:16

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

Код
wb.SaveAs strPath & wb.Name & ".xlsx",51

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

На чтение 2 мин. Просмотров 36 Опубликовано 21.05.2021

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

Сохранение всех открытых файлов/книг сразу с кодом VBA в Excel
Сохранить все открытые файлы/книги сразу с помощью вкладки Office


Сохранить все открытые файлы/книги сразу с кодом VBA в Excel

Потрясающе! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Сэкономьте 50% своего времени и сократите тысячи щелчков мышью каждый день!

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

1. Одновременно нажмите Alt + F11 , чтобы открыть окно приложения Microsoft Visual Basic .

2. В окне приложения Microsoft Visual Basic нажмите Вставить > Модуль . Затем скопируйте и вставьте ниже код VBA в окно Module .

Код VBA: сохраните все открытые файлы/книги сразу

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


Сохранение всех открытых файлов/книг сразу с помощью вкладки Office

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

Вкладка Office : перейдите, чтобы загрузить бесплатную пробную версию Office Tab через 30 дней.

После установки вкладки Office все открытые книги отображаются в одном окне с вкладками. См. Снимок экрана:

Для сохранения всех открытых книг, пожалуйста, правильно щелкните вкладку, а затем нажмите Сохранить все из контекстного меню. См. Снимок экрана:

Затем все открытые книги сохраняются одновременно .

Если эта утилита окажется полезной, вы можете загрузить и попробовать бесплатную пробную версию прямо сейчас!


Понравилась статья? Поделить с друзьями:
  • Сохранить все листы excel в отдельные файлы макрос
  • Сохранить весь сайт в excel
  • Сохранить версию документа word 2010
  • Сохранить веб документа в word
  • Сохранить в формате excel макрос