Seja Bem vindo ao forum, michel.
Quanto a sua questão :
"Preciso descompactá-los mas não quero um novo código "do zero", quero apenas implementar a linha de código que extraia esses arquivos."

Se pesquisar no Forum encontrara varios tópicos referentes a descompactar arquivos, um deles seria o tópico abaixo, mas veja que é utilizado o WINRAR, se você utilizar outro descompactador deverá pesquisar qual os parametros do mesmo.

Outra coisa seria quanto a sua afirmação "não quero um novo código "do zero", que parece mais intimação, mas como este é um forum onde procuramos ensinar alguma coisa, o ideal é saber como o mesmo funciona, em vez de querer já pronto, sendo assim veja a rotina que se encontra no link que passei e veja se consegue ajustar, seriam somente duas linhas.

Descompactar via VBA arquivo .ZIP
viewtopic.php?f=10&t=2542

[]s

Mauro,

Disse eu não quero um novo código do zero porque este que mostrei já está em produçã na empresa onde trabalho.
Todos os dias faço download desses arquivos e, se eu fosse começar outro código do zero, iria tomar muito tempo e parar a produção aqui....

Não quis intimidar ninguém.
Já olhei em vários tópicos na internet, já tinha olhado tbm esse que vc mandou o link, mas não sei onde implementar na minha macro.

Você poderia me dizer onde implemento essa funcionalidade aqui no meu código??

Grato.

michel, sem problemas, então vamos lá.

Analisando a rotina onde o arquivo é baixado, temos a linha :
'Função que realiza o download dos arquivos
Sub Download(Mylocal, arquivo)

'Variável "CaminhoLocal" recebe o diretório de destino e nomes dos arquivos
CaminhoLocal = Mylocal + arquivo

Então após a instrução :
Auxiliar = URLDownloadToFile(0, URL, CaminhoLocal, 0, 0)
Adicione a linha abaixo :
Shell "C:Arquivos de programasWinRARWinRAR.exe e " & CaminhoLocal, vbMinimizedFocus

Uma obs quanto a linha acima, é que tem de ajustar o caminho onde se encontra o arquivo WINRAR (Pasta), por exemplo, no meu PC esta pasta é : "C:Program Files" e obviamente você tem de ter o WINRAR instalado.
Ajustado isto, o arquivo será descompactado no diretório que foi criado pela rotina "Sub CriarPasta(Mylocal)"

Faça os testes e se for isto, lembre-se de dar o tópico como Resolvido e clicar na mãozinha agradecendo.

[]s

Mauro,

No meu caso os arquivos não estão zipados pelo Winrar, e sim pelo Zip do Windows (nem sei se é esse o termo correto...)

Será que vai ter algum problema???

Mauro,
No meu caso os arquivos não estão zipados pelo Winrar, e sim pelo Zip do Windows (nem sei se é esse o termo correto...)
Será que vai ter algum problema???

michel, até onde eu sei, o WINRAR descompacta varios tipos de arquivos, inclusive ".zip", faça um teste antes e veja se corre tudo certo, se não, troque pela rotina abaixo e teste:

'Função que realiza o download dos arquivos
Sub Download(Mylocal, arquivo)
    Dim oApp As Object

    'Tratamento de erro
    On Error GoTo Err

    'Variável auxiliar
    Dim Auxiliar As Long
    'Recebe a URL origem e caminho, respectivamente
    Dim URL As String, CaminhoLocal As String
    
    'Endereço do website onde estão os arquivos + nome dos arquivos
    URL = "http://sistemas.cvm.gov.br/cadastro/" & arquivo

    'Chama função para criar pastas
    Call CriarPasta(Mylocal)

    'Variável "CaminhoLocal" recebe o diretório de destino e nomes dos arquivos
    CaminhoLocal = Mylocal + arquivo

    'Extrai os arquivos para a pasta criada
    Set oApp = CreateObject("Shell.Application")
    oApp.Namespace(Mylocal).CopyHere oApp.Namespace(CaminhoLocal).items


    Exit Sub

Err: MsgBox "Erro no download do arquivo"

End Sub

[]s

O problema é que não tenho permissão para instalar o Winrar aqui.

Mauro,

Testei a rotina como você disponibilizou (com a parte da extração dos arquivos) mas não deu certo.

Vai direto para: Err: MsgBox "Erro no download do arquivo"

michel, em qual das rotinas ?
As duas teem esta mensagem.

Se for esta segunda, eu não tenho como testar da forma que você está uzando em baixar arquivo da net, então procure usar "Debug.Print" e veja se os caminhos e nome do arquivo estão correto, então nesta rotina do download adicione as linhas :
Logo depois desta :
'Variável "CaminhoLocal" recebe o diretório de destino e nomes dos arquivos
CaminhoLocal = Mylocal + arquivo

Coloque estas :
Debug.Print Mylocal
Debug.Print CaminhoLocal

Depois de colocar pressione CTRL + G e abrira uma janela de depuração das variáveis e nela será mostrado o que estamos capturando nestas Variáveis, depois poste o resultado aqui.

Se ainda estiver com erro, anexe seu arquivo devidamente compactado conforme as regras do forum e mais tarde em casa faço os testes.

[]s

[]s

Ok.

Eu compilei as rotinas e com as variáveis acho que está tudo certo.
Está funcionando o download dos arquivos... Só a extração que não mesmo....

Bom, estou enviando anexo a planilha.

Grato.

michel, neste seu modelo na rotina de download não estão as linhas para descompactar ? você chegou a alterar e utilizar uma das duas que passei ?

Já estou saindo do serviço, mais tarde dou uma olhada.

[]s

Ah... eu tive que tirar, para quando amanhã eu chegar no trabalho os arquivos de 21/05 sejam baixados.

Att.

Ok.
Eu compilei as rotinas e com as variáveis acho que está tudo certo.
Está funcionando o download dos arquivos... Só a extração que não mesmo....

Bom, estou enviando anexo a planilha.

Grato.

michel, aconteceu uns imprevistos e não deu para olhar seu arquivo ontem, mas agora está ok.
O que estava acontecendo é devido a você ter nos nomes dos diretórios, "espaços" e com isto o winrar não reconhecia e pulava para a linha de erro.
No modelo anexo, ajustei esta parte e tambem coloquei outra rotina que utiliza o descompactador padrão do windows, neste modelo está utilizando o winrar e funcionou perfeitamente nos testes que fiz, você só tem de ver se o caminho onde está instalado o winrar é o mesmo, alias, se não encontrar o winrar será emitido uma mensagem e sai da rotina.
Faça os testes e veja se funciona da forma que pretende.

Download e descompacta arquivo

.

Se correr tudo bem, lembre-se de dar o tópico como resolvido e clicar na mãozinha agradecendo.

[]s

Mauro,

Obrigado pela atenção!

Eu não tenho permissão para instalar o Winrar aqui, estou numa empresa onde o acesso é bem restrito. Por isso, não consigo nem abrir o anexo que você enviou (está em ".rar").
Você poderia enviá-lo em ".zip" ??

Quanto aos espaços nos nomes dos diretórios, é um caminho que está na rede corporativa, não posso alterar...

Att.

Michel, tive problemas com este arquivo no serviço, não sei porque estava dando como corrompido e não deixava nem eu executar, por isto não enviei antes, como pode ver no tópico que criei : viewtopic.php?f=10&t=15932.

Mas isto acontece só no serviço, então anexei outro no post acima como ".zip", faça os testes e veja se corre tudo bem.

[]s