Сохранение excel в два места

В 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

документ сохранить в нескольких местах 1

Функции: в коде макроса вы можете изменить пути сохранения по своему усмотрению.

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


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

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

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

вкладка kte 201905


Вкладка 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

Но вам нужно будет настроить спецификации файлов в соответствии с вашими делами.

Поскольку это код рабочей книги, его очень легко установить и использовать:

  1. щелкните правой кнопкой мыши на крошечном значке Excel слева от элемента «Файл» в строке меню.
  2. выберите View Code — откроется окно VBE
  3. вставьте материал и закройте окно VBE

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

Чтобы удалить макрос:

  1. вызвать окна VBE, как указано выше
  2. очистить код
  3. закройте окно 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
Регистрация: 24.12.2015

#1

24.12.2015 08:43:40

Есть макрос. Сохраняет в файл по адресам, указанным в a1 и a2 под именем в a3. Что изменить чтобы не было запроса что этот файл уже существует в данном месте. Заменить? А было только одно сообщение: Сохранить файл: да нет отмена.
Макрос не мой, ничего в этом не смыслю, поэтому прошу написать код полностью.

Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(1, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(2, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
End Sub

Заранее спасибо!

Изменено: kiv338324.12.2015 12:21:31

 

KuklP

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

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

E-mail и реквизиты в профиле.

#2

24.12.2015 10:33:46

Отключайте сообщения вначале:

Код
Application.DisplayAlerts = 0

В конце не забывайте     вернуть в 1

Я сам — дурнее всякого примера! …

 

Юрий М

Модератор

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

Контакты см. в профиле

kiv3383, код следует оформлять соответствующим тегом. Ищите такую кнопку и исправьте своё сообщение. Спасибо!

 

kiv3383

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

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

#4

24.12.2015 12:24:55

Цитата
KuklP написал:
Отключайте сообщения вначале:
Код?1Application.DisplayAlerts = 0
В конце не забывайте     вернуть в 1

Спасибо за ответ. Не могли бы Вы дать код полностью. Спасибо.

 

Юрий М

Модератор

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

Контакты см. в профиле

#5

24.12.2015 12:29:25

kiv3383, ну вот зачем процитировали сообщение полностью? На чём хотели сделать акцент?
Запомните — кнопка цитирования не для ответа!
И что в сообщении Сергея (KuklP) непонятно? Одна строка в начале кода, другая в конце.

Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = 0
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(1, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
ThisWorkbook.SaveAs Filename:=Worksheets(1).Cells(2, 1).Value & "/" & Worksheets(1).Cells(3, 1).Value, FileFormat:=52
Application.DisplayAlerts = 1
End Sub

Вы можете перехватить макрос » Сохранить с событием»:

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, то вот как открыть область кода рабочей книги:

enter image description here

Перейти к содержанию

На чтение 1 мин. Просмотров 25 Опубликовано 22.05.2021

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

Сохранить книгу в нескольких местах с помощью VBA


Сохранение книги в нескольких местах с помощью VBA

Чтобы сохранить книгу в нескольких местах, вам просто нужно применить один код макроса.

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

2. Нажмите Insert > Module и вставьте приведенный ниже код в сценарий модуля. См. Снимок экрана:

VBA: сохранение книги в нескольких местах

Совет : в коде макроса вы можете изменить пути сохранения по своему усмотрению.

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


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