从网站提取数据费用的问题

时间:2019-04-22 07:14:48

标签: html excel vba

当我尝试单击VBA / HTML中的按钮时遇到问题。 当我在文本框中输入数据时,我将单击Enter或单击“搜索”按钮,但单击按钮不起作用。请帮助非常感谢

网站为:https://sellercentral.amazon.fr/fba/profitabilitycalculator/index?lang=en_GB

我的VBA代码:

Set IEDoc = IE.document
Set DOCelement = IEDoc.getElementById("search-string")
DOCelement.Value = "5010993370528"

Set DOCelement = IEDoc.getElementById("a-autoid-1")
DOCelement.submit

enter image description here

enter image description here

2 个答案:

答案 0 :(得分:0)

感谢Tanmay,但仍然无法正常工作。 此代码相同,但该页面不收费。 我把这个:

[root@ip-10-30-10-40 home]# cd reports/
[root@ip-10-30-10-40 reports]# ls -l
total 4
-rwxr-xr-x 1 root root 6 Apr 23 14:06 QAReport.html
[root@ip-10-30-10-40 reports]#

我想这里有一个隐藏区域。 谢谢您的协助

答案 1 :(得分:0)

以下代码已在IE11中进行了测试和测试

Sub amazon()
    On Error GoTo Errors
        Dim ie As Object
        Set ie = CreateObject("InternetExplorer.Application")
        ie.navigate "https://sellercentral.amazon.fr/fba/profitabilitycalculator/index?lang=en_GB"
        ie.Visible = True
        Application.Wait Now + #12:00:05 AM#

        Set IEDoc = ie.document
        Set DOCelement = IEDoc.getElementById("search-string")
        DOCelement.Focus
        DOCelement.Click
        Application.Wait Now + #12:00:01 AM#
        DOCelement.Value = "5010993370528"

        Set DOCelement = IEDoc.getElementById("a-autoid-1").getelementsbytagname("input")(0)
        DOCelement.Click
        Application.Wait Now + #12:00:05 AM#
Errors:
        MsgBox Err.Description
End Sub

需要聚焦并单击,否则文本将变灰

相关问题