Vba 使用网站上的文件夹选择器从已知位置自动选择图片

Vba 使用网站上的文件夹选择器从已知位置自动选择图片,vba,web-scraping,sendkeys,Vba,Web Scraping,Sendkeys,我有一个文件夹选择器的问题,这是在网站上打开,要求我上传图片。我可以登录网站,可以打开浏览链接显示的链接,也可以点击它。但是,我无法上载已知位置,也无法单击上载按钮。链接在fw后面,因此所有链接都被隐藏 Dim ie As New InternetExplorer Dim myElem As Variant ie.Visible = True With ie Const MAX_WAIT_SEC As Long = 10

我有一个文件夹选择器的问题,这是在网站上打开,要求我上传图片。我可以登录网站,可以打开浏览链接显示的链接,也可以点击它。但是,我无法上载已知位置,也无法单击上载按钮。链接在fw后面,因此所有链接都被隐藏

    Dim ie As New InternetExplorer
    Dim myElem As Variant
        ie.Visible = True

     With ie
         Const MAX_WAIT_SEC As Long = 10
        Dim t As Date, ele As Object
        t = Timer
        While .Busy Or .readyState < 4: DoEvents: Wend
     End With
    ie.document.getElementById("picture").Click
'this cell contains picture link
   Sheets("picture").Range("A12").Copy 

          With ie
     While .Busy Or .readyState < 4: DoEvents: Wend
     End With
    ie.document.getElementById("browse").Click
              With ie
     While .Busy Or .readyState < 4: DoEvents: Wend
     End With
'folder picker is active now and code should be written here 
         With ie
     While .Busy Or .readyState < 4: DoEvents: Wend
     End With
     ie.document.getElementById("upload").Click
     End With


尚未解决任何问题,谢谢您的帮助。

这不是您发送回车键的方式。看


当前,您实际上是在向窗口发送文本
“enter”

这不是您发送enter键的方式。看


目前,您正在将文本
“enter”
发送到窗口。

我之前的问题是;我无法将位置粘贴到文件夹选择器屏幕。顺便说一句,谢谢你的加入。我之前的问题是;我无法将位置粘贴到文件夹选择器屏幕。顺便说一句,谢谢你的输入。之前:@sam谢谢你的链接,但我已经看过并测试过了。不幸的是,文件夹选择器屏幕无法正常工作。之前:@sam感谢链接,但我已经看过并测试过了。不幸的是,文件夹选择器屏幕无法正常工作。
SendKeys "^v", True
SendKeys "enter", True

SendKeys "~", True '// Send {ENTER} key