Visual Basic for Applications kopiëren , of de VBA , is een scripttaal die is ingebouwd in de meeste Microsoft Office-toepassingen . Met het, kunt u macro's en functies om verschillende taken te automatiseren . VBA wordt geleverd met een breed scala van objecten en functies die u kunnen helpen met uw documenten sneller en efficiënter . Met zijn FileSystemObject klasse , kunt u ook bestanden en mappen te bewerken overal op uw computer vanuit elke Office-toepassing . Door het creëren van een VBA- macro en het toewijzen van een toetsenbord commando om het, kunt u gemakkelijker te kopiëren , te organiseren en maak back-ups van uw mappen . Instructies
1 Start elke Microsoft Office-toepassing , zoals Word of Excel . Druk op " Ctrl " en " N " om een nieuw document te maken . Als u een bestaand document wilt gebruiken, drukt u op " Ctrl " en " O ", selecteer het bestand en klik op 'Openen'.
Druk op 2 " " Alt " en " F11 " om te openen de Visual Basic Editor , of VBE . op de " project Explorer " -paneel , selecteert u het VBA-project dat de bestandsnaam van het document bevat .
Klik 3 op ' Invoegen ' en selecteer vervolgens " Module . " Dit voegt " Module1 " om de lijst van modules in het " Project Explorer " paneel . Dubbelklik op " Module1 , " en voer de volgende code in de editor . Sub CopyFolders ( ) op Twitter mapnamen
= Array ( " C : \\ Folder1 " , " C : \\ Map2 " ) op Twitter dest = " C : \\ bestemming "
voor Elke s In mapnamen < br > Call CopyF ( s , dest & " \\ " ) Volgende s End Sub
4
Vervang " C : \\ Folder1 " en " C : \\ Map2 " . . met de mappen die u wilt kopiëren naar een andere map aan de lijst toe te voegen , typt u een komma en plaats vervolgens het volledige pad naar de map voordat het haakje sluiten van de functie " Array " Vergeet om stationsletters te nemen en de paden tussen aanhalingstekens
5 vervangen . . ' C : \\ bestemming " met het volledige pad naar de map waarin u wilt kopieën van uw mappen te sturen Vergeet om de stationsletter te nemen en deze tussen aanhalingstekens .
6 Klik op ' Invoegen ' en selecteer vervolgens ' Module . " Dit voegt " Module2 "om de lijst van modules in het " Project Explorer
c = Len " paneel . Dubbelklik op " Module2 , " en voer de volgende code in de editor . Public Sub CopyF
( ByVal sfol als Koord , ByVal dFol als Koord ) ( sfol ) - Len (Replace ( sfol , " \\ " , " " , 1 ) ) op Twitter fname = Mid ( sfol , InStr ( 1 , Application.Substitute ( sfol , " \\ " , " * " , c ) , " * " ) + 1 ) op Twitter dest = dFol & fname
Set fso = CreateObject ( " Scripting.FileSystemObject " ) op Twitter If Not fso.FolderExists ( dest ) dan fso.CopyFolder sfol
, dFol
Else gelen
= MsgBox ( dest & " bestaat reeds . overschrijven ? ' , vbYesNo + vbQuestion ) op Als gelen = vbYes dan fso.CopyFolder sfol
, dFol
Else GoTo EndScript End
Als End
Als EndScript :
Set fso = Nothing End Sub
Press 7
" F12 ". Vul uw gewenste bestandsnaam in het " file naam " vak en klik vervolgens op het drop - down menu naast" Opslaan als type . "Select " Excel -werkmap met macro " ( als je gebruik maakt Excel ) of " Word Macro - Enabled Document " ( als u gebruik maakt Word ) . Klik op 'Opslaan'.
Press 8 " Alt " en " Q " aan de VBE sluiten .
Druk " Alt " en " F8 " tot 9 open het venster " Macro's " . Selecteer " CopyFolders " uit de lijst , en klik dan op " Uitvoeren . "
|
