VBA Script to select the file and upload on IE

[sbheeman]

Hi All i am trying to create a script to upload a wallpaper after signing.
So far got through this after several attempts, your help is greatly appreciated.

Source:

Upload

Upload

current code

Dim HTMLDoc As HTMLDocumentDim MyBrowser As InternetExplorer
 Sub VCW()


 Dim MyHTML_Element As IHTMLElement
 Dim MyURL As String
 On Error GoTo Err_Clear
 MyURL = "http://xxxxx"
 Set MyBrowser = New InternetExplorer
 MyBrowser.Silent = True
 MyBrowser.navigate MyURL
 MyBrowser.Visible = True
 Do
 Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
 Set HTMLDoc = MyBrowser.document
 HTMLDoc.all.UserName.Value = "xxxx"
 HTMLDoc.all.Password.Value = "xxxxx"
 Application.SendKeys "~"


 // sign-in complete, need to proceed with upload after sign in.
    
Err_Clear:
 If Err <> 0 Then
 Err.Clear
 Resume Next
 End If
 End Sub

 

[sbheeman]

<form class="form-inline" method="post" enctype="multipart/form-data" action="/web/personalization/upload_wallpaper"><input type="file" name="file" accept="image/*"><button class="btn btn-primary" type="submit">Upload</button><input type="hidden" name="token" value="dfdfdsddssdsdf"></form>
<input type="file" name="file" accept="image/*">
<button class="btn btn-primary" type="submit">Upload</button>

HTML codes

 

[sbheeman]

<form class="form-inline" method="post" enctype="multipart/form-data" action="/web/personalization/upload_wallpaper"><input type="file" name="file" accept="image/*"><button class="btn btn-primary" type="submit">Upload</button><input type="hidden" name="token" value="sdsdsds"></form>
<input type="file" name="file" accept="image/*">
<button class="btn btn-primary" type="submit">Upload</button>

 

[Kyle123]

You can't upload a file through IE automation, it's a security issue so it is blocked.

You'll need to post the file directly using http - this is not trivial and we'd need far, far more information to be able to help you - and probably access to the actual form.