Datus vajadzētu dublēt regulāri, jo jebkura cita lietotāja nepareizas izmaiņas vai nejauša Excel faila dzēšana var sabojāt daudz laika un informācijas.
Šajā rakstā mēs apskatīsim, kā dublēt Excel failu, izmantojot VBA.
Šajā rakstā mēs apskatīsim divus dažādus dublēšanas veidus, izmantojot VBA kodu. Mēs esam uzrakstījuši divus makro, lai dublētu Excel failu.
Makro “SaveWorkbookBackup” izveidos Excel faila dublējumu ar paplašinājumu “.bak” tajā pašā mapē, kurā tiek saglabāta aktīvā darbgrāmata.
Makro “SaveWorkbookBackupToFloppy” D diskā izveidos aktīvās darbgrāmatas kopiju, kas darbosies kā aktīvās darbgrāmatas rezerves fails.
Koda skaidrojums
Ja nē, tad
MsgBox "Dublējuma kopija nav saglabāta!", VbExclamation, ThisWorkbook.Name
Beigas Ja
Iepriekš minētais kods tiek izmantots, lai parādītu kļūdas ziņojumu, kad makro izpildes laikā rodas kāda izpildlaika kļūda.
Ja AWB.Path = "" Tad
'Tiek parādīts dialoglodziņš Saglabāt kā failu saglabāšanai
Application.Dialogs (xlDialogSaveAs). Parādīt
Iepriekš minētais kods tiek izmantots, lai parādītu dialoglodziņu Saglabāt kā, ja fails netiek saglabāts pirms faila dublēšanas.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub SaveWorkbookBackup () Dim AWB kā darbgrāmata, BackupFileName kā virkne, i kā vesels skaitlis, labi kā Būla kļūda GoTo NotAbleToSave Set AWB = ActiveWorkbook 'Piešķirt pilnu faila ceļu gar faila nosaukumu mainīgajam BackupFileName BackupFileName = AWB.FullName fails tiek saglabāts 'Ja fails netiek saglabāts, tad faila saglabāšana If AWB.Path = "" Tad' Tiek parādīts dialoglodziņš Saglabāt kā faila saglabāšanai Application.Dialogs (xlDialogSaveAs). Parādīt citu 'Faila paplašinājuma noņemšana no faila nosaukuma i = 0 Kamēr InStr (i + 1, BackupFileName, ".")> 0 'Atrodiet faila paplašinājumu i = InStr (i + 1, BackupFileName, ".") Wend Ja i> 0, tad BackupFileName = Pa kreisi (BackupFileName, i - 1) "Papildu paplašinājuma" .bak "pievienošana ar faila nosaukumu BackupFileName = BackupFileName &" .bak "Ok = False With AWB .Save 'Faila dublējuma izveide .SaveCopyAs BackupFileName Ok = Patiesas beigas ar beigām, ja NotAbleToSave:' Kļūdu apstrādes komplekts AWB = Nekas, ja nav labi, tad MsgBox "Dublējuma kopija nav saglabāta!", VbExclamation, ThisWork book.Name Beigas Ja beigas Sub Sub SaveWorkbookBackupToFloppy () Dim AWB kā darbgrāmata, BackupFileName kā virkne, i kā vesels skaitlis, Ok kā Būla Dim diska nosaukums Virknes kļūda GoTo NotAbleToSave 'Norādiet dublēšanas ceļu D diskā DriveName = "D : \ "'Notiek mainīgo inicializēšana Set AWB = ActiveWorkbook BackupFileName = AWB.Name Ok = False' Pārbauda, vai fails ir saglabāts 'Ja fails nav saglabāts, tad faila saglabāšana If AWB.Path =" "Tad" Tiek parādīts dialoglodziņš Saglabāt kā failu saglabāšana Application.Dialogs (xlDialogSaveAs) .Parādīt citu 'Failu dzēšana, ja dublējuma fails jau pastāv Ja Dir (DriveName & BackupFileName) "" Tad Nogalināt DriveName & BackupFileName Beigas Ja ar AWB .Save' Dublējuma faila izveide .SaveCopyAs DriveName & BackupFileName Labi = Patiess beigas ar beigām, ja NotAbleToSave: 'Kods kļūdu apstrādei Iestatīt AWB = Nekas, ja nav labi, tad MsgBox "Dublējuma kopija nav saglabāta!", VbExclamation, ThisWorkbook.Name Beigas, ja beigas Apakšdaļa
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē