Excel VBA Resim URL 'lerini klasöre indirme.

[aspire343434]

Arkadaşlar selam, elimdeki kod, yerel kablolu internetten verileri alıyor oradaki de dosya olduğu için, işimi görüyor ancak, ben localden yani dosyadan değilde WEB den almak istiyorum resimleri. Şuan ortak klasörden alan kodu paylaşayım;

Sub resim_Getir()
Dim sure As Date
baslangic = Now()

Dim DosyaSistemi
           Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
           On Error GoTo ResimYok
           Kill ActiveWorkbook.Path & "\Jpeg 2\*.* "
ResimYok:
           veriKlasor = "\\ktne2\StokImagev3\" ' buraya var olan dosya yolunu yazacaksınız.
           hedefKlasor = ActiveWorkbook.Path & "\Jpeg 2\"  'buraya kaopyalıyacağınız klasörün yolunu yazacaksınız.
         
            For i = 2 To [A1000000].End(3).Row
            If Cells(i, 1).Value = "" Then Exit Sub
           Dosya = veriKlasor & Cells(i, 1).Value & "\" & Cells(i, 1).Value & ".jpg"
          If CreateObject("Scripting.FileSystemObject").FileExists(Dosya) = True Then
          DosyaSistemi.CopyFile Dosya, hedefKlasor & Cells(i, 1).Value & ".jpg"          
       End If
         Next i
          bitis = Now()
  sure = bitis - baslangic
       
         MsgBox sure
End Sub

Benim istediğim ise dosyadan değil resimden alması. veriKlasor = "\\ktne2\StokImagev3\" ' bu kısmın yerine http resim adresini yazdım ancak calısmadı.

A kolonuna urun kodu geliyor. Kod onu "\\ktne2\StokImagev3\"& Cells(i, 1).Value & "\" & Cells(i, 1).Value & ".jpg" adresinden indiriyor.

benim istediğim değişiklik sadece "\\ktne2\StokImagev3\" bu sabit kısım yerine "http://service.kon.com.tr/pr" yazması, yani dosyadan değil de , URL den indirmesi, ikisinin de sunucuda ve lokalde resmin saklandığı yol aynı.


saygılar