EXCELEN RESİM LİNKLERİNİ İSİMLENDİREREK İNDİRME

[yasin06]

Merhaba,

Excelde elimde 32 bin 300 adet resim linki var ve bunun yanında stok kodu ve renk bilgisi mevcut stok kodunun ve renk bilgisinin resmin adın da yazarak indirmek istiyorum destek olabilirmisiniz.

 

[Suskun]

image downloader kullanın.

 

[yasin06]

Merhaba,

Excelden okadar anlamıyorum destek olabilirmisiniz.

 

[Suskun]

Excel değil yardımcı programlar. İnternette aratın . Ücretli ücretsiz bir çok benzer uygulama var.

 

[yasin06]

Örnek verebilirmisiniz formda okudum biraz önce excelden indirildiğini öğrendim e ticaret işi ile uğraşıyorum entegratör firmam resimleri isimlerinde stok kodu ve renk olacak şekilde klasör istedi benim elimde ise excelde link stok odu ve renk bilgisi var bunu indirmek istiyorum.

 

[Suskun]

Bilemiyorum. Bilgisi olan arkadaşlar yardım edecektir.

 

[yNsr43]

ufak bir örnek dosya koysaniz ha cabuk sonuca ulaşırsınız.

 

[yasin06]

Merhaba,

Excel listesini ekleyemiyorum örnek olarak.

 

[yNsr43]

kendi exceliniz koymaniza gerek yok örnek olarak 5-6 linkli bir excel oluşturup koyabilirsiniz.

https://github.com/btargac/excel-parser-processor

doğru anladiysam şu uygulama işinize yarar belki

 

[yNsr43]

bunu da kullanabilrsin.

Const FolderName As String = "D:\inenfoto\"

Sub fotoindir()

 Set ws = ActiveWorkbook.Sheets("sayfa1")
 lLastRow = ws.Range("A" & Rows.Count).End(xlUp).Row

 Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
 Set oBinaryStream = CreateObject("ADODB.Stream")
 adTypeBinary = 1
 oBinaryStream.Type = adTypeBinary

 For i = 2 To lLastRow
  sPath = FolderName & ws.Range("B" & i).Value & ".jpg"
  sURI = ws.Range("A" & i).Value

  On Error GoTo HTTPError
  oXMLHTTP.Open "GET", sURI, False
  oXMLHTTP.Send
  aBytes = oXMLHTTP.responsebody
  On Error GoTo 0

  oBinaryStream.Open
  oBinaryStream.Write aBytes
  adSaveCreateOverWrite = 2
  oBinaryStream.SaveToFile sPath, adSaveCreateOverWrite
  oBinaryStream.Close

  ws.Range("C" & i).Value = "fotoğraf başarıyla indirildi"

NextRow:
 Next

 Exit Sub

HTTPError:
 ws.Range("C" & i).Value = "fotoğraf inerken sorun oluştu"
 Resume NextRow

End Sub

 

[yasin06]

Merhaba,

Bu işlem ile linkleri indirip istediğim stok kodlarını isminde yazdırabilirmiyim.

 

[yNsr43]

Merhaba,

Bu işlem ile linkleri indirip istediğim stok kodlarını isminde yazdırabilirmiyim.

yazarsin a sütununa linkleri b sütününa isimleri yazarsan A sütünündaki resimleri B de yazilan isim olarak kaydediyor.

 

[fuatbalim]

Merhabalar gerçekten çok işe yarıyor benimde bir isteğim olabilir mi?

birden fazla foto olduğu durumda tekrarlanan resim koduna örnek kod 1.jpg 1-1.jpg 1-2 jpg şeklinde otomatik isim verilebilir mi ?