Visual Basic für Applikationen oder VBA , ist eine Skriptsprache in die meisten Microsoft Office-Anwendungen gebaut . Mit ihm können Sie Makros erstellen und Funktionen , um verschiedene Aufgaben zu automatisieren. VBA kommt mit einer Vielzahl von Objekten und Funktionen, die Ihnen helfen, Ihre Dokumente schneller und effizienter arbeiten können. Mit seiner Klasse FileSystemObject , können Sie auch manipulieren Dateien und Ordner auf Ihrem Computer überall aus jeder Office-Anwendung. Durch die Schaffung einer einzigen VBA-Makro und Zuweisen einer Tastatur Befehl , können Sie leichter zu kopieren , zu organisieren und erstellen Backups Ihrer Ordner . Anleitung
1
Starten Sie ein beliebiges Microsoft Office-Anwendung wie Word oder Excel. Drücken Sie "Strg" und "N ", um ein neues Dokument zu erstellen. Um stattdessen ein bestehendes Dokument zu verwenden, drücken Sie "Strg " und " O ", wählen Sie die Datei , und klicken Sie dann auf "Öffnen".
2
Press "," Alt "und" F11 " , öffnen Sie die Visual Basic-Editor oder VBE . auf der " Projekt-Explorer "-Panel , wählen Sie das VBA-Projekt , das den Dateinamen des Dokuments enthält .
3
Klicken Sie auf "Einfügen ", und wählen Sie dann "Module . " Dies fügt hinzu: " Module1 " in die Liste der Module in der " Projekt-Explorer "-Panel . Doppelklicken Sie auf " Module1 ", und geben Sie dann den folgenden Code in den Editor .
Sub CopyFolders ()
Ordnernamen = Array (" C: \\ Folder1 ", "C : \\ Folder2 " )
dest = "C: \\ Ziel "
For Each s im Ordnernamen
Anruf CopyF (s, dest & "\\" )
Next s
End Sub
4
Ersetzen Sie " C: \\ Folder1 " und "C: \\ Folder2 " . . den Ordner, die Sie kopieren möchten , um einen anderen Ordner zu der Liste hinzuzufügen , geben Sie ein Komma und fügen Sie anschließend den vollständigen Pfad zu dem Ordner vor der schließenden Klammer des "Array "-Funktion Seien Sie sicher, Laufwerksbuchstaben enthalten und die Pfade in Anführungszeichen
5
ersetzen . . "C: \\ Ziel " mit dem vollständigen Pfad zu dem Verzeichnis, in dem Sie gerne Kopien Ihrer Ordner senden würde Achten den Laufwerksbuchstaben aufzunehmen und ihn in Anführungszeichen setzen .
6
Klicken Sie auf "Einfügen ", und wählen Sie dann "Module . " Dies fügt hinzu: " Module2 " in die Liste der Module in der " Projekt-Explorer " Panel . Doppelklicken Sie auf " Module2 ", und geben Sie dann den folgenden Code in den Editor .
Public Sub CopyF (ByVal SFOL As String , ByVal DFOL As String)
c = Len ( SFOL ) - Len ( Replace ( SFOL , "\\" , "", 1) )
fName = Mid ( SFOL , InStr (1, Application.Substitute ( SFOL , "\\" , "*" , c ) , "*") + 1) german
dest = DFOL & fName
Set fso = CreateObject (" Scripting.FileSystemObject " ) If Not
fso.FolderExists ( dest) Dann
fso.CopyFolder SFOL , DFOL
Else
UrES = MsgBox (dest & "existiert bereits. Überschreiben ? " , vbYesNo + vbQuestion )
< p> Wenn UrES = vbYes Dann
fso.CopyFolder SFOL , DFOL
Else
GoTo EndScript
End If End If
EndScript :
Set fso = Nothing End Sub
7
Presse " F12 ". Geben Sie Ihre bevorzugte Dateinamen in das "File name " ein, und klicken Sie dann auf den Dropdown- Menü neben " Speichern als Typ . "Select" Excel -Arbeitsmappe mit Makros " ( wenn Sie mit Excel) oder" Word- Macro-Enabled Document " (wenn Sie mit Word sind ) . Klicken Sie auf "Speichern".
8
Presse "Alt" und "Q" zum Schließen des VBE .
9
Presse "Alt" und "F8 ", um öffnen Sie die "Macros "-Fenster. Wählen Sie " CopyFolders " aus der Liste aus, und klicken Sie dann auf "Ausführen".
