使用 Excel VBA 在 Internet Explorer 中单击按钮，当按钮没有 "name" 关联时

Question

我正在尝试使用 excel 自动在时间 sheet 中输入值。时间 sheet 在网页上。现在我可以加载页面，输入我的用户名和密码，然后自己输入时间 sheet。请参阅下面的代码。

此时我需要点击一个按钮来打开子表单。我无法提前知道要打开多少个子表单。我知道如何点击带有 "name" 的按钮。但在这种情况下有 none。所以我下面更新的代码使用一个循环来打开所有其他子表单。第一次成功，但当我再次这样做时

有人能告诉我如何确定页面中有多少个按钮以及如何单击每个按钮吗？接下来，我将我到目前为止的代码放在它下面，我需要与之交互的页面的 HTML 代码。

Private Sub time_sheet_filling()

    Dim I As Long
    Dim IE As Object
    Dim doc As Object
    Dim objElement As Object
    Dim objCollection As Object

    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True

    ' Send the form data To URL As POST binary request
    IE.navigate "http://timesheet.cccc.ca/timesheet/"

    ' Wait while IE loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

        'Load the logon page
    Set objCollection = IE.Document.getElementsByTagName("input")
    I = 0
    While I < objCollection.Length
        If objCollection(I).Name = "txtUserName" Then
            ' Set text to enter
            objCollection(I).Value = "6666"
        End If
        If objCollection(I).Name = "txtPwd" Then
            ' Set text for password
            objCollection(I).Value = "password"
        End If
        If objCollection(I).Type = "submit" And objCollection(I).Name = "btnSubmit" Then ' submit button clicking
            Set objElement = objCollection(I)
        End If
        I = I + 1
    Wend

    objElement.Click    ' click button to load the form

    ' Wait while IE re-loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    ' Show IE
    IE.Visible = True  
Dim links, link
Dim n, j
Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")
n = links.Length  
For j = 0 To n - 1 Step 2
    links(j).Click
'I have some operations to be done will post another question for this
IE.Document.getElementById"DetailToolbar1_lnkBtnSave").Click              'save
IE.Document.getElementById"DetailToolbar1_lnkBtnCancel").Click            'close
Next



End Sub

html 代码的摘录如下。我正在尝试单击下面 html 代码的最后一行中编码的按钮

<table width="984" class="Grid" id="dgTime" border="1" rules="all" cellspacing="0">
  <tbody>
    <tr class="GridHeader">
    </tr>
    <tr class="GridItem">
    </tr>
    <tr class="GridItem">
      <td class="GridButtonColumn">
        <a href="javascript:__doPostBack('dgTime$_ctl2$_ctl0','')">
          <img src="images/toolbar/b_edit.gif">
        </a>
      </td

Tx Tim 的答案。现在我可以 select 第一个子表单按钮打开它。

links(j).click   'j = 0

然后我保存它，关闭并返回到主窗体。但是当我尝试做

links(j).click   'j = 2 this time

我第二次收到运行时错误 70：权限被拒绝。任何善意的帮助将不胜感激。此致

Answer 1

IE.Document.getElementById("dgTime").getElementsByTagName("a")(0).Click

编辑：遍历集合（项目的出现顺序应与它们在源文档中的顺序相同）

Dim links, link 

Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")

'For Each loop
For Each link in links
    link.Click
Next link

'For Next loop
Dim n, i
n = links.length
For i = 0 to n-1 Step 2
    links(i).click
Next I

Answer 2

在蒂姆·威廉姆斯 (Tim Williams) 的热心帮助下，我终于弄清楚了最后遗漏的细节。这是下面的最终代码。

Private Sub Open_multiple_sub_pages_from_main_page()


Dim i As Long
Dim IE As Object
Dim Doc As Object
Dim objElement As Object
Dim objCollection As Object
Dim buttonCollection As Object
Dim valeur_heure As Object


' Create InternetExplorer Object
Set IE = CreateObject("InternetExplorer.Application")
' You can uncoment Next line To see form results
IE.Visible = True

' Send the form data To URL As POST binary request
IE.navigate "http://webpage.com/"

' Wait while IE loading...
While IE.Busy
        DoEvents
Wend


Set objCollection = IE.Document.getElementsByTagName("input")

i = 0
While i < objCollection.Length
    If objCollection(i).Name = "txtUserName" Then
        ' Set text for search
        objCollection(i).Value = "1234"
    End If
    If objCollection(i).Name = "txtPwd" Then
        ' Set text for search
        objCollection(i).Value = "password"
    End If

    If objCollection(i).Type = "submit" And objCollection(i).Name = "btnSubmit" Then ' submit button if found and set
        Set objElement = objCollection(i)
    End If
    i = i + 1
Wend
objElement.Click    ' click button to load page

' Wait while IE re-loading...
While IE.Busy
        DoEvents
Wend

' Show IE
IE.Visible = True
Set Doc = IE.Document

Dim links, link

Dim j As Integer                                                                    'variable to count items
j = 0
Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")
n = links.Length
While j <= n                                    'loop to go thru all "a" item so it loads next page
    links(j).Click
    While IE.Busy
        DoEvents
    Wend
    '-------------Do stuff here:  copy field value and paste in excel sheet.  Will post another question for this------------------------
    IE.Document.getElementById("DetailToolbar1_lnkBtnSave").Click              'save
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)                                   'wait
    Loop
    IE.Document.getElementById("DetailToolbar1_lnkBtnCancel").Click            'close
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)                                   'wait
    Loop
    Set links = IE.Document.getElementById("dgTime").getElementsByTagName("a")
    j = j + 2
Wend    
End Sub

Answer 3

CSS select或：

使用 CSS select 或 img[src='images/toolbar/b_edit.gif']

这表示 select 个带有 img 标签且属性 src 的元素的值为 'images/toolbar/b_edit.gif'

CSS查询：

VBA:

您可以应用 select 或 document 的 .querySelector 方法。

IE.document.querySelector("img[src='images/toolbar/b_edit.gif']").Click

使用 Excel VBA 在 Internet Explorer 中单击按钮，当按钮没有 "name" 关联时

Use Excel VBA to click on a button in Internet Explorer, when the button has no "name" associated

html

excel

internet-explorer

vba

web-scraping