IE WEBSITE FILE UPLOAD

[mji]

Dear All,

VBA code for https://imgsafe.org/ to click +browsefile button then auto add file with location i.e. 'C:\Image.jpg' and press Open button after it select upload button for uploading image and copy and paste image name i.e. "https://i.imgsafe.org/95646ec.jpg" in excel cell.

Regards.

MJI

[Jacob Hilderbrand]

Can you clarify the issue you are having?

[mji]

Can you clarify the issue you are having?

1.VBA to open https://imgsafe.org and press Browsefile button as per following picture highlighted
STEP1.JPG
2.After above vba to put file name with location for uploading and press OPEN button as per next image
STEP2.JPG
3.After 2nd step vba click UPLOAD button as per picture highlighted
step3.JPG

4.Then 3rd step vba paste image link in excel sheet1 A1 cell as per following picture
step4.JPG


Regards
MJI

[mji]

I done 1st step and also can done 3rd step through last codes

Sub imagesafe()
     Dim ie As Object
     Dim tags As Object
     Dim tagx As Object
    Set ie = CreateObject("InternetExplorer.Application")
                ie.navigate "https://imgsafe.org/"
        ie.Visible = True
        Do While ie.Busy And Not ie.readyState = 4
            DoEvents
        Loop
        Do While ie.Busy And Not ie.readyState = 4
        DoEvents
    Loop
Application.Wait (Now + TimeValue("00:00:05"))
 Set elementcol = ie.document.getelementsbytagname("input")
           For Each btninput In elementcol
    If btninput.getattribute("id") = "fileupload" Then
btninput.Click
End If
     Next btninput
     End Sub

need to know how done 2nd and 4 step

[mji]

ADDED FOLLOWING BUT NOT WORKED

Application.Wait (Now + TimeValue("00:00:05"))
           Set ElementCol = ie.Document.getElementsbytagname("input")
        For Each btnInput In ElementCol
If btnInput.getattribute("name") = "files[]" Then
        btnInput.Value = "C:\Users\abc\Desktop\Safari\Africa-Tanzania-Migration-1-sunset.jpg"
btnInput.FireEvent ("onclick")
End If
Next btnInput

[Jacob Hilderbrand]

Ok at this point does the image download? Once it is downloaded you could have the macro insert the image from your computer.

[Aussiebear]

Any reason why the lines

Do While ie.Busy And Not ie.readyState = 4
DoEvents
Loop

Are duplicated?

[mji]

Dear Jacob,

In post No.3 available in STEP WISE

and i need to how macro perform step 2 and 4



Regards.

[mji]

sorry mistaken

[mji]

no solution ?