Multiple WEBPAGE IMAGE TO BE SAVE IN PDF format - USING CHROME

[ganesanmani]

Dear Excel Experts,

I have list of URLs(Each urls have a Single IMAGE in a page)in the Excel spreadsheet like below. I would like to Save the each URL's in PDF format or Image in to Desktop or any path in to my system by USING chrome or Internet explorer..

A1 CELL
URL1
URL2
URL3
.
.
.
.URL1000

Kindly help me on this.

 

[Haluk]

Are the URL's directly pointing to the image files?

You can try the following code and apply tou your real project ...

Sub Test()
    Dim FileNum As Long
    Dim FileData() As Byte
    Dim MyFile As String
    Dim WHTTP As Object
    
    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
    
    MyFile = "http://www.bigfoto.com/sites/main/tree-winter-xxx.JPG"
    
    WHTTP.Open "GET", MyFile, False
    WHTTP.Send
    FileData = WHTTP.ResponseBody
    Set WHTTP = Nothing
    
    If Dir("C:\MyDownloads", vbDirectory) = Empty Then MkDir "C:\MyDownloads"
    
    FileNum = FreeFile
    Open "C:\MyDownloads\tree-winter-xxx.JPG" For Binary Access Write As [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
        Put [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] , 1, FileData
    Close [URL="https://www.mrexcel.com/forum/usertag.php?do=list&action=hash&hash=FileNum"]#FileNum[/URL] 
    
    MsgBox "Open [C:\MyDownloads] to view the downloaded file ..."
End Sub

 

[ganesanmani]

Thanks where we put this code to use? in excel ?

 

[ganesanmani]

Can you please help me on this

 

[Haluk]

Thanks where we put this code to use? in excel ?

This is a weird question and that's why i didn't answer before ....

Create a new module in Excel and paste the code given above, then run the procedure.

Have luck ....

 

[Haluk]

I guess this thread must be moved to Excel Questions