Prachthäuser

Com o WinRar (que é o que uso), veja abaixo;
para o winzip é bem similar, porem muda a letra comando (no exemplo o e logo apos o .exe)

Sub UnZipando()

ChDir ThisWorkbook.Path    'Altera o diretorio de "trabalho" para o o arquivo

'Sintaxe para winRar

arqcomp = ThisWorkbook.Path & "NomedoArquivo"	'Aqui nome do arquivo, deve ser sem espaços

Shell "C:Arquivos de programasWinRARWinRAR.exe e " & arqcomp, vbMinimizedFocus		
End Sub

Bom dia Reinaldo!

Muito obrigado. Simples!

Atenciosamente,
Adriano Prachthäuser

Desculpe por reabilitar esse tópico de novo, mas preciso de algo parecido com isso, preciso de uma macro para baixar o arquivo zip para uma pasta e descompactar, que faça os 2 processos o endereço do arquivo zip é esse http://www1.caixa.gov.br/loterias/_arqu ... lotfac.zip e a pasta para salvar pode ser ser a mesma pasta da planilha onde está a macro ou outra pasta temp, se alguem puder me ajudar, agradeço

Resolvido, o código que usei para o procedimento acima foi esse

Sub DownloadEUnzip()
Dim FSO, oApp As Object
Dim objHttp, DefPath, Arquivo As String
Dim Dados() As Byte
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim iFileNumber As Long
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "GET", " http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip", False
objHttp.Send
DefPath = "C:LoteriaTemp" '<<< Altere aqui
Arquivo = DefPath & "D_lotfac.zip"
If objHttp.Status = "200" Then
Dados = objHttp.ResponseBody
iFileNumber = FreeFile
Open Arquivo For Binary Access Write As #iFileNumber
Put #iFileNumber, 1, Dados
Close #iFileNumber
End If
If Right(DefPath, 1) <> "" Then
DefPath = DefPath & ""
End If
FileNameFolder = DefPath

Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace("C:LoteriaTempD_lotfac.zip").items
End Sub

Amigo(s), testei a macro, era(quase) o que eu procurava, PORÉM, foi a que mais chegou perto até agora.
Se usar ela na íntegra, dá um erro de execução, mas baixa o arquivo zipado na pasta "temp".
Se excluir a última parte(abaixo/azul), não dá mensagem de erro, e baixa o arquivo zipado.
MInha pretensão ERA baixar os resultados das LOTERIAS em planilhas, já DESCOMPACTANDO o arquivo zipado, e a cada concurso, só ir atualizando os resultados, e se possível, em ordem numérica.
Seria Possível? Como? Poderia me Ajudar?
Utilizo Excell 2003 e 2007.
Jaime.
Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace("C:LoteriaTempD_lotfac.zip").items
End Sub
Título: Descompactar via VBA arquivo .ZIP

Resolvido, o código que usei para o procedimento acima foi esse

Sub DownloadEUnzip()
Dim FSO, oApp As Object
Dim objHttp, DefPath, Arquivo As String
Dim Dados() As Byte
Dim Fname As Variant
Dim FileNameFolder As Variant
Dim iFileNumber As Long
Set objHttp = CreateObject("MSXML2.ServerXMLHTTP")
objHttp.Open "GET", " http://www1.caixa.gov.br/loterias/_arquivos/loterias/D_lotfac.zip", False
objHttp.Send
DefPath = "C:LoteriaTemp" '<<< Altere aqui
Arquivo = DefPath & "D_lotfac.zip"
If objHttp.Status = "200" Then
Dados = objHttp.ResponseBody
iFileNumber = FreeFile
Open Arquivo For Binary Access Write As #iFileNumber
Put #iFileNumber, 1, Dados
Close #iFileNumber
End If
If Right(DefPath, 1) <> "" Then
DefPath = DefPath & ""
End If
FileNameFolder = DefPath

Set oApp = CreateObject("Shell.Application")
oApp.Namespace(FileNameFolder).CopyHere oApp.Namespace("C:LoteriaTempD_lotfac.zip").items
End Sub

Amigo respondi sua MP