VBA Mac - Downloading image not working (But working in Windows)

Hi

I have created a macro file to download images from website to folder - its working fine in Windows but its not working in Excel for Mac 2011, OSX 10.9.5 (Mavericks).

Also attached file.

This is the code that i have used - Is there any other way to download from url using vba excel.

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:\Users\MattGold\Desktop\Images\"

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("LOAD")

    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

Please help me on this.

Thanks
Thiru

No sir! i'm getting different message as "File not found: urlmon"

Could you please help me on this?

Thanks
Thiru

Originally Posted by Richard Buttrey

Hi,

There are many instances where the VBA syntax of Mac differs to Windows, but the first line that stands out in your code is the path separator \. In the MAc this is the pipe | symbol

Try using an IF test to recognise the OS and set the variable as necessary

 If Application.OperatingSystem Like "*mac" Then
        Const FolderName As String = "C:Users|MattGold|Desktop|Images|"
    Else
        Const FolderName As String = "C:\Users\MattGold\Desktop\Images\"
 End If

Here you go - i have attached workbook.

Please help me on this sir!

Thanks
Thiru

Originally Posted by Richard Buttrey

Hi,

Time to upload the workbook for a more definitive answer methinks!

Hi Romperstomper

oh...Ok - could you please help me on the vba mac script to save the image from url - Please.

Thanks
Thiru

Its ok not a problem - Thank you so much.

Thanks
Thiru