Visual Basic for Applications , eller VBA , er et skriptspråk som er innebygd i de fleste Microsoft Office-programmer . Med det kan du lage makroer og funksjoner for å automatisere ulike oppgaver . VBA leveres med et bredt utvalg av objekter og funksjoner som kan hjelpe deg å arbeide med dine dokumenter raskere og mer effektivt. Med sin FileSystemObject klasse, kan du også manipulere filer og mapper hvor som helst på datamaskinen din fra hvilken som helst Office-program . Ved å opprette en enkelt VBA makro og tildele et tastatur kommando til det, kan du lettere kopiere , organisere og lage sikkerhetskopier av dine mapper. Instruksjoner
en

Start hvilken som helst Microsoft Office-program , for eksempel Word eller Excel. Trykk "Ctrl " og " N " for å opprette et nytt dokument . For å bruke et eksisterende dokument i stedet , trykk " Ctrl" og " O ", velg filen, og klikk deretter på " Åpne".
2

Press "," Alt "og" F11 "for å åpne Visual Basic-redigering , eller VBE . på "Project Explorer " panel , velg VBA -prosjektet som inneholder filen navnet på dokumentet.
3

Klikk på "Sett inn ", og deretter velge "Modul . " Dette legger " Module1 " til listen over moduler i "Project Explorer " panel . Dobbeltklikk på " Module1 ", og skriv deretter inn følgende kode inn i editoren .

Gå CopyFolders ()

folderNames = Array ( "C : \\ 1 Mappe ", " C : \\ mappe2 ")

dest = "C : \\ omgivelse"

For hver s I folderNames

Ring CopyF ( s , mott & " \\" )

Neste s

End Sub
4

Erstatt " C : \\ 1 Mappe " og "C : \\ mappe2 " . . med de mappene du ønsker å kopiere å legge til en annen mappe i listen , skriver du et komma og så sette inn den fullstendige banen til mappen før den avsluttende parentesen av " Array "-funksjonen Pass å inkludere stasjonsbokstaver og å legge banene i anførselstegn
5

Erstatt. . "C : \\ omgivelse" med den fullstendige banen til katalogen der du har lyst til å sende kopier av mappene Pass å inkludere stasjonsbokstav og å legge den i anførselstegn.
6

Klikk på " Insert " og deretter velge " Module . " Dette legger " Module2 " til listen over moduler i "Project Explorer "panel . Dobbeltklikk på" Module2 ", og skriv deretter inn følgende kode inn i editoren .

Public Sub CopyF ( ByVal sFol As String , ByVal dFol As String )

c = Len ( sFol ) - Len ( Erstatt ( sFol , "\\ ", "" , 1 ) )

fname = Mid ( sFol , InStr ( 1 , Application.Substitute ( sFol , "\\ ", " *" , c ) , "*" ) + 1 )

dest = dFol & fname

Set FSO = CreateObject ( " Scripting.FileSystemObject ")
p Hvis ikke fso.FolderExists ( dest ) Så

fso.CopyFolder sFol , dFol

Else

tiltak = MsgBox ( dest & " allerede eksisterer. overskriving ? " , vbYesNo + vbQuestion )
< p> Hvis Ures = vbYes Deretter

fso.CopyFolder sFol , dFol

Else

GoTo EndScript

End If

End If

EndScript : en

Set FSO = Ingenting

End Sub
7

Trykk " F12 . " Skriv din foretrukne filnavnet inn i " File navnet " -boksen, og klikk deretter på rullegardinmenyen ved siden av" Lagre som type. " Select " makroaktivert Excel- arbeidsbok " ( hvis du bruker Excel ) eller" Word Macro -Enabled dokument " ( hvis du bruker Word ) . Klikk på " Lagre".
8

Trykk " Alt" og " Q " for å lukke VBE .
9

Trykk " Alt" og " F8 " til åpne " Makroer "-vinduet. Velg " CopyFolders " fra listen , og klikk deretter på "Kjør".