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