В Excel мы можем сохранить книгу в определенном месте по своему усмотрению, однако есть ли у вас образ для сохранения одной книги в нескольких папках одновременно? В этой статье с помощью кода VBA вы можете быстро сохранить одну книгу в нескольких местах одновременно.
Сохраните книгу в нескольких местах с помощью VBA
Сохраните книгу в нескольких местах с помощью VBA
Чтобы сохранить книгу в нескольких местах, вам просто нужно применить один код макроса.
1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модули и вставьте ниже код в скрипт модуля. Смотрите скриншот:
VBA: сохранить книгу в нескольких местах
Sub SaveToLocations()
'UpdateByExtendoffice20160623
ActiveWorkbook.SaveCopyAs "C:UsersDT168Documents" + ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "C:UsersDT168" + ActiveWorkbook.Name
ActiveWorkbook.Save
End Sub
Функции: в коде макроса вы можете изменить пути сохранения по своему усмотрению.
3. Нажмите F5 ключ для запуска кода, и активная книга была сохранена в местах, которые вы указали в коде.
Лучшие инструменты для работы в офисе
Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (5)
Оценок пока нет. Оцените первым!
Вы можете перехватить макрос Save with Event:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:="F:Transfertemp.xlsm"
ThisWorkbook.SaveAs Filename:="C:TestFoldertemp.xlsm"
Application.EnableEvents = True
MsgBox "Dual save performed"
End Sub
Но вам нужно будет настроить спецификации файлов в соответствии с вашими делами.
Поскольку это код рабочей книги, его очень легко установить и использовать:
- щелкните правой кнопкой мыши на крошечном значке Excel слева от элемента «Файл» в строке меню.
- выберите View Code — откроется окно VBE
- вставьте материал и закройте окно VBE
Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как.xlsm, а не.xlsx
Чтобы удалить макрос:
- вызвать окна VBE, как указано выше
- очистить код
- закройте окно VBE
Чтобы узнать больше о макросах в целом, смотрите:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Чтобы узнать больше о макросах событий (код книги), см.:
http://www.mvps.org/dmcritchie/excel/event.htm
Макросы должны быть включены, чтобы это работало!
EDIT # 1:
Если вы сначала откроете окно VBE, то вот как открыть область кода рабочей книги:
kiv3383 Пользователь Сообщений: 8 |
#1 24.12.2015 08:43:40 Есть макрос. Сохраняет в файл по адресам, указанным в a1 и a2 под именем в a3. Что изменить чтобы не было запроса что этот файл уже существует в данном месте. Заменить? А было только одно сообщение: Сохранить файл: да нет отмена.
Заранее спасибо! Изменено: kiv3383 — 24.12.2015 12:21:31 |
||
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
#2 24.12.2015 10:33:46 Отключайте сообщения вначале:
В конце не забывайте вернуть в 1 Я сам — дурнее всякого примера! … |
||
Юрий М Модератор Сообщений: 60588 Контакты см. в профиле |
kiv3383, код следует оформлять соответствующим тегом. Ищите такую кнопку и исправьте своё сообщение. Спасибо! |
kiv3383 Пользователь Сообщений: 8 |
#4 24.12.2015 12:24:55
Спасибо за ответ. Не могли бы Вы дать код полностью. Спасибо. |
||
Юрий М Модератор Сообщений: 60588 Контакты см. в профиле |
#5 24.12.2015 12:29:25 kiv3383, ну вот зачем процитировали сообщение полностью? На чём хотели сделать акцент?
|
||
Вы можете перехватить макрос » Сохранить с событием»:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:="F:Transfertemp.xlsm"
ThisWorkbook.SaveAs Filename:="C:TestFoldertemp.xlsm"
Application.EnableEvents = True
MsgBox "Dual save performed"
End Sub
Но вам нужно будет настроить спецификаторы файлов для размещения ваших дел.
Поскольку это код книги, его очень легко установить и использовать:
щелкните правой кнопкой мыши маленький значок Excel слева от файла на панели меню. выберите «Просмотреть код» — это вызывает окно VBE вставьте содержимое и закройте окно VBE
Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel позже 2003 года, вы должны сохранить файл как.xlsm, а не.xlsx
Чтобы удалить макрос:
поднимите окна VBE, как указано выше очистить код закрыть окно VBE
Чтобы узнать больше о макросах в целом, см.
http://www.mvps.org/dmcritchie/excel/getstarted.htm
а также
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Чтобы узнать больше о Макросах событий (код книги), см.
http://www.mvps.org/dmcritchie/excel/event.htm
Для этого необходимо активировать макросы!
EDIT # 1:
Если вы сначала откроете окно VBE, то вот как открыть область кода рабочей книги:
Перейти к содержанию
На чтение 1 мин. Просмотров 25 Опубликовано 22.05.2021
В Excel мы можем сохранить книгу в определенном месте по своему усмотрению, однако есть ли у вас образ для сохранения одной книги в нескольких папках одновременно? В этой статье с помощью кода VBA вы можете быстро сохранить одну книгу в нескольких местах одновременно.
Сохранить книгу в нескольких местах с помощью VBA
Сохранение книги в нескольких местах с помощью VBA
Чтобы сохранить книгу в нескольких местах, вам просто нужно применить один код макроса.
1. Нажмите клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений .
2. Нажмите Insert > Module и вставьте приведенный ниже код в сценарий модуля. См. Снимок экрана:
VBA: сохранение книги в нескольких местах
Совет : в коде макроса вы можете изменить пути сохранения по своему усмотрению.
3. Нажмите клавишу F5 , чтобы запустить код, и активная книга будет сохранена в местах, которые вы указали в коде.