Visual Basic for Applications, ou VBA, é uma linguagem de script incorporado na maioria dos aplicativos do Microsoft Office . Com ele, você pode criar macros e funções para automatizar várias tarefas. VBA vem com uma grande variedade de objetos e funções que podem ajudá-lo a trabalhar com seus documentos mais rápida e eficiente . Com sua classe FileSystemObject , você também pode manipular arquivos e pastas em qualquer lugar no seu computador a partir de qualquer aplicativo do Office. Através da criação de uma única macro VBA e atribuir um comando de teclado para ele, você pode mais facilmente copiar, organizar e criar cópias de segurança de suas pastas. Instruções
1

Comece qualquer aplicativo do Microsoft Office , como o Word ou Excel. Pressione " Ctrl" e "N" para criar um novo documento. Para usar um documento existente em vez disso, pressione " Ctrl " e " O", selecione o arquivo e clique em " Abrir".
2

Pressione " " Alt " e" F11 "para abrir o editor do Visual Basic, ou VBE . no painel " Project Explorer " , selecione o projeto VBA que contém o nome do seu documento de arquivo.
3

Clique em " Inserir ", e em seguida, selecione "Módulo ". Isso adiciona " Module1 " para a lista de módulos no painel " Project Explorer " . clique duas vezes em " Module1 ", e , em seguida, insira o seguinte código no editor.

Sub CopyFolders ()

foldernames = Array ("C: \\ Pasta1 ", " C: \\ Pasta2 " )

dest = "C: \\ destino "

Para cada s Em foldernames

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

Em seguida s

End Sub
4

Substitua "C: \\ Pasta1 " e "C: \\ Pasta2 " . . com as pastas que você gostaria de copiar para adicionar outra pasta à lista , digite uma vírgula e , em seguida, insira o caminho completo para a pasta antes do parêntese de fechamento da função " matriz" Certifique-se . incluir letras de unidade e para delimitar os caminhos entre aspas
5

Substitua "C: \\ destino " com o caminho completo para o diretório onde você gostaria de enviar cópias de suas pastas Certifique-se . para incluir a letra da unidade e colocá-lo entre aspas.
6

Clique em " Inserir " e, em seguida, selecione "Módulo ". Isso adiciona " Module2 " para a lista de módulos no " Project Explorer

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

c = Len " painel. clique duas vezes em " Module2 ", e , em seguida, insira o seguinte código no editor. ( sFol ) - Len ( Replace ( sFol , "\\" , "", 1) )

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

dest = dFol & fName

Set fso = CreateObject ( " Scripting.FileSystemObject " )

Se Não fso.FolderExists ( dest ) Então

fso.CopyFolder sFol , dFol

Else

Ures = MsgBox ( dest & "já existe. Substituir ? " , vbYesNo + vbQuestion )

Se Ures = vbYes Então

fso.CopyFolder sFol , dFol

Else

GoTo EndScript

End If End If

EndScript :

Set fso = Nothing

End Sub
7

Pressione " F12 ". Digite seu nome de arquivo preferido para o "Arquivo nomear "caixa, e , em seguida, clique no menu drop -down ao lado de " Salvar como tipo ". Selecione " livro do Excel Macro- Enabled " (se você estiver usando o Excel ) ou" Documento do Word Macro- Enabled " (se você estiver usando o Word ) .
9

Pressione " Alt" Clique em " Salvar".
8

Pressione " Alt" e "Q" para fechar o VBE . e "F8" para abrir a janela " Macros " . Selecione " CopyFolders " da lista e, em seguida, clique em " Executar".