Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
尝试使用vba按下internet页上的按钮_Vba_Excel_Web - Fatal编程技术网

尝试使用vba按下internet页上的按钮

尝试使用vba按下internet页上的按钮,vba,excel,web,Vba,Excel,Web,我知道有一个类似的问题,但它没有显示足够的细节来帮助我,我仍然是新手,需要更多的指导。我试图做的是使用VBA宏来按下网页上的按钮 我能找到的关于按钮的详细信息如下 class = "urBtnEmph" id = "b1_pki" ct= "Button" onclick = "LoginViaPKI();" 这不是我写的网页,也不是我可以修改的网页。但我是否可以自动点击按钮 谢谢你用IE试试这个: Dim IE As New InternetExplorer Dim doc

我知道有一个类似的问题,但它没有显示足够的细节来帮助我,我仍然是新手,需要更多的指导。我试图做的是使用VBA宏来按下网页上的按钮

我能找到的关于按钮的详细信息如下

class = "urBtnEmph"
id = "b1_pki"
ct= "Button"
onclick  = "LoginViaPKI();"
这不是我写的网页,也不是我可以修改的网页。但我是否可以自动点击按钮

谢谢你

用IE试试这个:

   Dim IE As New InternetExplorer
    Dim doc As HTMLDocument
    Set doc = IE.document
'below line may be needed in case the page load is slow    
'Do While IE.readyState <> READYSTATE_COMPLETE Or IE.Busy: DoEvents: Loop 

    Dim Button As Object
        Set Button = doc.getElementById("b1_pki")
        Button.Click
Dim IE成为新的InternetExplorer
作为HTMLDocument的Dim doc
Set doc=IE.document
'在页面加载缓慢的情况下,可能需要行下方
'在IE.readyState readyState_完成或IE.Busy:DoEvents:Loop时执行'
将按钮变暗作为对象
设置按钮=doc.getElementById(“b1_pki”)
按钮,点击

它需要参考Microsoft Internet控件和Microsoft HTML对象库

谢谢Angel-IE是我正在使用的浏览器,当我使用line Set Button=doc.getElementById(“b1_pki”)时,我得到了“Object variable or With block variable not Set”(对象变量或块变量未设置)的错误。有什么想法吗?我错过了一行,现在已添加到上述代码中。如果仍然有问题,你能提供一个链接来尝试一下吗?嗨,我仍然有问题,它似乎不喜欢新的InternetExplorer,我试着把它改成object。它似乎也不喜欢HTMLDocument。我现在有点迷糊了,我不确定我应该创建什么Dim。嗨,我想我已经弄明白了,我没有打开Microsoft HTML对象库和Microsoft Internet控件。谢谢我很高兴听到你解决了它:)谢谢你发回!将使用其他参考资料更新我的答案,以供未来读者参考;)