Save all open files 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)


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

Содержание

  1. How do i save all open files in excel at once?
  2. How do i save all open files in excel at once?
  3. Re: How do i save all open files in excel at once?
  4. Re: How do i save all open files in excel at once?
  5. Find then save and close all open Excel documents
  6. Save all open files excel
  7. Как сохранить сразу все открытые файлы / книги в Excel?
  8. Saving All Open Workbooks
  9. Как сохранить и закрыть все открытые файлы книги Excel
  10. Совет № 1: Shift + кнопка закрытия окна
  11. Совет № 2: добавьте кнопку «Закрыть все» на панель быстрого доступа
  12. Совет № 3: Закройте все открытые книги с помощью макроса
  13. У вас есть свои советы по сохранению и закрытию файлов?

How do i save all open files in excel at once?

LinkBack
Thread Tools
Rate This Thread
Display

How do i save all open files in excel at once?

Word has an option whereby you can save all the files that are open. This
saves considerable time in saving huge amt of related files that are open. Do
we have any such option with Excel?

Re: How do i save all open files in excel at once?

Just close Excel. If any workbooks have unsaved changes Excel will ask if
you want to save changes to one of them. One option in that dialog is «Yes
to All».


Jim
«ved_rocker» wrote in message
news:B40594B3-0441-48C2-A98D-1302221BFF60@microsoft.com.
| Word has an option whereby you can save all the files that are open. This
| saves considerable time in saving huge amt of related files that are open.
Do
| we have any such option with Excel?

Re: How do i save all open files in excel at once?

I don’t think there is.
It kind of goes against the design since you can save multiple sheets in
a single workbook. While word can only work with single documents.

Wouldn’t be hard to write a little VBA routine and save it in your
personal workbook then use either a shortcut or toolbar to run it.

Sub SaveAll()
Dim w As Workbook
On Error Resume Next ‘ignore any errors (for the moment)
For Each w In Workbooks
w.Save
Next
End Sub

I would probably add some better error checking, but for now any errors
caused by saving would just be ignored (eg. disk full)

ved_rocker wrote:
> Word has an option whereby you can save all the files that are open. This
> saves considerable time in saving huge amt of related files that are open. Do
> we have any such option with Excel?

Источник

Find then save and close all open Excel documents

I need help creating a PowerShell script that will find all open Excel documents, then first if the document is read only close the document without saving and suppress prompts if changes were made, or second if the document is not read only then save and close them. This script will be run from a scheduled task.

The reason why I want to do this is because I need an automated way of saving and closing documents on our shared production area computers. We have about 80 computers on our manufacturing shop floor area and these computers are setup like kiosks for our production workers to access programs and documents needed to do their work. These computers are locked down tight with group policy and only have access to specific applications. One of these applications has Excel documents linked within it for the production workers to open and edit (they don’t ever create documents). But the problem is all too often these documents are left open far too long and many times they are also not saved. So my solution is to create a scheduled task (that runs in between our production shifts) to save and close all open Excel documents that are left open.

I have used this PowerShell script below to close other applications and it does work for Excel too if no changes were made. but obviously you’ll get a prompt to save if there are changes so I need a way to save the Excel documents first before this runs (or if read only suppress the prompt and just close).

If this can’t be done with PowerShell I’m open to doing this with a VBScript instead.

Источник

Save all open files excel

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

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

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

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

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

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

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

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

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

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

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

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

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

Источник

Saving All Open Workbooks

Written by Allen Wyatt (last updated March 3, 2022)
This tip applies to Excel 97, 2000, 2002, and 2003

If you work with lots of workbooks open at the same time, you know that it can be a pain to go through and save each of the open workbooks, in turn. Wouldn’t it be great to have a single command that allowed you to save all the open workbooks, without the need to do it manually?

Unfortunately, there isn’t such a command. The closest solution is to hold down the Shift key as you click the File menu, then choose Close All. In the process of closing, Excel will ask if you want each workbook saved.

The big drawback to this is that Excel closes and you need to again start Excel and open all your workbooks. If you want a true Save All command, you need to create it using a macro. The following is a good example of one you could use:

Save the macro in your Personal workbook, assign it to a toolbar button or a shortcut key, and you can call it up as often as you like. It saves all the workbooks that are open, except those that are read-only or hidden.

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (3307) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Saving All Open Workbooks.

Author Bio

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. Learn more about Allen.

Источник

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Источник

This tutorial shows how to save all open Excel files at once using VBA

METHOD 1. Save all open Excel files at once using VBA

VBA

Sub Save_all_excel_files()

Dim wb As Workbook
For Each wb In Application.Workbooks

If Not wb.ReadOnly Then
wb.Save
End If

Next

End Sub

NOTES
Note 1: This VBA code will save all open excel files in their existing locations at once.

Related Topic Description Related Topic and Description
Create and Save a new workbook How to create and save a new workbook using VBA
Save an Excel workbook How to save an Excel workbook

 

Есть такой софт Гранд-смета, он делает экспорт смет в формат 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

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

Please Note:
This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: Saving All Open Workbooks.

Written by Allen Wyatt (last updated March 3, 2022)
This tip applies to Excel 97, 2000, 2002, and 2003


If you work with lots of workbooks open at the same time, you know that it can be a pain to go through and save each of the open workbooks, in turn. Wouldn’t it be great to have a single command that allowed you to save all the open workbooks, without the need to do it manually?

Unfortunately, there isn’t such a command. The closest solution is to hold down the Shift key as you click the File menu, then choose Close All. In the process of closing, Excel will ask if you want each workbook saved.

The big drawback to this is that Excel closes and you need to again start Excel and open all your workbooks. If you want a true Save All command, you need to create it using a macro. The following is a good example of one you could use:

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

Save the macro in your Personal workbook, assign it to a toolbar button or a shortcut key, and you can call it up as often as you like. It saves all the workbooks that are open, except those that are read-only or hidden.

If you would like to know how to use the macros described on this page (or on any other page on the ExcelTips sites), I’ve prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

ExcelTips is your source for cost-effective Microsoft Excel training.
This tip (3307) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Saving All Open Workbooks.

Author Bio

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. Learn more about Allen…

MORE FROM ALLEN

Two Keys with the Press of One

Sometimes it could be helpful to have Word substitute two characters for the one that you type, for instance to replace a …

Discover More

Quickly Adjusting Paragraph Spacing

Need to easily adjust the vertical spacing that follows a paragraph? You can do it using dialog boxes or you can create …

Discover More

Maintaining the Active Cell

Move from one worksheet to another, and Excel selects whatever cell was last used in the worksheet you are selecting. If …

Discover More

More ExcelTips (menu)

Merging Many Workbooks

If you need to combine the contents of a bunch of workbooks into a single workbook, the process can get tedious. Here’s a …

Discover More

Protecting Excel Files from Word

Office easily allows you to use Word to open an Excel document. Doing so, however, can quickly result in and unusable …

Discover More

Cannot Double-Click to Open a Workbook

When you double-click on a workbook in Windows, the Excel program should be started and the workbook loaded. When this …

Discover More

Like this post? Please share to your friends:
  • Save all images from excel
  • Savco ox word english
  • Sav в excel онлайн
  • Sat word что это
  • Sat word list text