VBA:IE-How to assign pathname to file input tag without popup file upload form?

by

I fixed this issue by running external VBScript contain file path to set it on ‘Choose File to Upload’ pop up window using SendKeys method after send Enter Key to close this pop up, and this run successfully because the extranl VBScript run on another process so it will not stuck on VBA code.

Notes:
1- I dynamically create the external VBScript from VBA code and save it on Temp folder after that I run this script using WScript.Shell.Run to excute it on another thread
1- At the begining of the external VBScript I set 1 sec delay to be sure the ‘Choose File to Upload’ pop up window already opened from VBA.

And here is the complete code:

....
....

Set filee = mydoc.getElementById("file")

    CompleteUploadThread MyFilePath
    filee.Foucs
    filee.Click

....
....

Private Sub CompleteUploadThread(ByVal fName As String)
    Dim strScript As String, sFileName As String, wsh As Object
    Set wsh = VBA.CreateObject("WScript.Shell")
    '---Create VBscript String---
    strScript = "WScript.Sleep 1000" & vbCrLf & _
                "Dim wsh" & vbCrLf & _
                "Set wsh = CreateObject(""WScript.Shell"")" & vbCrLf & _
                "wsh.SendKeys """ & fName & """" & vbCrLf & _
                "wsh.SendKeys ""{ENTER}""" & vbCrLf & _
                "Set wsh = Nothing"
    '---Save the VBscript String to file---
    sFileName = wsh.ExpandEnvironmentStrings("%Temp%") & "\zz_automation.vbs"
    Open sFileName For Output As #1
    Print #1, strScript
    Close #1
    '---Execute the VBscript file asynchronously---
    wsh.Run """" & sFileName & """"
    Set wsh = Nothing
End Sub

More Related Contents:

  1. Convert XLS to CSV on command line
  2. automatically execute an Excel macro on a cell change
  3. How to launch an application from a browser?
  4. IE10 renders in IE7 mode. How to force Standards mode?
  5. Automate IE via Excel to fill in a dropdown and continue
  6. Which encoding opens CSV files correctly with Excel on both Mac and Windows?
  7. Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA
  8. Controlling Internet Explorer local intranet using Excel VBA
  9. Automate saveas dialogue for IE9 (vba)
  10. Why “Content-Length: 0” in POST requests?
  11. Use Excel VBA to click on a button in Internet Explorer, when the button has no “name” associated
  12. What is after Internet Explorer 11 on Windows 7? How well will ES2016 be supported in enterprises?
  13. How to copy to clipboard using Access/VBA?
  14. Open Internet Explorer from Chrome using a protocol handler (ie:url)
  15. How can I execute a shell command using VBA?
  16. How can I automate Save as dialog box in IE11 using VBA?
  17. PsExec Throws Error Messages, but works without any problems
  18. VBA WinHTTP to download file from password proteced https website
  19. In Excel VBA, what is the way to check if the web page is fully loaded?
  20. IE Enable/Disable Proxy Settings via Registry
  21. Get existing IE via VBA
  22. VBA Internet Explorer wait for web page to load
  23. How do I find out the browser’s proxy settings?
  24. 2 Dimensional array from range [closed]
  25. Saving a Excel File into .txt format without quotes
  26. Range.Find on a Date That is a Formula
  27. IndexedDB view all Databases and Object Stores
  28. How to get windows batch’s parent folder
  29. How to prevent uninstaller elevating for Standard Windows 10 user?
  30. Concatenate multiple ranges using vba

Leave a Comment