В тази статия ще ви покажем 5 методи на използване Excel VBA към спаси и затваряне на работната книга Тъй като времето е много ценно, можем да спестим много време, като прескочим обикновените задачи, използвайки Excel VBA . Освен това взехме набор от данни, състоящ се от 3 колони : " Име ", " Роден на ", и " Последна работа ". Този набор от данни представлява 6 годината на раждане на хората и последната им информация за филма.

Изтегляне на работна тетрадка за практика

VBA за запазване и затваряне на работна книга.xlsm

5 примера за запазване и затваряне на работна книга с помощта на VBA в Excel

1. Запазване и затваряне на активна работна книга с помощта на Excel VBA

За първия метод ще използваме спаси и затворете на Активна работна книга използване на Макрос на VBA . Ще повдигнем въпроса за Модул VBA прозорец, въведете нашия код и след това изпълнете кода, за да постигнем целта си. Без повече приказки нека преминем към процедурата стъпка по стъпка.

Стъпки:

Преди да въведем нашия код, трябва да извикаме Модул VBA . За да направите това -

• Първо, от Разработчик tab>>> изберете Visual Basic .

Като алтернатива можете да натиснете ALT + F11 да направите и това. " Microsoft Visual Basic за приложение " ще се появи след това.

• Второ, от Вмъкване на >>> изберете Модул .

Тук ще въведем нашия код.

• Трето, въведете следния код в Модул .

 Sub Save_and_Close_Active_Workbook() ActiveWorkbook.Close SaveChanges:=True End Sub 

Разбивка на кода VBA

• Първо, извикваме нашия Подпроцедура Save_and_Close_Active_Workbook .
• След това се позоваваме на текущата си Работна тетрадка като ActiveWorkbook .
• След това използвайте Затвори метод сме затваряне на нашия файл.
• Накрая зададохме SaveChanges към Истински , което ще спаси нашите Работна тетрадка на затваряне на .

Сега ще изпълним нашия код.

• Първо, Запазете този Модул .
• Второ, щракнете върху вътрешността на нашия код.
• Накрая натиснете бутона Изпълнявайте бутон.

Ако отидем в нашия Приложение на Excel , ще видим нашите Работна тетрадка е затворена. Така успешно запазено и затворен на Работна тетрадка използване на Excel VBA .

Прочетете още: Как да запазите макрос за всички работни книги в Excel (с лесни стъпки)

2. Excel VBA за запазване и затваряне на определена работна книга

За втория метод ще използваме спаси и затворете конкретен Работна тетрадка използване на друг VBA код. Тук сме отворили две Работни книги и ние ще спаси и затворете първият Работна тетрадка от лявата страна.

Стъпки:

• Първо, както е показано в метод 1 , изведете Модул VBA .
• Второ, въведете този код вътре в него Модул .

 Sub Save_and_Close_Specific_Workbook() Workbooks("Macro Save and Close.xlsm").Close SaveChanges:=True End Sub 

Разбивка на кода VBA

• Първо, извикваме нашия Подпроцедура Save_and_Close_Specific_Workbook .
• След това се обръщаме към първата ни Работна тетрадка вътре в Обект "Работни книги .
• След това използвайте Затвори метод сме затваряне на нашия файл.
• Накрая зададохме SaveChanges към Истински , което ще спаси нашите Работна тетрадка на затваряне на .

• Трето, както е показано в метод 1 , изпълнете кода.

След това ще видим, че първият Работна тетрадка е затворен и само втората Работна тетрадка е отворен . Затова ви показахме още един метод за спестяване и затваряне на a Работна тетрадка .

Прочетете още: Excel VBA: Запазване на лист като нова работна книга без отваряне

3. Запазване и затваряне на определена работна книга в определена папка

За третия метод ще използваме спаси и затворете a специфична работна книга в папка използване на Excel VBA .

Стъпки:

• Първо, както е показано в метод 1 , изведете Модул VBA .
• Второ, въведете този код вътре в него Модул .

 Sub Save_and_Close_Workbook_in_Specific_Folder() Workbooks("Macro Save and Close.xlsm").SaveAs _ Filename:="C:\Users\Rafi\OneDrive\Desktop\Exceldemy\Macro Save and Close.xlsm" Workbooks("Macro Save and Close.xlsm").Close End Sub 

Разбивка на кода VBA

• Първо, извикваме нашия Подпроцедура Save_and_Close_Workbook_in_Specific_Folder .
• След това използвайте SaveAs метод сме спестяване нашия файл на определено място.
• След това запазваме името на файла същото като оригиналното Работна тетрадка .
• И накрая, ние затворете нашия Работна тетрадка .

• Трето, както е показано в метод 1 , изпълнете кода.

След това ще спаси нашия Работна тетрадка в определеното местоположение на папката и затворете го. Така, ние ви показахме друг метод на спестяване и затваряне Workbook в конкретна папка използване на VBA .

Прочетете още: Excel VBA макрос за запазване на PDF в определена папка (7 идеални примера)

Подобни четива

• Excel VBA: Запазване на работна книга без покана (с лесни стъпки)
• [Поправено!] Защо Excel не запазва форматирането ми? (7 възможни причини)
• Как да запазите Excel като PDF пейзаж (с бързи стъпки)
• Excel VBA за запазване като файл, използвайки път от клетката (с бързи стъпки)
• [Поправено!] Excel CSV файл не запазва промените (6 възможни решения)

4. Вмъкване на бутон за запазване и затваряне на работна книга в Excel

За четвъртия метод ще създадем Бутон VBA за затваряне и запазване на Работна книга в Excel.

Стъпки:

• Първо, както е показано в метод 1 , изведете Модул VBA .
• Второ, въведете този код вътре в него Модул .

 Sub Button_Click_Save_and_Close_Workbook() ThisWorkbook.Save Application.Quit End Sub 

Разбивка на кода VBA

• Първо, извикваме нашия Подпроцедура Бутон_Click_Save_and_Close_Workbook .
• След това използвайте Запазете метод сме спестяване нашата работна книга
• И накрая, ние затворете нашия Работна тетрадка като използвате Напуснете метод.

Сега ще вмъкнем VBA тук.

• Първо, от Разработчик tab>>> Вмъкване на >>> изберете Бутон (Контрол на формуляра) .

• След това курсорът на мишката ще се промени и ще плъзне кутия вътре в Работна тетрадка .

След това Диалогов прозорец Задаване на макроси ще се появи.

• След това изберете " Бутон_Click_Save_and_Close_Workbook ".
• След това натиснете OK .

След това ще видим Бутон 1 в Работна тетрадка .

• Накрая щракнете върху бутона.

Това ще спаси и затворете нашия Работна тетрадка .

Прочетете още: VBA код за бутон за запазване в Excel (4 варианта)

5. Записване и затваряне на всички отворени работни книги с помощта на Excel VBA

В този последен метод ще запазим и затворим всички отворени Работни книги . Този път имаме същите две Работни книги както при метода 3 , но този път ще спаси и затворете и двете Работни книги . Тук ще използваме цикълът For Next да преминете през нашия Работни книги .

Стъпки:

• Първо, както е показано в метод 1 , изведете Модул VBA .
• Второ, въведете този код вътре в него Модул .

 Sub CloseAndSaveOpenWorkbooks() Dim z As Workbook With Application For Each z In Workbooks With z If Not z.ReadOnly Then .Save End If If .Name ThisWorkbook.Name Then .Close End If End With Next z .Quit End With End Sub 

Разбивка на кода VBA

• Първо, извикваме нашия Подпроцедура CloseAndSaveOpenWorkbooks .
• След това използваме За следващия цикъл за да преминете през всички Работни книги .
• След това използвайте Запазете метод сме спестяване нашите файлове.
• След това затворете всички Работни книги с изключение на текущия ни Работна тетрадка .
• Накрая имаме затворен оригиналът Работна тетрадка като използвате Напуснете собственост.

• Трето, както е показано в метод 1 , изпълнете кода.

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

Прочетете още: Как да запишете макрос в лична работна книга за макроси?

Заключение

Показахме ви 5 бърз и лесен за разбиране Excel VBA към спаси и затваряне на работната книга Ако срещнете някакви проблеми, не се колебайте да коментирате по-долу. Освен това можете да посетите нашия сайт Exceldemy за повече Свързани с Excel статии. Благодаря за четенето, продължавайте да се усъвършенствате!