Ao programar em Microsoft Office Visual Basic for Applications ( VBA ) , às vezes é necessário para abrir ou chamar outros programas de dentro do Word , Excel ou Access. A maneira mais fácil de realizar esta tarefa é através do comando VBA SHELL. Este comando inicia o Windows ou outro programa de linha de comando para executar independente do programa Office. Uma vez que o outro programa está em execução, o programa do Office pode continuar a executar outras tarefas. Use uma técnica fácil de executar Winzip e arquivar um conjunto de arquivos usando um formulário do Microsoft Access. Coisas que você precisa
Microsoft Access 2000 ou posterior
WinZip
Mostrar Mais instruções
1

Abra Microsoft Access ( 2000 ou posterior) e criar um novo banco de dados chamado ZipSample .
2

Criar um novo formulário independente chamado ZipForm . Este formulário não tem tabela associada a ele. Em vez disso , ele irá aceitar pastas e arquivos zip nomes digitados pelo usuário , em seguida, zip os arquivos quando o botão é clicado.
3

Adicione duas caixas de texto e um botão no formulário. < Br >

Nomeie a caixa de texto em primeiro lugar " folderName " e dar-lhe a legenda "Folder : "

Nome segunda caixa de texto " ZipFile " e dar-lhe a legenda "Arquivo Zip : "

Alterar o rótulo do botão para "Zip ".
4

botão direito do mouse sobre o botão Zip e escolha Construir seguido por CODE. Isso abrirá a janela do Visual Basic com um novo método vazio. Dentro do corpo do método ( na linha em branco acima End Sub ) digite o seguinte código :

SHELL " " "c: \\ Arquivos de programas \\ WinZip \\ winzip32 " "- min - a- r" e ZipFile & "" & NomePasta & " \\ * * "

Quando avaliada pelo intérprete VBA , este código vai passar o seguinte texto para o interpretador de comandos :

. " c: \\ Program Files \\ WinZip \\ winzip32 " - min - a - r zipfile.zip folderName \\ * *

WinZip pode funcionar com um número de parâmetros de linha de comando. . Neste caso , o comando está pedindo WinZip para adicionar todos os arquivos na pasta folderName ao zipFile.zip arquivo . A - min argumento diz WinZip para executar minimizado ( no fundo) , -a indica que é para adicionar arquivos ao arquivo e - r indica que todos os arquivos em subpastas dentro dessa pasta também deve ser adicionado. Consulte o site da WinZip (consulte Recursos ) para as opções de linha de comando e uma lista completa de argumentos de linha de comando.
5

Salvar e fechar a janela do Visual Basic, salvar o formulário em seguida, mudar para formar vista. O formulário irá aparecer com as duas caixas de texto e um botão. Preencha o formulário e clique no botão Zip para testar o formulário.