Ako kopírovať zložky pomocou VBA

Visual Basic for Applications alebo VBA , je skriptovací jazyk vstavaný do väčšiny aplikácií systému Microsoft Office . S ním môžete vytvárať makrá a funkcie pre automatizáciu rôznych úloh . VBA prichádza s širokú škálu objektov a funkcií , ktoré vám pomôžu pracovať s dokumentmi rýchlejšie a efektívnejšie . Vďaka FileSystemObject triedy , môžete tiež pracovať so súbormi a priečinky kdekoľvek na počítači v rámci ľubovoľnej aplikácie balíka Office . Vytvorením jednotného makrá VBA a priradenie príkazu klávesnica na to , môžete ľahšie kopírovať , organizovať a vytvárať zálohy svojich zložiek . Pokyny dovolená 1

Spustite program balíka Microsoft Office , ako je Word alebo Excel . Stlačte tlačidlo " Ctrl " a " N " pre vytvorenie nového dokumentu . Ak chcete namiesto toho použiť existujúci dokument , stlačte " Ctrl " a " O " , vyberte súbor a potom kliknite na " Otvoriť " .
2

Stlačením tlačidla " " Alt " a " F11 " pre otvorenie editor jazyka Visual Basic , alebo VBE . na paneli " Project Explorer " , vyberte projekt VBA , ktorý obsahuje názov súboru dokumentu .
3

Kliknite na " Vložiť " a potom vyberte " Modul . " To pridáva " Module1 " do zoznamu modulov v paneli " Prehliadač projektu " . Double - kliknite na " Module1 , " a potom zadajte nasledujúci kód do editora .

Sub CopyFolders ( )

folderNames = Array ( " C : \\ Složka1 " , " C : \\ Složka2 " )

dest = " C : \\ cieľ "

Pre každý to v folderNames

Volajte CopyF ( y , dest & " \\ " )

Ďalšie s

End Sub
4

Nahradiť " C : \\ Složka1 " a " C : \\ Složka2 " .. so zložkami , ktoré by ste chceli skopírovať Ak chcete pridať ďalšie zložky do zoznamu , zadajte čiarku a potom vložte úplnú cestu k priečinku pred uzatvárací zátvorka funkcie " Array " Uistite sa , že . zahrnúť písmená a uzavrite cesty do úvodzoviek
5

Nahradiť " C : \\ cieľovú " s úplnú cestu k adresáru , kde by ste chceli poslať kópie vašich zložiek Uistite sa , že . obsahovať písmeno jednotky a uzavrite ho do úvodzoviek.
6

Kliknite na " Vložiť " , a potom zvoľte " modul " . To dodáva " Module2 " do zoznamu modulov v " Project Explorer " panel . Double - kliknite na " Module2 , " a potom zadajte nasledujúci kód do editora .

Public Sub CopyF ( byVal Sfol As String , byVal dFol As String )

c = Ľan ( Sfol ) - Ľan ( Nahradiť ( Sfol , " \\ " , " " , 1 ) )

fname = Mid ( Sfol , Instru ( 1 , Application.Substitute ( Sfol , " \\ " , " * " , c) , " * " ) + 1 )

dest = dFol & fname

Set FSO = CreateObject ( " Scripting.FileSystemObject " )

Ak nie fso.FolderExists ( dest ) Potom

fso.CopyFolder Sfol , dFol

Else

renie = MsgBox ( dest a " už existuje . Prepísať ? " , vbYesNo + vbQuestion )

Ak renie = vbYes Potom

fso.CopyFolder Sfol , dFol

Else

GoTo EndScript

End If

End If

EndScript :

Set FSO = Nothing

End Sub
7

Stlačte tlačidlo " F12 " . Zadajte svoj ​​preferovaný názov súboru do poľa " File meno " pole , a potom kliknite na rozbaľovaciu ponuku vedľa " Uložiť ako typ . " Zvoľte " Excel Macro - Enabled zošit " ( ak používate Excel ) alebo " Word s podporou maker " ( ak používate program Word ) . Kliknite na " Uložiť " .
8

Stlačte " Alt " a " Q " pre zatvorenie VBE .
9

stlačte " Alt " a " F8 " na otvorte okno " makrá " . Vyberte " CopyFolders " zo zoznamu , a kliknite na tlačidlo " Run " .

• Predchádzajúca strana: Ako nainštalovať VB skripty s tlačiarňami 
• Ďalšia strana: Ako volať metódu vo VB.NET