Основания для выдачи дубликата перечислены в Постановлении Правительства РФ «О трудовых книжках» от 16.04.2003 № 225 (п. 31, 33). Там же изложен и порядок, которому необходимо следовать.

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

1. Порча книжки, например, вследствие воздействия влаги, огня, либо в связи с тем, что книжка стала ветхой от старости.
2. Утеря книжки, либо ее кража.
3. Утрата книжек работодателем, например, ввиду чрезвычайных обстоятельств – взрыва, потопа, и т.д.
4. Наличие в книжке записи об увольнении, либо о переводе, которая признана недействительной по решению суда.

Для выдачи дубликата требуется написать заявление об этом. Оно подается работодателю любым способом – лично; по почте.

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

Если документ передается лично работодателю, либо в отдел кадров или иное подразделение, необходимо, чтобы принявшее документ лицо поставило подпись о принятии. Для этого заявление составляется в 2 экземплярах, один из которых остается у сотрудника. На нем и ставится подпись принявшего документ лица.

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

После получения заявления, работодатель обязан его рассмотреть и принять решение о выдаче дубликата или об отказе в его выдаче в течении 15 дневного срока. Дни календарные.

Форма документа на законодательном уровне не утверждена. В связи с этим, заявление пишется в произвольном виде. В документе отражаются следующие данные:

1. Ф.И.О. сотрудника, его адрес, телефон.
2. Сведения о работодателе – наименование организации, адрес ее места нахождения, Ф.И.О. руководителя, его должность (например, директор или ген. директор).
3. Название документа (заявление), указывается в центре листа.
4. Информация о том, по какой причине сотруднику или бывшему работнику требуется получить дубликат книжки. Например, текст документа может быть составлен следующим образом: «15.01.2013 между мной и ООО «АктПром» был расторгнут трудовой договор № 12 от 12.01.2001 (на основании приказа № 12-П от 15.01.2013). 18.05.2018 года в моем доме по адресу: г. Москва, ул. Новослободская, 12-14 произошел пожар. Вместе с личными вещами сгорела трудовая книжка, выданная мне в ООО «АктПром» 12. 01.2001. Прошу оформить и выдать дубликат трудовой книжки». Обстоятельства описываются в произвольном виде. Главное, чтобы была понятна причина, по которой требуется получить дубликат документа.
5. Подпись сотрудника, который подает заявление.
6. Дату подписания заявления.

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

Отсчет 15 дневного срока для оформления дубликата книжки начинается с момента получения заявления адресатом. Дата вручения – это либо дата получения письма, либо дата передачи заявления на руки.

***

Таким образом, заявление составляется в определенных Постановлением Правительства № 225 случаях, и требуется для того, чтобы инициировать процедуру выдачи дубликата трудовой книжки.

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

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

После загрузки книги вы можете открыть книгу и внести любые изменения, если у вас есть настольное приложение Excel. У вас нет настольного приложения Excel? Не проблема; попробуйте на Office.com.

Для этого:

1. Выберите  Файл > Сохранить как > Загрузить копию .

2. Если Excel спросит, открыть или сохранить книгу, выберите Сохранить .
   

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

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

Открыть книгу

Выполните следующие действия, чтобы открыть книгу:

1. После загрузки книги выберите Файл > Открыть .

2. На желтой панели Защищенный просмотр выберите  Включить редактирование .

3. Выберите  Файл > Сохранить как > Обзор .

4. Выберите папку, в которой вы хотите сохранить книгу.

5. В поле Имя файла введите имя.

Открыть папку

После загрузки книги выберите Открыть папку и выполните одно из следующих действий:

• Чтобы переименовать книгу, выберите книгу, выберите Переименовать и введите новое имя.

• Чтобы переместить книгу, выберите книгу и выберите  Переместить в и выберите новое место.

Примечание. Лента должна отображаться в окне Загрузки , чтобы увидеть параметры переименования и перемещения. Если вы не видите ленту, выберите вкладку View в самом верху окна (см. рисунок выше), а затем выберите значок канцелярской кнопки справа.Параметры Переименовать и Переместить появятся на вкладке Главная .

Копировать диапазон VBA на другой лист + рабочую книгу

Главная ➜ VBA ➜ Копировать диапазон VBA на другой лист + рабочую книгу

Чтобы скопировать ячейку или диапазон ячеек на другой рабочий лист, вам нужно использовать метод «Копировать» VBA. В этом методе вам нужно определить диапазон или ячейку, используя объект диапазона, который вы хотите скопировать, а затем определить другой рабочий лист вместе с диапазоном, в который вы хотите его вставить.

Копировать ячейку или диапазон на другой рабочий лист

  Диапазон ("A1"). Копировать рабочие листы ("Лист2"). Диапазон ("A1")  

1. Сначала определите диапазон или ячейку, которую вы хотите копировать.
   
2. Затем введите точку (.) и выберите метод копирования из списка свойств и методов.
   
3. Здесь вы получите intellisense для определения места назначения скопированной ячейки.
   
4. Отсюда вам нужно определить рабочий лист, а затем диапазон назначения.
   

Теперь, когда вы запустите этот код, он скопирует ячейку A1 с активного листа на «Лист2». Есть одна вещь, о которой вам нужно позаботиться: когда вы копируете ячейку и вставляете ее в место назначения, она также вставляет туда форматирование.

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

  Рабочие листы("Лист2"). Range("A1") = Range("A1").Value  

Этот метод не использует метод копирования, а просто добавляет значение к целевому рабочему листу, используя знак равенства и использует свойство value с исходной ячейкой.

Копировать ячейку из другого рабочего листа

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

  Рабочие листы ("Лист1"). Диапазон ("А1"). Копировать рабочие листы ("Лист2"). Диапазон ("А1")  

Копировать диапазон ячеек

  Диапазон ("А1: А10") .Копировать рабочие листы("Лист2").Range("A1:A10")
Диапазон ("A1: A10"). Скопировать рабочие листы ("Лист2").Range("A1")  

Копировать ячейку на лист в другой книге

Когда книги открыты, но еще не сохранены.

  Рабочие книги ("Книга1").  Рабочие листы ("Лист1"). Диапазон ("А1"). Копировать _
Workbooks("Книга2").Worksheets("Лист1").Range("A1")  

Когда книги открыты и сохранены.

  Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("A1").Copy _
Workbooks("Book2.xlsx").Worksheets("Sheet1").Range("A1")  

Скопировать ячейку на лист в другой закрытой книге

  ', чтобы открыть книгу, сохраненную в папка в вашей системе _
измените путь в соответствии с местоположением, которое у вас есть в вашем _
система
Рабочие тетради.Откройте «C:\Users\Dell\Desktop\myFile.xlsx».

'копирует ячейку из рабочей книги book1 и копирует и вставляет _
это в книгу myFile
Рабочие книги ("Книга1"). Рабочие листы ("Лист1"). Диапазон ("А1"). Копировать _
Рабочие книги ("мой файл"). Рабочие листы ("Лист1"). Диапазон ("А1")

'закрыть книгу и после сохранения
Workbooks("myFile").Close SaveChanges:=True  

Связано: Как открыть книгу с помощью VBA в Excel

Подробнее о диапазоне и ячейках VBA

• Как установить (получить и изменить) значение ячейки с помощью VBA Код
• Как отсортировать диапазон с помощью VBA в Excel
• Как создать именованный диапазон с помощью VBA (статический + динамический) в Excel
• Как объединить и разъединить ячейки в Excel с помощью кода VBA
• Как проверить, ЕСЛИ Ячейка пуста с использованием VBA в Excel
• VBA ClearContents (из ячейки, диапазона или всего листа)
• Шрифт Excel VBA (цвет, размер, тип и полужирный)
• Автоподбор (строки, столбцы или весь лист) рабочий лист) с использованием VBA
• Как использовать свойство OFFSET с объектом диапазона или ячейкой в ​​VBA
• Перенос текста VBA (ячейка, диапазон и весь рабочий лист)
• Как использовать диапазон/ячейку в качестве переменной в VBA в Excel
• Как найти последние строки, столбец и ячейку с помощью VBA в Excel
90 009 Как использовать ActiveCell в VBA в Excel
• Как использовать специальный метод ячеек в VBA в Excel
• Как применить границы к ячейке с помощью VBA в Excel
• Как обратиться к используемому диапазону с помощью VBA в Excel
• Как Изменение высоты строки/ширины столбца с помощью VBA в Excel
• Как выбрать все ячейки на листе с помощью кода VBA
• Как вставить строку с помощью VBA в Excel
• Как вставить столбец с помощью VBA в Excel

Как скопировать лист в другую книгу в Excel

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

В этой статье мы покажем вам, как скопировать лист из другой книги в Excel.

Как скопировать лист в другую книгу Excel на ПК

Существует два основных способа копирования листа в другую книгу на ПК:

Первый:

1. Откройте обе электронные таблицы.
   
2. Щелкните правой кнопкой мыши лист, который хотите переместить.
   
3. Нажмите «Переместить или скопировать».
   
4. Нажмите раскрывающееся меню «В книгу» и найдите книгу, в которую вы хотите переместить этот лист.
   
5. Установите флажок «Создать копию» в нижней части окна.
   
6. Нажмите «ОК».
   

Это переместит лист в другую книгу.

Примечание: Всегда проверяйте, перенесена ли вся информация вместе с таблицей, включая ссылки и функции.

Второй:

1. Откройте обе электронные таблицы.
   
2. Щелкните и перетащите лист, который вы хотите переместить, в другую книгу.
   
3. Нажмите и удерживайте клавишу «CTRL», прежде чем отпустить лист.
4. Появится копия.
   

Если формулы не переносятся должным образом, попробуйте следующее: скопируйте лист со всеми созданными формулами в другую книгу, выделите все ячейки листа (Ctrl + A), нажмите правой кнопкой мыши «Копировать». или CTRL + C и вставьте информацию в отдельную книгу. Это также должно скопировать формулы.

Как скопировать лист в другую книгу без ссылок или ссылок

Вот как удалить все ссылки на предыдущую книгу при копировании сложного листа:

1. Сохраните книгу под новым именем, затем откройте новую.
   
2. Щелкните лист, который хотите переместить, щелкните правой кнопкой мыши и выберите «Переместить или скопировать».
   
3. В раскрывающемся меню «Забронировать» выберите «(новая книга)», затем «ОК».
   
4. Новый откроется автоматически.
   
5. Нажмите на вкладку «Данные» в верхней части страницы.
   
6. Найдите «Подключения», затем «Редактировать ссылки», затем «Разорвать ссылку».

Это должно удалить все ссылки из предыдущих книг, но оставить ваши формулы нетронутыми.

Ваша формула не работает?

Если ваша формула не работает, вот несколько советов, которые помогут решить проблему:

• Проверьте скобки.Иногда при написании более длинной формулы вы можете забыть закрыть ее.
  
• Убедитесь, что вы используете двойные кавычки «правильно». Двойные кавычки говорят электронной таблице рассматривать все, что находится между ними, как текст. Если вы заключили число в двойные кавычки, это может быть причиной ошибки.
• Не используйте запятые или знаки валюты при вводе чисел. Поскольку оба символа имеют разные значения в функциональности. Убедитесь, что вы вводите числа как «3000», но отформатируйте ячейки, чтобы вывести числа по мере необходимости.
  

Как скопировать лист в другую книгу в Excel на Mac

Процесс на Mac немного отличается. Вот как скопировать лист для пользователей Mac:

1. Откройте принимающую книгу.
   
2. Вы должны найти книгу с листом, который вы хотите скопировать, в меню «Окно». Нажмите на него, затем нажмите на лист, который вы хотите скопировать.
   
3. Найдите пункт меню «Правка», затем «Лист», затем «Переместить или скопировать лист».
   
4. Выберите рабочую книгу, в которую вы хотите переместить лист, в меню «В книгу» (чтобы создать новую рабочую книгу со скопированной электронной таблицей, выберите «(новая книга).
   
5. Выберите поле «Создать копию» внизу и нажмите «ОК».
   

Проблемы с Excel для пользователей Mac

Поскольку пакет Microsoft Office был создан в первую очередь для пользователей Windows, некоторые проблемы в Mac OS неизбежно возникнут. Если вы не можете открыть файл Excel, вот несколько быстрых решений, которые вы можете попробовать:

• Закройте приложение и откройте его снова. Надеемся, что это простое исправление решит проблему.
• Перезагрузите Mac.
  
• Попробуйте открыть документ в безопасном режиме.
• Проверьте, обновлена ​​ли ваша ОС.
  
• Проверьте, обновлен ли ваш пакет Office (откройте Office, затем «Справка», «Проверить наличие обновлений»). Надстройки Excel».)
  

На шаг ближе к мастерству

Часто решение проблемы находится всего в нескольких быстрых щелчках. Благодаря советам и рекомендациям, приведенным в этой статье, вы теперь должны знать, как скопировать лист в другую книгу в Excel.Это позволит вам перенести информацию с минимумом хлопот.

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

Использование объекта книги в Excel VBA (открыть, закрыть, сохранить, установить)

В этом уроке я расскажу, как работать с книгами в Excel с помощью VBA.

В Excel «Рабочая книга» — это объект, являющийся частью коллекции «Рабочие книги». В рабочей книге у вас есть различные объекты, такие как рабочие листы, листы диаграмм, ячейки и диапазоны, объекты диаграмм, фигуры и т. д.

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

Итак, приступим.

Если вы заинтересованы в простом изучении VBA, ознакомьтесь с моим курсом Online Excel VBA Training .

Ссылка на книгу с помощью VBA

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

Использование имен рабочих книг

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

Начнем с простого примера.

Если у вас открыты две книги и вы хотите активировать книгу с именем — Examples.xlsx, вы можете использовать следующий код:

 Sub ActivateWorkbook()
Учебники("Примеры.xlsx"). Активировать
End Sub 

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

Если вы не знаете, какое имя использовать, воспользуйтесь помощью Project Explorer.

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

 Sub ActivateWorkbook()
Рабочие книги ("Examples.xlsx"). Рабочие листы ("Лист1"). Активировать
Диапазон("A1").Выбрать
End Sub 

Приведенный выше код сначала активирует Sheet1 в книге Examples.xlsx, а затем выбирает ячейку A1 на листе.

Часто можно увидеть код, в котором ссылка на рабочий лист или ячейку/диапазон делается без ссылки на рабочую книгу. Это происходит, когда вы ссылаетесь на рабочий лист/диапазоны в той же рабочей книге, в которой есть код и которая также является активной рабочей книгой.Однако в некоторых случаях вам нужно указать рабочую книгу, чтобы убедиться, что код работает (подробнее об этом в разделе ThisWorkbook).

Использование порядковых номеров

Вы также можете ссылаться на книги по их порядковым номерам.

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

 Sub WorkbookName()
Книги MsgBox(1).Имя
Книги MsgBox(2).Имя
Книги MsgBox (3).Имя
End Sub 

Приведенный выше код использует MsgBox — функцию, которая показывает окно сообщения с указанным текстом/значением (в данном случае это имя книги).

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

Excel считает, что книга, открытая первой, имеет номер индекса как 1, а следующая — как 2 и так далее.

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

Приведенный ниже код будет перебирать все открытые книги и закрывать все, кроме книги с этим кодом VBA.

 Sub CloseWorkbooks()
Dim WbCount как целое число
WbCount = Рабочие книги.Количество
Для i = WbCount To 1 Step -1
Если Workbooks(i).Name <> ThisWorkbook.Name Then
Книги(i).Закрыть
Конец, если
Далее я
End Sub 

Приведенный выше код подсчитывает количество открытых книг, а затем просматривает все книги, используя цикл For Each.

Он использует условие IF, чтобы проверить, совпадает ли имя книги с именем книги, в которой выполняется код.

Если это не совпадение, он закрывает книгу и переходит к следующей.

Обратите внимание, что мы запустили цикл от WbCount до 1 с шагом -1. Делается это так, как с каждым циклом количество открытых книг уменьшается.

Эта рабочая книга подробно описана в следующем разделе.

Использование ActiveWorkbook

ActiveWorkbook, как следует из названия, относится к активной рабочей книге.

Приведенный ниже код покажет вам имя активной книги.

 Sub ActiveWorkbookName()
MsgBox ActiveWorkbook.Имя
End Sub 

Когда вы используете VBA для активации другой книги, часть ActiveWorkbook в VBA после этого начнет ссылаться на активированную книгу.

Вот пример.

Если у вас есть активная рабочая книга, и вы вставите в нее следующий код и запустите ее, сначала будет показано имя рабочей книги с кодом, а затем имя Examples. xlsx (который активируется кодом).

 Sub ActiveWorkbookName()
MsgBox ActiveWorkbook.Имя
Книги("Examples.xlsx").Активировать
MsgBox ActiveWorkbook.Имя
End Sub 

Обратите внимание, что при создании новой книги с помощью VBA эта вновь созданная книга автоматически становится активной книгой.

Использование ThisWorkbook

ThisWorkbook относится к книге, в которой выполняется код.

Частью каждой рабочей книги будет объект ThisWorkbook (отображаемый в Project Explorer).

«ThisWorkbook» может хранить как обычные макросы (аналогичные тем, которые мы добавляем в модули), так и процедуры обработки событий. Процедура события — это то, что запускается на основе события, например двойного щелчка по ячейке, сохранения книги или активации листа.

Любая процедура события, которую вы сохраняете в этой «Книге», будет доступна во всей книге, в отличие от событий на уровне листа, которые ограничены только определенными листами.

Например, если дважды щелкнуть объект ThisWorkbook в Project Explorer и скопировать и вставить в него приведенный ниже код, адрес ячейки будет отображаться каждый раз, когда вы дважды щелкаете любую из ячеек во всей книге.

 Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
MsgBox Цель.Адрес
End Sub 

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

Приведенный ниже код вернет имя рабочей книги, в которой выполняется код.

 Sub ThisWorkbookName()
MsgBox ThisWorkbook.Name
End Sub 

Преимущество использования ThisWorkbook (по сравнению с ActiveWorkbook) заключается в том, что он будет ссылаться на одну и ту же книгу (ту, в которой есть код) во всех случаях.Таким образом, если вы используете код VBA для добавления новой книги, ActiveWorkbook изменится, но ThisWorkbook по-прежнему будет ссылаться на ту, в которой есть код.

Создание нового объекта рабочей книги

Следующий код создаст новую рабочую книгу.

 Sub CreateNewWorkbook()
Книги.Добавить
End Sub 

Когда вы добавляете новую книгу, она становится активной книгой.

Следующий код добавит новую книгу, а затем покажет вам имя этой книги (которое будет именем типа Book1 по умолчанию).

 Sub CreateNewWorkbook()
Книги.Добавить
MsgBox ActiveWorkbook.Имя
End Sub 

Открытие книги с помощью VBA

Вы можете использовать VBA для открытия определенной книги, если знаете путь к файлу книги.

Приведенный ниже код откроет книгу — Examples.xlsx, которая находится в папке «Документы» в моей системе.

 Подпрограмма OpenWorkbook()
Workbooks.Open ("C:\Users\sumit\Documents\Examples.xlsx")
End Sub 

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

 Подпрограмма OpenWorkbook()
Workbooks.Open ("Examples.xlsx")
End Sub 

Если книга, которую вы пытаетесь открыть, не существует, вы увидите сообщение об ошибке.

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

Приведенный ниже код проверит расположение файла и, если он не существует, отобразит пользовательское сообщение (не сообщение об ошибке):

 Sub OpenWorkbook()
Если Dir("C:\Users\sumit\Documents\Examples.xlsx") <> "" Тогда
Workbooks.Open ("C:\Users\sumit\Documents\Examples.xlsx")
Еще
MsgBox "Файл не существует"
Конец, если
End Sub 

Вы также можете использовать диалоговое окно «Открыть», чтобы выбрать файл, который хотите открыть.

 Подпрограмма OpenWorkbook()
При ошибке Возобновить Далее
Dim FilePath как строка
FilePath = Application.GetOpenFilename
Workbooks.Open (Путь к файлу)
End Sub 

Приведенный выше код открывает диалоговое окно «Открыть». Когда вы выбираете файл, который хотите открыть, он присваивает путь к файлу переменной FilePath.Затем Workbooks.Open использует путь к файлу, чтобы открыть файл.

Если пользователь не открывает файл и нажимает кнопку «Отмена», FilePath становится False. Чтобы избежать ошибки в этом случае, мы использовали оператор «При ошибке возобновить дальше».

Сохранение книги

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

 Sub SaveWorkbook()
ActiveWorkbook.Сохранить
End Sub 

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

Если вы сохраняете книгу в первый раз, она покажет вам подсказку, как показано ниже:

При первом сохранении лучше использовать опцию «Сохранить как».

Приведенный ниже код сохраняет активную книгу в виде файла .xlsm в папке по умолчанию (это папка документов в моей системе).

 Sub SaveWorkbook()
ActiveWorkbook.SaveAs Имя файла: = "Test.xlsm", Формат файла: = xlOpenXMLWorkbookMacroEnabled
End Sub 

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

 Sub SaveWorkbook()
ActiveWorkbook.SaveAs Имя файла:="C:\Users\sumit\Desktop\Test.xlsm", Формат файла:=xlOpenXMLWorkbookMacroEnabled
End Sub 

Если вы хотите, чтобы пользователь мог выбрать место для сохранения файла, вы можете вызвать диалоговое окно Saveas.Приведенный ниже код показывает диалоговое окно «Сохранить как» и позволяет пользователю выбрать место для сохранения файла.

 Sub SaveWorkbook()
Dim FilePath как строка
FilePath = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Имя файла:=FilePath & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub 

Обратите внимание, что вместо FileFormat:=xlOpenXMLWorkbookMacroEnabled вы также можете использовать FileFormat:=52, где 52 — это код xlOpenXMLWorkbookMacroEnabled.

Сохранение всех открытых книг

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

 Sub SaveAllWorkbooks()
Dim wb как рабочая книга
Для каждого ББ в рабочих книгах
wb. Сохранить
Следующий бб
End Sub 

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

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

 Sub SaveAllWorkbooks()
Dim wb как рабочая книга
Для каждого ББ в рабочих книгах
Если вб.Путь <> "" Тогда
wb.Сохранить
Конец, если
Следующий бб
End Sub 

Сохранение и закрытие всех книг

Если вы хотите закрыть все книги, кроме книги, в которой есть текущий код, вы можете использовать следующий код:

 Sub CloseandSaveWorkbooks()
Dim wb как рабочая книга
Для каждого ББ в рабочих книгах
Если wb.Name <> ThisWorkbook.Name Тогда
wb.Close SaveChanges: = True
Конец, если
Следующий бб
End Sub 

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

Сохранить копию книги (с отметкой времени)

Когда я работаю со сложными данными и инструментальными панелями в книгах Excel, я часто создаю разные версии своих книг. Это полезно, если что-то пойдет не так с моей текущей книгой. По крайней мере, я бы сохранил его копию под другим именем (и я потерял бы работу, которую проделал, только после создания копии).

Вот код VBA, который создаст копию вашей книги и сохранит ее в указанном месте.

 Sub CreateaCopyofWorkbook()
Имя файла ThisWorkbook.SaveCopyAs:="C:\Users\sumit\Desktop\BackupCopy.xlsm"
End Sub 

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

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

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

 Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.SaveCopyAs Имя файла:="C:\Users\sumit\Desktop\BackupCopy" и формат (сейчас(), "дд-мм-гг-чч-мм-сс-AMPM") и ".xlsm"
End Sub 

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

Создание новой рабочей книги для каждого рабочего листа

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

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

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

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

 Sub CreateWorkbookforWorksheets()
Dim ws As рабочий лист
Dim wb как рабочая книга
Для каждого ws в ThisWorkbook.Worksheets
Установите wb = рабочие книги.Добавлять
ws.Копировать до:=wb.Sheets(1)
Application.DisplayAlerts = Ложь
wb.Sheets(2).Удалить
Application.DisplayAlerts = Истина
wb.SaveAs "C:\Users\sumit\Desktop\Test\" & ws.Name & ".xlsx"
wb.Закрыть
Следующий мс
End Sub 

В приведенном выше коде мы использовали две переменные «ws» и «wb».

Код просматривает каждый рабочий лист (используя цикл For Each Next) и создает для него рабочую книгу. Он также использует метод копирования объекта рабочего листа для создания копии рабочего листа в новой книге.

Обратите внимание, что я использовал оператор SET для назначения переменной «wb» любой новой книге, созданной с помощью кода.

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

Назначение объекта рабочей книги переменной

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

Например, в приведенном ниже коде я использую VBA для добавления новой книги, а затем назначаю эту книгу переменной wb.Для этого мне нужно использовать оператор SET.

После того, как рабочая книга назначена переменной, все свойства рабочей книги также становятся доступными для переменной.

 Sub AssigntoVariable()
Dim wb как рабочая книга
Установите wb = Workbooks.Добавить
wb.SaveAs Имя файла:="C:\Users\sumit\Desktop\Examples.xlsx"
End Sub 

Обратите внимание, что первым шагом в коде является объявление «wb» в качестве переменной типа рабочей книги. Это сообщает VBA, что эта переменная может содержать объект рабочей книги.

Следующая инструкция использует SET для назначения переменной новой рабочей книге, которую мы добавляем. Как только это назначение выполнено, мы можем использовать переменную wb, чтобы сохранить книгу (или сделать с ней что-нибудь еще).

Зацикливание открытых книг

Выше мы уже видели несколько примеров кода, в коде которых использовался цикл.

В этом разделе я объясню различные способы обхода открытых книг с помощью VBA.

Предположим, вы хотите сохранить и закрыть все открытые книги, кроме той, в которой есть код, тогда вы можете использовать следующий код:

 Sub CloseandSaveWorkbooks()
Dim wb как рабочая книга
Для каждого ББ в рабочих книгах
Если вб.Имя <> ThisWorkbook.Name Тогда
wb.Close SaveChanges: = True
Конец, если
Следующий бб
End Sub 

Приведенный выше код использует цикл For Each для просмотра каждой книги в коллекции Workbooks. Для этого нам сначала нужно объявить «wb» в качестве переменной типа рабочей книги.

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

То же самое может быть достигнуто с помощью другого цикла, как показано ниже:

 Sub CloseWorkbooks()
Dim WbCount как целое число
WbCount = рабочие книги.Считать
Для i = WbCount To 1 Step -1
Если Workbooks(i).Name <> ThisWorkbook.Name Then
Книги(i).Закрыть SaveChanges:=True
Конец, если
Далее я
End Sub 

Приведенный выше код использует цикл For Next для закрытия всех книг, кроме той, в которой есть код. В этом случае нам не нужно объявлять переменную рабочей книги, вместо этого нам нужно подсчитать общее количество открытых рабочих книг. Когда у нас есть счет, мы используем цикл For Next для просмотра каждой книги. Кроме того, в этом случае мы используем порядковый номер для ссылки на рабочие книги.

Обратите внимание, что в приведенном выше коде мы зацикливаемся от WbCount до 1 с шагом -1. Это необходимо, так как в каждом цикле рабочая книга закрывается, а количество рабочих книг уменьшается на 1.

Ошибка при работе с объектом рабочей книги (ошибка времени выполнения «9»)

Одна из наиболее распространенных ошибок, с которой вы можете столкнуться. при работе с рабочими книгами возникает ошибка времени выполнения «9» — нижний индекс вне допустимого диапазона.

Как правило, ошибки VBA не очень информативны и часто оставляют вам возможность выяснить, что пошло не так.

Вот некоторые из возможных причин, которые могут привести к этой ошибке:

•  Книга, к которой вы пытаетесь получить доступ, не существует. Например, если я пытаюсь получить доступ к пятой книге с помощью Workbooks(5), а открыто только 4 книги, я получу эту ошибку.
• Если вы используете неправильное имя для ссылки на книгу. Например, если имя вашей рабочей книги — Examples.xlsx, и вы используете Example.xlsx. тогда он покажет вам эту ошибку.
• Если вы не сохранили книгу и используете расширение, вы получите эту ошибку. Например, если имя вашей книги — Книга1, и вы используете имя Книга1.xlsx, не сохраняя его, вы получите эту ошибку.
• Книга, к которой вы пытаетесь получить доступ, закрыта.

Получить список всех открытых книг

Если вы хотите получить список всех открытых книг в текущей книге (книге, в которой вы запускаете код), вы можете использовать следующий код:

 Sub Получить имена рабочих книг ()
Dim wbcount как целое число
wbcount = Рабочие книги.Количество
Эта рабочая тетрадь.Рабочие листы.Добавить
ActiveSheet.Range("A1").Активировать
Для i = 1
Диапазон ("A1"). Смещение (i - 1, 0). Значение = Книги (i). Имя
Далее я
End Sub 

Приведенный выше код добавляет новый рабочий лист, а затем перечисляет имена всех открытых рабочих книг.

Если вы также хотите получить их путь к файлу, вы можете использовать следующий код:

 Sub GetWorkbookNames()
Dim wbcount как целое число
wbcount = Рабочие книги.Количество
ThisWorkbook.Worksheets. Add
ActiveSheet.Range("A1").Активировать
Для i = 1
Диапазон ("A1"). Смещение (i - 1, 0). Значение = Книги (i). Путь и "\" и Книги (i). Имя
Далее я
End Sub 

Откройте указанную книгу, дважды щелкнув ячейку

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

 Private Sub Workbook_SheetBeforeDoubleClick (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Рабочие тетради.Открыть цель.значение
End Sub 

Этот код будет помещен в окно кода ThisWorkbook.

Для этого:

• Дважды щелкните объект ThisWorkbook в проводнике проекта. Обратите внимание, что объект ThisWorkbook должен находиться в книге, в которой вы хотите использовать эту функциональность.
• Скопируйте и вставьте приведенный выше код.

Теперь, если у вас есть точный путь к файлам, которые вы хотите открыть, вы можете сделать это, просто дважды щелкнув путь к файлу, и VBA мгновенно откроет эту книгу.

Куда поместить код VBA

Хотите знать, где находится код VBA в вашей книге Excel?

Excel имеет серверную часть VBA, называемую редактором VBA. Вам необходимо скопировать и вставить код в окно кода модуля VB Editor.

Вот шаги для этого:

1. Перейдите на вкладку Разработчик.
2. Выберите параметр Visual Basic. Это откроет редактор VB в бэкэнде.
3. В панели Project Explorer редактора VB щелкните правой кнопкой мыши любой объект книги, в которую вы хотите вставить код.Если вы не видите Project Explorer, перейдите на вкладку View и нажмите Project Explorer.
4. Перейдите в раздел «Вставка» и нажмите «Модуль». Это вставит объект модуля для вашей книги.
5. Скопируйте и вставьте код в окно модуля.

Вам также могут понравиться следующие учебные пособия по Excel VBA:

Как переместить или скопировать весь лист в другую книгу Excel

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

Обратите внимание, что «Переместить» означает копирование всего листа в другую книгу и удаление скопированного листа из исходной книги. «Копия» означает дублирование всего листа в другой книге.

Шаг 1. Убедитесь, что обе рабочие книги открыты в Excel (рабочая книга, из которой копируется рабочий лист, и рабочая книга, в которую копируется или перемещается рабочий лист).

Шаг 2. Щелкните правой кнопкой мыши вкладку листа, которую вы хотите переместить или скопировать в другую книгу, и выберите «Переместить или скопировать» в меню, как показано на рисунке ниже.Обратите внимание, что имя текущей активной рабочей книги — «source_workbook.xslx», которое отображается в строке заголовка.

Шаг 2. Отобразится диалоговое окно «Переместить или скопировать», как показано на рисунке ниже. По умолчанию активная рабочая книга (рабочая книга, с которой вы работаете) выбрана в раскрывающемся меню «Переместить выбранные листы в книгу».

Шаг 3. Щелкните раскрывающееся меню «Переместить выбранные листы в книгу». Открытые в данный момент книги перечислены в раскрывающемся меню «Переместить выбранные листы в книгу».У вас также есть возможность переместить рабочий лист в новую книгу.

Шаг 4. Выполните указанные ниже действия в диалоговом окне «Переместить или скопировать», чтобы переместить или скопировать лист в другую книгу, как показано на рисунке ниже.

• Открытые в данный момент книги Excel перечислены в раскрывающемся меню «Переместить выбранные листы в книгу». Выберите рабочую книгу, в которую вы хотите скопировать рабочий лист. В этом примере рабочая книга копируется в «destination_workbook.xlsx».

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

• Выберите, хотите ли вы переместить или скопировать рабочий лист в поле «Создать копию». Если флажок установлен, рабочий лист будет скопирован. В противном случае рабочий лист будет перемещен. В этом примере флажок установлен, чтобы скопировать рабочий лист.

• Нажмите кнопку «ОК», чтобы завершить копирование или перемещение листа, как показано на рисунке ниже.

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

Как скопировать лист Excel с формулами в другую книгу (5 способов)

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

1. Скопируйте лист Excel с формулами в другую книгу, перетащив

У нас есть рабочий лист с именем Sheet1 в рабочей книге с именем Workbook_1.

Теперь мы хотим скопировать этот Sheet1 из Workbook_1 в Workbook_2.

Шаг 1: Откройте две рабочие книги на своем компьютере.

Рабочая книга, которую вы хотите скопировать, и рабочая книга, в которую вы хотите скопировать.

Шаг 2: На панели инструментов Excel, , перейдите к параметру View Side by Side на вкладке View .

Шаг 3: Выберите параметр View Side by Side . Это расположит две рабочие книги по вертикали следующим образом.

Шаг 4: Теперь нажмите Ctrl на клавиатуре и перетащите Лист1 из Workbook_1 в Workbook_2.

Она будет переименована с тем же именем в исходной книге в целевую книгу. Как и в моем случае, он был переименован как Sheet1(2) в Workbook_2.

Примечание: Если вы не нажмете Ctrl и продолжите перетаскивание, лист будет скопирован в целевую книгу, но будет потерян из исходной книги.Как Cut и Paste , которые мы делаем на наших компьютерах. Так что будьте осторожны.

Видите, вы успешно скопировали один лист Excel из одной книги в другую книгу. Все, включая формулы Workbook_1, скопировано в Workbook_2.

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

Шаг 1: Откройте рабочую книгу, из которой вы хотите скопировать лист.

Здесь я открываю Workbook_1.

Шаг 2: Щелкните маленький треугольник в верхнем левом углу рабочего листа или нажмите Ctrl + A . У вас будет выбран весь рабочий лист следующим образом:

Шаг 3: Нажмите Ctrl + C на клавиатуре .

ИЛИ

Щелкните правой кнопкой мыши и выберите Копировать .

ИЛИ

Щелкните параметр Копировать на вкладке Главная на панели инструментов Excel . См. рисунок.

Шаг 4: Вы увидите, что граница листа выделена вот так. Это означает, что вы успешно скопировали рабочий лист.

Шаг 5: Теперь откройте вторую книгу (книгу, в которую вы хотите скопировать лист) и выберите самую верхнюю левую ячейку на листе этой книги.

Здесь я открыл Sheet1 из Workbook_2 и выбрал самую верхнюю левую ячейку.

Шаг 6: Теперь нажмите Ctrl + V на клавиатуре.

ИЛИ

Щелкните правой кнопкой мыши и выберите Вставить .

ИЛИ

Выберите параметр Вставить в крайнем левом углу вкладки Главная панели инструментов Excel . См. рисунок.

Шаг 7: Вы найдете все, начиная с Листа 1 Рабочей книги_1, скопированного на Лист 1 Рабочей книги_2.

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

Если вы не хотите использовать два вышеуказанных метода, вы можете использовать этот метод для копирования одного листа из книги Excel в лист другой книги.

Шаг 1: Подведите курсор мыши к Листу 1 Рабочей книги_1.

Шаг 2: Щелкните правой кнопкой мыши.

Затем выберите параметр Переместить или скопировать .

Шаг 3 : Вы получите небольшую коробку под названием Переместить или скопировать .

Изображение 13.

Шаг 4: В параметре В книги выберите книгу, в которую вы хотите скопировать. Я хочу скопировать в workbook_2, поэтому выбираю workbook_2.

И в параметре Перед листом выберите, где вы хотите разместить лист в Workbook_1.

Я хочу поместить его перед Листом1, поэтому я выбираю Лист1.

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

Моя коробка теперь выглядит так:

Примечание: Исходная книга (Workbook_1) и конечная книга (Workbook_2) должны оставаться в одной папке на вашем компьютере. В противном случае вы не найдете рабочую книгу назначения в поле выше.

Шаг 5: После успешного выполнения вышеуказанных шагов вы обнаружите, что копия листа из исходной книги была создана в целевой книге.

Здесь, в моем случае, копия Листа 1 из Workbook_1 была создана в Workbook_2 (Sheet1(2))

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

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

Перед этим у нас есть рабочая книга Workbook_1, которая на этот раз состоит из двух рабочих листов.

Лист1 и Лист2.

На этот раз мы скопируем оба листа в Workbook_2.

Шаг 1: Откройте две рабочие книги и выберите параметр View Side на вкладке View . Это расположит две рабочие книги по вертикали следующим образом.

Шаг 2: Дважды щелкните любой лист в левом нижнем углу исходной книги. Затем нажмите Ctrl и щелкните на других листах.

Здесь я сначала щелкнул Лист 1 Рабочей книги_1, а затем Лист 2.

Если вам удастся это сделать, вы найдете Workbook_1 [Group] , написанное в самом верхнем левом углу.

Шаг 3: Нажмите Ctrl и перетащите рабочие листы в рабочую книгу назначения (Workbook_2).

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

Здесь, в моем случае, Sheet1 и Sheet2 были скопированы из Workbook_1 в Workbook_2.

5.

Давайте добавим новый столбец в наш набор данных.

Столбец E , который содержит средние оценки по физике и химии.

Следовательно, он содержит формулу:

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

Но любое изменение в Workbook_1 не приведет к такому же изменению в Workbook_2.

Например, если я изменю оценку первого ученика по физике с 75 на 77 в Рабочей тетради_1, средняя оценка изменится с 77 на 78 в Рабочей тетради_1.

Но не изменится в Workbook_2.

Тогда как исправить?

Простой. В строке формул в Workbook_1 просто вставьте имя листа (Sheet_1) перед ссылкой на ячейку.

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

Теперь внимательно посмотрите на панель функций скопированного Листа в Workbook_2.

Excel автоматически помещает имя исходной книги перед именем листа. В моем случае это [Workbook_1.xlsx] .

Итак, теперь это означает, что ссылка на ячейку теперь принадлежит Workbook_1, хотя она находится в Workbook_2.

Теперь, если мы изменим что-либо в Workbook_1, эквивалентное изменение будет сделано в Workbook_2.

Таким образом, вы можете создать ссылку между исходным рабочим листом и скопированным рабочим листом в Excel. Просто поместив [Имя листа!] перед ссылкой на ячейку в исходном листе.

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

Дополнительная литература

Как скопировать формулу в Excel между книгами без ссылок с помощью функции «Найти и заменить»

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

1. Выберите формулы, которые вы хотите скопировать.
2. Нажмите клавиши Ctrl + H , чтобы открыть окно «Найти и заменить ». Кроме того, вы можете перейти к HOME > Найти и выбрать > Заменить
3. Введите знак равенства ( = ) в поле Найти .Затем перейдите к полю Заменить на и нажмите клавишу пробела, чтобы оставить его пустым.
4. Нажмите кнопку Заменить все , чтобы заменить все одинаковые символы пробелами.
5. Если формулы все еще выделены после действия замены, скопируйте их, нажав Ctrl + C или используя меню , вызываемое правой кнопкой мыши.