2015-01-27 3 views

ответ

2

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

VBA macro to save excel file using path from cell

0

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

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 
    Cancel = True 
    Application.EnableEvents = False 
     ThisWorkbook.SaveAs Filename:="F:\Transfer\temp.xlsm" 
     ThisWorkbook.SaveAs Filename:="C:\TestFolder\temp.xlsm" 
    Application.EnableEvents = True 
    MsgBox "Dual save performed" 
End Sub 

Но вам нужно будет настроить filespecs номера ваших дел.

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

  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

Чтобы узнать больше о Event Macros (учебное пособие код), см:

http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть разрешены для этой работы!

EDIT # 1:

Если открыть окно VBE первое, то здесь, как открыть область кода рабочей книги:

enter image description here

+0

Я пробовал это, но нет успеха. Я открыл книгу Excel. Нажата Alt + F11 на lauch VBE. Нажал View> Code> и скопировал: Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean) Отменить = True Application.EnableEvents = False ThisWorkbook.SaveAs Имя файла: = "F: \ stores.xlsm" ThisWorkbook. Примерчик Имя файла: = "C: \ stores.xlsm" Application.EnableEvents = True MsgBox "двойной сохранить выполняется" End Sub у меня есть файл, сохраненный ранее, как .xlsm я иду View в Excel> Macros> Запись макросов. Когда я нажимаю Ctrl + S, файл не сохраняется на мои диски C & F? –

+0

@TrevorCarey ............... Необходимо поместить макрос в область кода ** рабочей книги. ** См. Мои инструкции –

+0

Попробуй это сейчас, подумал, что я делал это раньше. Отчитается. –

Смежные вопросы