Πώς να αντιγράψετε φακέλους που χρησιμοποιούν VBA

Visual Basic for Applications ή VBA , είναι μια γλώσσα scripting ενσωματωμένη περισσότερες εφαρμογές του Microsoft Office . Με αυτό , μπορείτε να δημιουργήσετε μακροεντολές και λειτουργίες για την αυτοματοποίηση διαφόρων εργασιών . VBA έρχεται με μια μεγάλη ποικιλία από αντικείμενα και τις λειτουργίες που μπορούν να σας βοηθήσουν να εργαστείτε με τα έγγραφά σας πιο γρήγορα και πιο αποτελεσματικά . Με την κατηγορία της FileSystemObject , μπορείτε επίσης να χειριστείτε τα αρχεία και τους φακέλους οπουδήποτε στον υπολογιστή σου μέσα από οποιαδήποτε εφαρμογή του Office . Με τη δημιουργία ενός ενιαίου μακροεντολή VBA και την ανάθεση εντολής πληκτρολόγιο σε αυτό, να μπορείτε πιο εύκολα να αντιγράψετε , να οργανώσετε και να δημιουργήσετε αντίγραφα ασφαλείας των φακέλων σας . Οδηγίες
Η 1

Ξεκινήστε οποιαδήποτε εφαρμογή του Microsoft Office , όπως το Word ή το Excel . Πατήστε το πλήκτρο " Ctrl " και " N " για να δημιουργήσετε ένα νέο έγγραφο . Για να χρησιμοποιήσετε ένα υπάρχον έγγραφο αντ 'αυτού, πατήστε το πλήκτρο " Ctrl " και " O ", επιλέξτε το αρχείο και στη συνέχεια κάντε κλικ στο "Άνοιγμα ". 2

Πιέστε το πλήκτρο " " Alt "και" F11 "για να ανοίξετε το Visual Basic, ή VBE . σχετικά με το " Εξερεύνηση έργου " πίνακα , επιλέξτε το έργο VBA που περιέχει το όνομα αρχείου του εγγράφου σας .
εικόνων 3

Κάντε κλικ στο "Εισαγωγή ", και στη συνέχεια επιλέξτε " Ενότητα . " Αυτό προσθέτει " Module1 " στον κατάλογο των μονάδων στην " Εξερεύνηση έργου " πάνελ. κάντε διπλό κλικ στο " Module1 , " και στη συνέχεια πληκτρολογήστε τον παρακάτω κώδικα στο πρόγραμμα επεξεργασίας .

Sub CopyFolders ( )

folderNames = Array ( " C : \\ φάκελος1 " , " C : \\ folder2 " )

dest = " C : \\ περίγυρο»

Για κάθε s Σε folderNames

Καλέστε CopyF ( s , dest & "\\" )

Επόμενο s

End Sub
Η 4

Αντικαταστήστε το " C : \\ φάκελος1 » και " C : \\ folder2 " . . με τους φακέλους που θέλετε να αντιγράψετε για να προσθέσετε έναν άλλο φάκελο στη λίστα , πληκτρολογήστε ένα κόμμα και στη συνέχεια τοποθετήστε την πλήρη διαδρομή προς το φάκελο πριν από την παρένθεση της λειτουργίας " Array " να είστε βέβαιος . να περιλαμβάνουν γράμματα μονάδας δίσκου και να επισυνάψουν τα μονοπάτια σε εισαγωγικά
5

Αντικαταστήστε το " C : \\ περίγυρο» σύμφωνα με την πλήρη διαδρομή προς τον κατάλογο όπου θέλετε να στείλετε αντίγραφα των φακέλων σας να είστε βέβαιος . να συμπεριλάβει το γράμμα της μονάδας δίσκου και να το βάλετε μέσα σε εισαγωγικά .
Η

6 Κάντε κλικ στο "Εισαγωγή ", και στη συνέχεια επιλέξτε " Ενότητα . " Αυτό προσθέτει " Module2 " στον κατάλογο των μονάδων στην " Εξερεύνηση έργου "πάνελ. κάντε διπλό κλικ στο " Module2 , "και στη συνέχεια πληκτρολογήστε τον παρακάτω κώδικα στο πρόγραμμα επεξεργασίας .

Public Sub CopyF ( ByVal sFol As String , ByVal dFol Όπως String )

c = Len ( sFol ) - Len ( Αντικατάσταση ( sFol , " \\ " , "" , 1 ) )

ΟΝΟΜΑ = Mid ( sFol , InStr ( 1 , Application.Substitute ( sFol , " \\ " , " * " , γ ) " * " ) + 1 )

dest = dFol & ΟΝΟΜΑ

Ορισμός FSO = CreateObject ( " Scripting.FileSystemObject " )

Αν όχι fso.FolderExists ( dest ) Στη συνέχεια

fso.CopyFolder sFol , dFol

Else

Ures = MsgBox ( dest & "υπάρχει ήδη . Αντικατάσταση ; " , vbYesNo + vbQuestion )

Αν Ures = vbYes τότε

fso.CopyFolder sFol , dFol

Else

GoTo EndScript

End If

End If

EndScript :

Set FSO = Τίποτα

End Sub
Η 7

Πατήστε " F12 ". Πληκτρολογήστε το προτιμώμενο όνομα του αρχείου σας στο « αρχείο το όνομα "κουτί , και στη συνέχεια κάντε κλικ στο drop-down μενού δίπλα στο" Αποθήκευση ως τύπου . "Επιλογή" Excel Macro - Enabled βιβλίου εργασίας " ( αν είστε με τη χρήση του Excel ) ή " Το Word Document με ενεργοποίηση μακροεντολών " ( αν είστε με τη χρήση του Word ) . Κάντε κλικ στο " Αποθήκευση".
8

Πατήστε το πλήκτρο " Alt " και " Q " για να κλείσετε το VBE .
Η

9 Πατήστε το πλήκτρο " Alt " και " F8" για να ανοίξτε το " Μακροεντολές " παράθυρο . Επιλέξτε " CopyFolders " από τη λίστα , και στη συνέχεια κάντε κλικ στο " Run".
Η
εικόνων