WinRar ile sıkıştırılmış dosya açma makrosu

[Orion1]

Merhabalar.
Winrar ile sıkıştırılmış .rar uzantılı dosyaları açabilecek
Excel VBA Kod'u varmıdır?
:hey:

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Deneme.rar isimli dosyayı açmaktadır.

[vb:1:941b191380]Sub ac()
Shell "C:\Program Files\WinRAR\WinRAR.exe " & "C:\deneme.rar", vbNormalFocus
End Sub
[/vb:1:941b191380]

 

[Orion1]

merhabalar.
Teşekkür ederim.
Yalnız Ben kod ile dosyayı çıkartabileceğim dizinide belirtip.
Winrar programı gözükmeden.O Şıkıştırılmış dosyayı o dizine açmak istiyorum.