Треба правити резервне копије података у редовним временским интервалима јер свака погрешна измена другог корисника или случајно брисање екцел датотеке може покварити много времена и информација.
У овом чланку ћемо покрити како направити резервну копију Екцел датотеке помоћу ВБА.
У овом чланку ћемо покрити два различита начина прављења резервне копије помоћу ВБА кода. Написали смо два макроа за прављење резервне копије Екцел датотеке.
Макро „СавеВоркбоокБацкуп“ ће направити резервну копију Екцел датотеке са наставком „.бак“ у истој фасцикли у којој је сачувана активна радна свеска.
Макро „СавеВоркбоокБацкупТоФлоппи“ ће створити копију активне радне свеске у погону Д која ће деловати као резервна датотека за активну радну свеску.
Објашњење кода
Ако није у реду онда
МсгБок "Резервна копија није сачувана!", ВбЕкцламатион, ТхисВоркбоок.Наме
Крај Ако
Горњи код се користи за приказивање поруке о грешци, када дође до неке грешке у току извођења макроа.
Ако је АВБ.Патх = "" Онда
'Приказ дијалога Сачувај као за чување датотеке
Апплицатион.Диалогс (клДиалогСавеАс) .Схов
Горњи код се користи за приказивање дијалога Сачувај као, ако датотека није сачувана пре прављења резервне копије датотеке.
Молимо следите доле за код
Опција Експлицитан Суб СавеВоркбоокБацкуп () Затамни АВБ као радну свеску, БацкупФилеНаме као низ, и као цео број, у реду као логичко при грешци Иди на НотАблеТоСаве Постави АВБ = АцтивеВоркбоок 'Доделите пуну путању датотеке дуж назива датотеке променљивој БацкупФилеНаме БацкупФилеНаме = АВБ. датотека је сачувана 'Ако датотека није сачувана, онда сачувајте датотеку Ако АВБ.Патх = "" Затим "Приказ Сачувај као дијалошки оквир за чување датотеке Апплицатион.Диалогс (клДиалогСавеАс). Прикажи још' Уклањање екстензије датотеке из имена датотеке и = 0 Док ИнСтр (и + 1, БацкупФилеНаме, ".")> 0 'Пронађи екстензију датотеке и = ИнСтр (и + 1, БацкупФилеНаме, ".") Венд Иф и> 0 Онда БацкупФилеНаме = Лефт (БацкупФилеНаме, и - 1) 'Додавање сигурносне копије екстензије ".бак" са именом датотеке БацкупФилеНаме = БацкупФилеНаме & ".бак" Ок = Фалсе Витх АВБ .Саве' Креирање резервне копије датотеке .СавеЦопиАс БацкупФилеНаме Ок = Труе Енд Витх Енд Иф НотАблеТоСаве: 'Код за руковање грешком АВБ = Ништа ако није у реду Онда МсгБок "Резервна копија није сачувана!", ВбЕкцламатион, ТхисВорк боок.Наме Енд Иф Енд Суб Суб СавеВоркбоокБацкупТоФлоппи () Дим АВБ као радна свеска, БацкупФилеНаме Ас Стринг, и Ас Интегер, Ок Ас Боолеан Дим ДривеНаме Ас Стринг Он Грешка ГоТо НотАблеТоСаве 'Одредите путању за прављење резервне копије на Д погону ДривеНаме = "Д : \ "'Иницијализација променљивих Постави АВБ = АцтивеВоркбоок БацкупФилеНаме = АВБ.Наме У реду = Нетачно' Провера да ли је датотека сачувана 'Ако датотека није сачувана, сачувајте датотеку Ако АВБ.Патх =" "Затим' Приказ Сачувај као дијалог за чување датотека Апплицатион.Диалогс (клДиалогСавеАс) .Схов Елсе 'Брисање датотеке ако датотека резервне копије већ постоји Ако Дир (ДривеНаме & БацкупФилеНаме) "" "Затим убијте ДривеНаме & БацкупФилеНаме Енд Иф Витх АВБ .Саве" Креирање сигурносне копије датотеке .СавеЦопиАс ДривеНаме и ДривеНаме Ок = Труе Енд Витх Енд Иф НотАблеТоСаве: 'Код за руковање грешкама Поставите АВБ = Ништа ако није у реду Онда МсгБок "Сигурносна копија није сачувана!", ВбЕкцламатион, ТхисВоркбоок.Наме Крај ако је Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште