Boa tarde!
Pessoal,
Eu tenho uma pasta com 50 arquivos em excel.
Eu preciso compactar arquivo por arquivo dentro desta mesma pasta.
Gostaria que alguem pudesse me ajudar com o código em VBA para EXCEL para realizar essa atividade.
Nao da pra cada vez que for compatactar ir na pasta e compactar manualmente?????????
Se é so compatactar e ta tudo dentro de uma pasta, seleciona a pasta botao direito do mouse enviar para pasta.rar e pronto.
Marcelo Prudencio
"Começar já é a metade do caminho."
Autor Desconhecido
Simplifica que simples fica.
Nicole Tomazella.
"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.
Obrigado pela Resposta, mas eu preciso mais que isso.
Preciso que seja feito em VBA.
Eu tenho esse código que zipa todos os arquivos .xls com o nome de teste.rar... porém o que eu preciso compactar arquivo por arquivo.
Sub Zipando()
Dim ArqNome As String, ArqCom As String
ArqNome = "C:Users7797Documentstrash2014teste.rar"
arqcomp = "C:Users7797Documentstrash2014*.xls" 'Nome do Arquivo a ser compactado"
Shell "C:Program Files (x86)WinRARWinRAR a " & ArqNome & " " & arqcomp
Application.StatusBar = False
End Sub