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

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

Sub SaveToLocations()

Dim OrigName As String

OrigName = ActiveWorkbook.FullName     ActiveWorkbook.SaveAs "G:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "L:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "K:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "S:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs OrigName End Sub

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

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

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

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2774) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Saving_in_Multiple_Locations [Сохранение в нескольких местах].