Cómo copiar carpetas Uso de VBA

Visual Basic para Aplicaciones o VBA es un lenguaje de scripting integrado en la mayoría de las aplicaciones de Microsoft Office. Con él, usted puede crear macros y funciones para automatizar diversas tareas. VBA viene con una amplia gama de objetos y funciones que pueden ayudarle a trabajar con sus documentos de forma más rápida y eficiente. Con su clase FileSystemObject , también puede manipular los archivos y carpetas en cualquier lugar de su ordenador desde cualquier aplicación de Office. Mediante la creación de una única macro VBA y asignar un comando de teclado a la misma , puede copiar más fácilmente , organizar y crear copias de seguridad de sus carpetas. Instrucciones
1

iniciar cualquier aplicación de Microsoft Office , como Word o Excel. Pulse la tecla "Ctrl " y "N " para crear un nuevo documento. Para utilizar un documento existente en cambio, pulse la tecla "Ctrl " y "O ", seleccione el archivo y, a continuación, haga clic en " Abrir".
2

Press "," Alt "y " F11 "para abrir el Editor de Visual Basic, o VBE . sobre el " Explorador de proyectos " del panel, seleccione el proyecto de VBA que contiene el nombre de archivo del documento.
3

Haga clic en "Insertar " y, a continuación, seleccione "Módulo ". Esto añade "Module 1 " a la lista de módulos en el " Explorador de proyectos " del panel. Haga doble clic en "Module 1 ", y luego introduzca el siguiente código en el editor.

CopyFolders Sub ()

foldernames = Array ("C: \\ Folder1 " , "C : \\ Carpeta2 " )

dest = "C : \\ destino "

For Each s En foldernames

Call CopyF ( s , dest & " \\ " )

Siguiente s

End Sub
4

Sustituir " C: \\ Folder1 " y "C: \\ Carpeta2 " . . con las carpetas que desee copiar para agregar otra carpeta a la lista, escriba una coma y luego insertar la ruta completa a la carpeta antes del paréntesis de cierre de la función "Array" Asegúrese para incluir las letras de unidad y de incluir las rutas entre comillas
5

Reemplazar. . "C: \\ destino " con la ruta completa al directorio en el que desea enviar copias de las carpetas Asegúrese para incluir la letra de la unidad y para encerrarlo entre comillas.
6

Haga clic en "Insertar " y luego seleccione " Módulo ". Esto añade " Módulo 2 " a la lista de módulos en el " Explorador de proyectos " panel. Haga doble clic en " Módulo 2 ", y luego introduzca el siguiente código en el editor.

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

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

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

dest = dFol y fname

Set fso = CreateObject ( " Scripting.FileSystemObject " )

Si No fso.FolderExists ( dest ) Entonces

fso.CopyFolder sfol , dFol

demás

Ures = MsgBox ( dest & " ya existe. Overwrite ? " , vbYesNo + vbQuestion )
< p> Si Ures = vbYes Entonces

fso.CopyFolder sfol , dFol

demás

GoTo EndScript

End If End If

EndScript :

Set fso = Nothing End Sub

7

Presione " F12 ". Escribe tu nombre de archivos preferido en el "Archivo nombre "y, a continuación, haga clic en el menú desplegable junto a" Guardar como tipo ". Seleccione" libro de Excel habilitado para macros "(si estás utilizando Excel) o" Word Document Macro- Enabled " ( si está usando Word ) . Haga clic en " Guardar".
8

Pulse " Alt" y " Q " para cerrar el VBE .
9

Pulse " Alt " y "F8" para abrir la ventana " Macros " . Seleccione " CopyFolders " de la lista y, a continuación, haga clic en " Ejecutar".