宏IE控制

Question

不幸的是，我的父母根本不熟悉使用电脑，而且我已搬到另一个城市，所以我无法直接帮助他们。他们需要每月登录电话服务提供商，并打印到期发票。我试图制作一个宏来执行所有这些，只需点击一下按钮即可＃34;。

到目前为止我的代码：

Private Sub CommandButton1_Click()

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Top = 0
objIE.Left = 0
objIE.Width = 1027
objIE.Height = 768
objIE.AddressBar = 0
objIE.StatusBar = 0
objIE.Toolbar = 0
objIE.Visible = True

objIE.Navigate ("https://login.example.com")
Do
DoEvents
Loop Until objIE.ReadyState = 4

    SendKeys "{ENTER}" 'security pop up, press enter

Do
DoEvents
Loop Until objIE.ReadyState = 4

'write in login name and password

    objIE.document.GetElementByID("f_name_1").Value = "abababa"
    objIE.document.GetElementByID("password").Value = "cdc999"

'press enter, log in

    SendKeys "{ENTER}"

Do
DoEvents
Loop Until objIE.ReadyState = 4

'and here I stuck

End Sub

但有一次我陷入困境。不幸的是，当您登录网站时，导航按钮的代码如下所示：

<a class="cufon_w" id="tempID" href="fakt.do">

我尝试过：

objIE.document.GetElementByID("tempID").Click

和

objIE.document.GetElementByClassName("cufon_w").Click

但它不适用于其中任何一个（我假设有tempID，但无论如何都试过了。）

有没有人尝试类似的东西，或者知道任何解决方案？