Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro compactar arq...
 
Notifications
Clear all

Macro compactar arquivo - Erro

 
2024 - VBA & Macros
Post Recente por engeel2014 10 anos atrás
5 Posts
2 Usuários
0 Reactions
1,320 Visualizações
RSS
 engeel2014
(@engeel2014)
Posts: 207
Reputable Member
Topic starter
 

Bom dia pessoal. Possuo uma macro que pega umas fotos (jpg) que estão dentro da pasta "D:GEDOC" e compacta elas e salva o arquivo com o nome específico que está na célula "G8" da planilha e salva na pasta "D:COMPACTADO". Até aqui tudo bem, a macro executada sem problemas. O problema é se na pastas "D:GEDOC" tiver uma subpasta com fotos (jpg) dentro a macro não compacta. Ela só pega as fotos (jpg) que estão dentro da pasta "D:GEDOC" e não pega as fotos (jpg) das subpastas EX; "D:GEDOCTESTE". Alguem pode me ajudar como resolver este problema? Abaixo o codigo que estou usando:

Sub FotosLevantamento()
Dim ArqNome As String, ArqCom As String

        ArqNome = "D:GEDOCArquivos" & [g8].Value & ".rar" 'Nome que o arquivo terá
        arqcomp = "D:GEDOC*.jpg" 'Nome do Arquivo a ser compactado"
        Shell "C:Arquivos de programasWinRARwinRAR a  " & ArqNome & " " & arqcomp
        MsgBox ("Arquivo Criado com sucesso!!!")
        On Error Resume Next
        Kill "D:GEDOC*.jpg"
     
End Sub
 
Postado : 03/11/2014 6:09 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Já tentou incluir as opções -p ou -r?
na linha

Shell "C:Arquivos de programasWinRARwinRAR a  " & ArqNome & " " & arqcomp

Att

 
Postado : 03/11/2014 6:46 am
 engeel2014
(@engeel2014)
Posts: 207
Reputable Member
Topic starter
 

Bom dia!!

Já tentou incluir as opções -p ou -r?
na linha

Shell "C:Arquivos de programasWinRARwinRAR a  " & ArqNome & " " & arqcomp

Att

Boa tarde alexandre, não entendi bem a sua sugestão. O que estou precisando é de uma macro que pegue as imagens em "jpg" de uma pasta e salve em um arquivo unico "PDF" com 4 imagens por pagina.

 
Postado : 05/11/2014 10:31 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Mas você tenteou minha sugestão?

Shell "C:Arquivos de programasWinRARwinRAR a -p  " & ArqNome & " " & arqcomp

Att

 
Postado : 05/11/2014 10:34 am
 engeel2014
(@engeel2014)
Posts: 207
Reputable Member
Topic starter
 

Boa tarde!!

Mas você tenteou minha sugestão?

Shell "C:Arquivos de programasWinRARwinRAR a -p  " & ArqNome & " " & arqcomp

Att

Sim Alexandre, tentei. Ele tá gerando um arquivo no formato "Rar" com senha. Eu preciso que gere um arquivo em formato "PDF" com 4 imagens por folha como já disse anteriormente. acredito que tenha que mudar o aplicativo,
tipo no lugar de: 

Shell "C:Arquivos de programasWinRARwinRAR a -p  " & ArqNome & " " & arqcomp

e usar assim:

Shell "C:Arquivos de programasPDFCreatorPDFCreator a -p  " & ArqNome & " " & arqcomp

Já até tentei assim, porém não roda, dá erro. Acho que não estou referenciando o programa corretamente.

 
Postado : 05/11/2014 11:02 am
Forum Jump:
  Tópico Anterior
Próximo Tópico