Excel VBA : Working with iFrame via IE Automation-6ren

Excel VBA : Working with iFrame via IE Automation

转载作者：行者123 更新时间：2023-12-04 22:25:39

31

4

我有一个项目，我正在尝试通过 Excel 的 VBA 自动化网站的行为。到目前为止，我知道如何从 VBA 初始化 Web 浏览器、导航到网站以及执行简单的任务，例如使用 getElementById 单击项目。功能和click方法。但是，我想知道如何处理 iframe 内的嵌入式对象。

例如，这里通过 HTML 源代码概述了树结构的外观。当然，还有更多标签，但至少您可以了解我正在尝试做什么。

<html> 
     <body> 
          <div> 
              <iframe class="abs0 hw100" scrolling="no" allowtransparency="true" id="Ifrm1568521068980" src="xxxxx" title="mailboxes - Microsoft Exchange" ldhdlr="1" cf="t" frameborder="0">  <<< ----- This is where I am stuck            
                      <div> 
                         <tbody>  
                              <tr> 
                                  etc..... 
                                  etc.....
                                  etc.....
                              </tr>
                         <tbody>
                    <div> 
----------- close tags

我想对我来说最大的问题是学习如何操作包含在 iframe 中的嵌入式对象，因为所有这些对我来说仍然是新的，而且我不是用 VBA 编写程序的专家。任何朝着正确方向的帮助或指导都会对我有很大帮助。另外，如果您需要更多信息或澄清，请告诉我。

这是我到目前为止编写的代码:

Option Explicit

'Added: Microsoft HTML Object Library
'Added: Microsoft Internet Controls

'Added: Global Variable
Dim URL As String
Dim iE As InternetExplorer

Sub Main()

'Declaring local variables
Dim objCollection As Object
Dim objElement As Object
Dim counterClock As Long

Dim iframeDoc As MSHTML.HTMLDocument 'this variable is from stackoverflow (https://stackoverflow.com/questions/44902558/accessing-object-in-iframe-using-vba)

'Predefining URL
URL = ""

'Created InternetExplorer Object
Set iE = CreateObject("InternetExplorer.Application")

'Launching InternetExplorer and navigating to the URL.
With iE
    .Visible = True
    .Navigate URL

    'Waiting for the site to load.
    loadingSite
End With

    'Navigating to the page I need help with that contains the iFrame structure.
    iE.Document.getElementById("Menu_UsersGroups").Click

    'Waiting for the site to load.
    loadingSite

    'Set iframeDoc = iE.frames("iframename").Document '<<-- this is where the error message happens: 438 - object doesn't support this property or method.
    'The iFrame of the page does not have a name. Instead "Ifrm1" is the ID of the iFrame.

End Sub

'Created a function that will be used frequently.

Function loadingSite()

    Application.StatusBar = URL & " is loading. Please wait..."
    Do While iE.Busy = True Or iE.ReadyState <> 4: Debug.Print "loading": Loop
    Application.StatusBar = URL & " Loaded."

End Function

请注意:我的 VBA 编程知识处于入门级。所以，如果我第一次不理解你的答案，请多多包涵。另外，任何关于这个主题的漂亮文档或视频也会对我有很大帮助。无论哪种方式，我都非常坚定地学习这门语言，因为它对我来说变得非常有趣和有趣，尤其是当我可以让一个程序完全按照它的设计目的进行时。 :)

最佳答案

您尝试使用以下代码从 iframe 中获取元素:

IE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementbyId("txtcontentinput").Value = "BBB"
IE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementbyId("btncontentSayHello").Click

示例代码如下:

索引页:

<input id="txtinput" type="text" /><br />
<input id="btnSayHello" type="button" value="Say Hello" onclick="document.getElementById('result').innerText = 'Hello ' + document.getElementById('txtinput').value" /><br />
<div id="result"></div><br />
<iframe width="500px" height="300px" src="vbaiframecontent.html">

</iframe>

vbaframeContent.html

<input id="txtcontentinput" type="text" /><br />
<input id="btncontentSayHello" type="button" value="Say Hello" onclick="document.getElementById('content_result').innerText = 'Hello ' + document.getElementById('txtcontentinput').value" /><br />
<div id="content_result"></div>

VBA脚本如下:

Sub extractTablesData1()
    'we define the essential variables

    Dim IE As Object, Data As Object
    Dim ticket As String


    Set IE = CreateObject("InternetExplorer.Application")

    With IE
        .Visible = True
        .navigate ("<your website url>")

        While IE.ReadyState <> 4
            DoEvents
        Wend

        Set Data = IE.Document.getElementsbyTagName("input")

            'Navigating to the page I need help with that contains the iFrame structure.
        IE.Document.getElementbyId("txtinput").Value = "AAA"
        IE.Document.getElementbyId("btnSayHello").Click


    'Waiting for the site to load.
    'loadingSite

    IE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementbyId("txtcontentinput").Value = "BBB"
    IE.Document.getElementsbyTagName("iframe")(0).contentDocument.getElementbyId("btncontentSayHello").Click



    End With
    Set IE = Nothing
End Sub

运行脚本后，结果如下:

关于Excel VBA : Working with iFrame via IE Automation，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/57941535/

31

4

0

文章推荐： excel vlookup 多行到一个单元格中

文章推荐： arrays - ReDim 上的 2D 数组下标超出范围

文章推荐： excel - 如何更改图表轴的字体？

文章推荐： excel - Microsoft Explorer 和 dir 命令之间的不同文件排序

vba - Excel VBA - 让 VBA 脚本循环遍历行
我有一个 VBA 脚本，可以将数据从一张表复制到另一张表。复制的数据被放入公式中，计算出的数量被复制回原始工作表。我正在尝试获取它，以便 VBA 脚本为每一行执行此操作。我有 1000 行数据。 Su
vba - Excel VBA - 列出所有 VBA 环境变量
如何让 excel 在我的“临时”表上列出所有可用的环境变量？下面的代码没有为我返回任何东西...... Sub ListEnvironVariables() Dim strEnviron A
vba - 使用 VBA 代码将 VBA 代码从一个工作表复制到另一个工作表
好的，这就是我想要完成的事情:我正在尝试将所有 VBA 代码从“Sheet2”复制到“Sheet 3”代码 Pane 。我不是指将模块从一个模块复制到另一个模块，而是指 Excel 工作表对象代码。
vba - 使用 VBA 从文本文件中检索和调用 VBA 代码
我正在做一个项目来使用 rule-triggered 处理一些传入的 Outlook 邮件。 VBA 代码。但是，我不想在代码需要更改的任何时候手动更新每个用户收件箱的代码。所以我的想法是把一个文本
vba - 从另一个 VBA 代码注释 vba 代码
我想从另一个代码 VBA 中评论包含 Msg Box 的行。我正在尝试使用 Library VBA EXTENSIBILITY，但我没有找到解决方案。欢迎任何帮助。这是我的代码: Sub Comm
vba - Excel VBA - 使用 VBA 创建新的格式化工作簿
我正在尝试编写程序的最后一部分，我需要从 Access 文档中提取数据并将其打印到新的工作簿中。首先，我将获取产品供应商的名称并创建一个包含每个供应商名称的工作表，然后我想遍历每个工作表并打印每个供
vba - Excel VBA - VBA 内的日期和 IF 函数给出错误
我有一个要求，我试图查找数据中的日期是否大于或等于当前日期，那么它应该显示"is"。这是我的代码， RDate = Application.WorksheetFunction.if(RSDate>=
vba - Excel VBA - 根据单元格值在 VBA 中复制并粘贴循环
我试图想出一个宏来检查单元格中是否存在任何数字值。如果存在数字值，请复制该行的一部分并将其粘贴到同一电子表格内的另一个工作表中。 Sheet1 是包含我所有数据的工作表。我正在尝试查看 R 列中是否有
vba - 未输入 VBA 密码宏/VBA 无法运行
我有一个具有密码保护(防止未经授权访问宏)的 VBA 宏，它按预期运行。用户单击按钮，宏运行。内容大致如下: Sub sample() ActiveSheet.Unprotect Pass
vba - 如何使用 VBA 从工作表中删除 VBA 代码？
我想通过VBA删除工作表中包含的VBA代码。目前，我有一个代码可以将工作表复制到新工作簿并从中删除所有图像。但是，这些图像被设置为在代码中的 Worksheet_Activate 上执行操作，每当我轻
vba - 用于在工作表名称更改时更改 VBA 的动态 VBA 代码
我有一个 vba 代码，它指定要查看的特定工作表名称，例如工作表 2，但是，如果有人忘记将工作表名称更改为sheet2，我可以添加一段动态代码来自动更改调用工作表名称的vba代码吗？例如，从左边算起
vba - 调整命名范围 VBA
VBAExcel 2016 如果执行某些代码后该范围的列数较少，我将尝试动态调整该范围的大小。引用了 MS 文件和各种在线示例，但没有成功。 https://msdn.microsoft.com/en
vba - 执行特定行 vba
我在任何地方都找不到这个问题。在 Visual Basic (excel) 中，我可以按 F8 并循环浏览每一行。但是假设我想开始子程序，然后在执行前两行之后，我想跳到第 200 行。到目前为止，我一
vba - 循环遍历一行并将单元格合并为标题 vba
这是我昨天的问题的补充，所以我开始一个新问题。基本上，我在 excel 的工作表上得到不同范围的数据，并且数据范围每周都不同，因此最后使用的列和最后使用的行会有所不同。我想根据名称合并第 3 行和第
vba - 如何将变体传递给双数组 VBA？
我的想法是创建一个函数来传递这样的双数组: Function pass(a() As Double, b() as double) As Boolean Dim i As Integer, j As
vba - vba vlookup中的滞后
我正在使用 vlookup 运行 VBA 代码，但是，它需要几秒钟才能完成，尽管具有行的工作表只有不到 150 行。滞后主要出现在 col 23 的生成期间。包含此代码的主工作表有大约 2300
vba - 将字符串参数放入范围 - VBA
我在 VBA 中有一个小问题，我想将 Range 函数的行和列以 String 格式放置，如下所示: debut = "BH" & LTrim(Str(i)) fin = "DB" &
vba - VBA 的网络爬虫
我正在尝试使用 Visual Basic 编写 Webcrawler。我有一个包含链接的列表，存储在 Excel 中(第 1 列)。然后宏应打开每个链接并将网站中的某些信息添加到 excel 文件中。
vba - 将公式标准范围设置为整列 VBA
我正在尝试自动生成报告(请原谅我缺乏 Excel 经验)，但遇到了这个错误。在单元格中显示#NAME。代码应为工作簿另一页上的所有列 E 选择单元格和 COUNTIF <1。这是一个简单的语法错误吗？
vba - 取消选择标签和图表Excel VBA
我正在使用“Sheet1”上的命令按钮使用 VBA 创建图表，但是该图表正在添加到另一个工作表(“Sheet2”)。添加图表后，我使用以下代码根据 DataLabel 值对条形图进行着色并更改 Da

首页

博学

6Ren·AI

商城

Excel VBA : Working with iFrame via IE Automation