webdeki zipi indirsin istenen klasöre çıkarsın

[baknediycem]

merhaba
excelde bir butona/resme/düğmeye/hücreye, yani makro atanmış birşeye tıkladığımda webde bulunan zip uzantılı dosyanın adresine girip
örnek adres şöyle : www.xxx.com/not.zip bu not adlı dosyayı alıp içindeki tek belgeyi C'deki Notlar klasörüne çıkarsın (ayıklasın)
Bu mümkün mü?
yardımcı olur musunuz

 

[baknediycem]

guncelleme..

 

[Haluk]

http://www.excel.web.tr/f48/internetten-xls-dosyas-n-al-p-farkl-isimle-t23237.html

.

 

[baknediycem]

Sn. Haluk değerli çalışmanız için tesekkur ederiz. fakat dosyayı indiremiyorum. elinizde mevcut ise yeniden ataçlarsanız memnun oluruz

 

[baknediycem]

Bu konuda kimse yardım edemeyecek mi? Arkadaslar, kendi çabalarımla yapamıyorum ve bu dosya lazım.

 

[Zeki Gürsoy]

Merhaba,

Forumda isteğinize yakın başlıklar mevcuttu, sanırım gözünüzden kaçmış.
İşinize yarayabilir..


İşlem göstergeli downloader (Inet)

WinRAR Commandline

 

[veyselemre]

Aşağıdaki kodları bir deneyin. Winzip kullanmadığım için deneme şansım olmadı, winrarla sorunsuz çalışır.

Sub Test()
'haluk
    Dim FileNum As Long
    Dim FileData() As Byte
    Dim MyFile As String
    Dim WHTTP As Object
    Dim FName As String

    On Error Resume Next
    Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
    If Err.Number <> 0 Then
        Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
    End If
    On Error GoTo 0

    FName = "not.zip"
    MyFile = "http://www.xxx.com/" & FName

    WHTTP.Open "GET", MyFile, False
    WHTTP.Send

    WHTTP.WaitForResponse

    FileData = WHTTP.ResponseBody
    Set WHTTP = Nothing

    If Dir("C:\Notlar", vbDirectory) = Empty Then MkDir "C:\Notlar"

    FileNum = FreeFile
    Open "C:\Notlar\" & FName For Binary Access Write As #FileNum
    Put #FileNum, 1, FileData
    Application.Wait Now + TimeSerial(0, 0, 3)
    Close #FileNum

    Shell ("c:\Program Files\Winrar\WinRAR E -afzip " & "C:\Notlar\" & FName & " *.*  C:\Notlar")
    
End Sub

 

[sergions]

örnek adres şöyle : www.xxx.com/not.zip

Üstad, örnek için verdiğiniz adres de pek bir hoş olmuş

 

[baknediycem]