Come copiare le cartelle utilizzando VBA

Visual Basic for Applications o VBA , è un linguaggio di scripting incorporato nella maggior parte delle applicazioni di Microsoft Office. Con esso, è possibile creare macro e funzioni per automatizzare diversi compiti . VBA è dotato di una vasta gamma di oggetti e funzioni che possono aiutare a lavorare con i vostri documenti più veloce ed efficiente . Con la sua classe FileSystemObject , è anche possibile modificare i file e le cartelle sul vostro computer da qualsiasi applicazione di Office . Con la creazione di un unico macro VBA e l'assegnazione di un comando da tastiera ad esso , è più facile copiare , organizzare e creare copie di backup delle cartelle . Istruzioni
1

avviare qualsiasi applicazione di Microsoft Office , come Word o Excel . Premere il tasto " Ctrl " e "N" per creare un nuovo documento . Per utilizzare un documento esistente , invece , premere il tasto " Ctrl " e "O ", selezionare il file , quindi fare clic su "Apri ".
2

Premere "" Alt " e " F11 "per aprire la visual Basic Editor o VBE . Nel pannello " Gestione progetti " , selezionare il progetto VBA che contiene il nome del file del documento.
3

Clicca su "Inserisci " e poi selezionare "Modulo ". Ciò aggiunge " Modulo1 " per la lista dei moduli nel pannello " Gestione progetti " . Fate doppio clic su " Modulo1 ", quindi inserire il seguente codice nell'editor .

CopyFolders sub ()

folderNames = Array ( " C : \\ Folder1 ", " C : \\ Folder2 " ) per

dest = " C : \\ destinazione"

For Each s In folderNames

Chiama CopyF ( s , dest & " \\ " ) per

Successivo s

End Sub
4

sostituire "C : \\ Folder1 " e "C : \\ Folder2 " . . , con le cartelle che desideri copiare per aggiungere un'altra cartella alla lista, digitare una virgola e quindi inserire il percorso completo della cartella prima della parentesi della funzione " Array " chiusura Assicurati per includere le lettere di unità e di racchiudere i percorsi tra virgolette
5

Sostituire. . "C : \\ destinazione" con il percorso completo della directory in cui vuoi inviare copie di cartelle assicurarsi per includere la lettera di unità e di racchiuderlo tra virgolette.
6

Clicca su "Inserisci " e poi selezionare "Modulo ". Ciò aggiunge " Modulo2 " per la lista dei moduli nel "Progetto Explorer " pannello. Fate doppio clic su" Modulo2 , "e quindi inserire il codice seguente nell'editor .

Public Sub CopyF ( ByVal sfol As String , ByVal dFol As String ) per

c = Len ( sfol ) - Len ( Replace ( sfol , " \\ " , " " , 1) ) per

fName = Mid ( sfol , InStr ( 1 , Application.Substitute ( sfol , " \\ " , " * " , c ) , "*" ) + 1 ) per

dest = dFol & fName

Set fso = CreateObject ( " Scripting.FileSystemObject " ) per

Se Non fso.FolderExists ( dest ) Poi

fso.CopyFolder sfol , dFol

Else

UrES = MsgBox ( dest & "esiste già . Sovrascrivere ? " , vbYesNo + vbQuestion ) per

Se UrES = vbYes Poi

fso.CopyFolder sfol , dFol

Else

GoTo endscript

End If End If

endscript :

Set fso = Nothing End Sub

7

Premere " F12 ". Inserisci il tuo nome di file preferito in " File nome " di dialogo, quindi fare clic sul menu a discesa accanto a " Salva come . "Select" Cartella di lavoro Excel con attivazione macro "( se si sta utilizzando Excel) o" Documento di Word con attivazione macro "( se si sta utilizzando Word ) . Clicca su "Salva ".
8

Premere " Alt " e " Q " per chiudere la VBE .
9

Premere " Alt " e "F8" per aprire la finestra " Macro " . Seleziona " CopyFolders " dalla lista , quindi fare clic su " Esegui ".

• Come installare VB script con Stampanti 
• Come chiamare un metodo in VB.NET