vba：如何点击iframe中的元素

Question

我的目标是单击一个html iframe中的元素，但到目前为止我没有任何作用。希望有人可以建议如何正确地处理这项任务，因为我现在在圈子里跑了几个星期。

我试图点击div Id，span title但到目前为止没有任何效果。我相信这是因为一个错误的syntex

Option Explicit

Sub it_will_work()
'make the app work faster?
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'--------------------------------
Dim sht As Worksheet
Set sht = ThisWorkbook.Sheets("Fields") 'my data will be stored here

Dim LastRow As Long
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row 'range definition

Dim i As Long            'Will be used for a loop that navigate to different url
For i = 2 To LastRow     'First url starts at row 2 untill the last row

Dim IE As Object         'Internet Explorer declaration
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True

IE.navigate sht.Range("A" & i).Value 'My url that I want to navigate to
While IE.readyState <> 4 Or IE.Busy: DoEvents: Wend

Dim Doc As New HTMLDocument 'Will be used for the main html page
Set Doc = IE.document

Doc.getElementById("tab7").Click  'data taht need to be updated is here

'Global workgroup data that will effect the workgroup data(dependency)
Doc.getElementById("mcdResourceGlobalWorkgroup_ddltxt").Value = sht.Range("W" & i).Value
Doc.getElementById("mcdResourceGlobalWorkgroup_ddltxt").Focus
Doc.getElementById("mcdResourceGlobalWorkgroup_ddlimg").Click

'Workgroup dropdown, that need to be choosen within the Iframe:
Doc.getElementById("ResourceWorkgroup").Value = sht.Range("X" & i).Value '1) worgroup that I want to insert
Doc.getElementById("ResourceWorkgroup").Focus
Doc.getElementById("_IB_imgResourceWorkgroup").Click  '2) Cliking here will generate dropdown values according the value inserted above

Application.Wait Now + TimeValue("00:00:5") 'before refering to Iframe I let the values to be loaded

'***from this point I have the issue where I try to access Iframe and click on the desired element:***
'Here I declare Iframe
Dim objIFRAME As Object
Set objIFRAME = IE.document.getElementsByTagName("iframe")
Debug.Print TypeName(objIFRAME)

'Here I ask to click on a title within the Iframe where value = X
objIFRAME.getElementsByName("title").Value = sht.Range("X" & i).Value.Click

Next i

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

加载网址后，应执行以下步骤：

1. 单击选项卡7 - >这将打开正确的选项卡以进行操作
2. 将值从“A”列插入“全局工作组”字段
3. 专注于“全球工作组”领域
4. 单击验证“全局工作组”字段的图像（验证输入的值）
5. 将值从“X”列插入“工作组”字段
6. 专注于“工作组”字段
7. 单击图像打开下拉选项，该选项根据插入的值生成到“工作组”字段
8. 在Iframe中，单击等于插入“工作组”字段的值的标题

我也尝试使用Selenium IDE，这样我就可以看到录制的宏如何访问Iframe并单击所需的元素：

1. 命令：选择框架|目标：指数= 2
2. 点击|目标：css = span [title =“APAC”]

我试图在VBE中模仿上面的stpes，但找不到正确编写它的方法。我的事件试图下载并应用selenium驱动程序并使用selenium库运行代码，但也被卡住了。

下图是iframe的html代码和我想点击的所需元素：

Answer 1

您应该能够使用以下语法

ie.document.querySelector("[id='_CPDDWRCC_ifr']").contentDocument.querySelector("span[title=APAC]").click

有了硒，你可以使用

driver.SwitchToFrame driver.FindElementByCss("[id='_CPDDWRCC_ifr']")
driver.FindElementByCss("span[title=APAC]").click

使用现有的标记解决方案，您需要使用索引。例如，

objIFRAME(0) 

然后querySelector在contentDocument上。