यूआरएल से चित्र प्राप्त करें और फिर चित्र का नाम बदलें

Question

मेरे पास बहुत सारे आलेख संख्याओं के साथ एक एक्सेल सूची है, उदाहरण के लिए। "23378847"। और मैं अपने फ़ोल्डर में संग्रहीत सूची में मेरे सभी आलेख संख्याओं की तस्वीरें चाहता हूं।

लेकिन परिणाम निम्नानुसार होगा। यह 23378847.jpg किया जाना चाहिए नहीं 152499

http://media.byggtjeneste.no/media/bilde/152499/LargeThumbnail
या
http://www.nobb.no/Nobbnr/OrginalBilde/23378847/152499

वहाँ एक रास्ता है कि मैं एक शेयरों है कि मेरे फ़ाइल को पढ़ने बनाने के लिए और सूची में के रूप में ही आलेख संख्या के साथ तस्वीर को बचा सकता है है ?

Answer 1

यहां एक नमूना है जो आपकी मदद करेगा।

मुझे लगता है कि आपकी एक्सेल फ़ाइल इस तरह दिखेगी। कृपया लागू कोड को संशोधित करें।

Option Explicit 

Private Declare Function URLDownloadToFile Lib "urlmon" _ 
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ 
ByVal szURL As String, ByVal szFileName As String, _ 
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 

Dim Ret As Long 

'~~> This is where the images will be saved. Change as applicable 
Const FolderName As String = "C:\Temp\" 

Sub Sample() 
    Dim ws As Worksheet 
    Dim LastRow As Long, i As Long 
    Dim strPath As String 

    '~~> Name of the sheet which has the list 
    Set ws = Sheets("Sheet1") 

    LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row 

    For i = 2 To LastRow '<~~ 2 because row 1 has headers 
     strPath = FolderName & ws.Range("A" & i).Value & ".jpg" 

     Ret = URLDownloadToFile(0, ws.Range("B" & i).Value, strPath, 0, 0) 

     If Ret = 0 Then 
      ws.Range("C" & i).Value = "File successfully downloaded" 
     Else 
      ws.Range("C" & i).Value = "Unable to download the file" 
     End If 
    Next i 
End Sub