这篇博客探讨了如何使用VBA在Excel中激活特定工作表，并通过VBA与Internet Explorer交互，查找含有特定URL的窗口。进一步地，它展示了如何定位网页中的表格元素，特别是具有' MenuTable '类的元素，以及如何遍历这些元素，根据innerText找到并点击匹配项，例如' Default WFM Group '。
试一试 . 它应首先选择表，然后选择属于该表的所有元素并根据InnerText进行匹配 .
Sub WFM_test()
Dim AllTableItems As Object
Dim element As Object
Sheets("Preenchimento_Remedy").Activate
Wd = Range("D02").Value 'URL address
Set objShell = CreateObject("Shell.Application")
Set objAllWindows = objShell.Windows
For Each ow In objAllWindows
'MsgBox ow
If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then
'MsgBox ow.Hwnd & " " & ow & " " & ow.locationURL
If (InStr(1, ow.LocationURL, Wd, vbTextCompare)) Then
Set objRemedy = ow
End If
End If
Next
If Not objRemedy Is Nothing Then
' you need this (0) as you specify which class you want to select
' The classname is not a unique property
Set Table = objRemedy.Document.getElementsByClassName("MenuTable")(0)
'Select all Elements in the table
Set AllTableItems = Table.getElementsbyTagName("*")
'Iterate over the elements in the table and find the match
For Each element In AllTableItems
If element.InnerText = "Default WFM Group" Then element.Click
Next i
End If
End Sub
1249
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
