使用VBA操作网页上的单选按钮

2023-12-06

我是一名 VBA 菜鸟,尝试在网络上操作单选按钮,但运气不佳。我已经在谷歌上搜索了几个小时,发现了大量的代码片段,我一直试图修改它们来完成这项工作,但没有成功。其中必须是以下内容的一些变体:

ie.Document.getElementsByName("name_of_radiobox").Item(0).Checked = True

单选按钮有两个选项(使用 A 导出或使用 B 导出)。自动选择“使用 A 导出”,显然我需要选择另一个。根据 HTML,这两个按钮的名称是相同的,并且它似乎位于现有页面上弹出的表单上。

如何选择第二个按钮?我确信我遗漏了一些重要信息,因此如果我需要提供其他任何信息,请告诉我,我很乐意提供。感谢您提供的所有帮助!

编辑:有一段代码,我相信这是一个弹出的子窗口(它不是一个单独的窗口,而是现有窗口中的一个窗格):

Sys.WebForms.PageRequestManager._initialize('ctl00$sm1', document.getElementById('aspnetForm'));

然后该框的代码如下所示:

<div class="so_heading">
Export response data to Excel</div>
<div id="ctl00_cp1_pageMessage" class="attention">Click the button to send an email containing an Excel file to the email address </div>
<div id="ctl00_cp1_pagec" class="so_fields">
<span id="ctl00_cp1_exportOption"><input id="ctl00_cp1_exportOption_0" type="radio" name="ctl00$cp1$exportOption" value="text" checked="checked" /><label for="ctl00_cp1_exportOption_0">Export with answer texts</label><br /><input id="ctl00_cp1_exportOption_1" type="radio" name="ctl00$cp1$exportOption" value="label" /><label for="ctl00_cp1_exportOption_1">Export with answer codes</label></span>
<div class="gen_menu">
<input type="submit" name="ctl00$cp1$btExport" value="Export Data" onclick="window.setTimeout(cb.curry(__DisableButton, this), 0);" id="ctl00_cp1_btExport" class="confirmitButton" />
</div>

到目前为止,我的代码(打开页面,单击该页面上的链接,这将创建带有单选按钮的窗格:

将 IE 作为对象变暗 Dim ieDoc 作为对象 昏暗的锚作为对象 Dim ieAnchors 作为对象

  Set IE = CreateObject("InternetExplorer.Application")
    IE.navigate "the url to my page"
    IE.Visible = True

  Do While IE.busy: DoEvents: Loop
  Do While IE.ReadyState <> 4: DoEvents: Loop

  Set ieDoc = IE.Document
  Set ieAnchors = ieDoc.Anchors

    For Each Anchor In ieAnchors
        If Anchor.innerHTML = "Export Data..." Then
            Anchor.Click
            Exit For
        End If
    Next Anchor

  Do While IE.busy: DoEvents: Loop
  Do While IE.ReadyState <> 4: DoEvents: Loop

    ' the bit I can't get to work to toggle the radio button
    ieDoc.getElementsByName("ctl00$cp1$exportOption").Item(1).Checked = True

End Function

我能够使用以下代码让它工作:

  Set ieRadio = IE.Document.all
    ieRadio.Item("ctl00$cp1$exportOption")(1).Checked = True

感谢大家的帮助!

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

使用VBA操作网页上的单选按钮 的相关文章

  • 将 vbCrLf 应用于文本框的内容

    我在 Excel vba 项目中有一个用户窗体 在设计时它是空的 在表单初始化事件中 我有以下代码 Private Sub UserForm Initialize txtSQL value SELECT MyName ColY vbCrLf
  • VBA - 循环遍历表单上的控件并读取值

    我想循环遍历表单上的控件并读取值 但是 Value 和 Checked 属性不可用 我的问题是 当我循环访问控件 在本例中为复选框 时 如何读取它们的值 Dim Ctrl as Control For Each Ctrl In frmMai
  • 更改整个工作表的背景颜色

    有没有办法将背景颜色更改为xlNone 例如整张纸 我发现你可以添加背景图片 但是如何更改工作表中所有单元格的颜色呢 您可以使用以下代码轻松完成此操作 Public Sub Demo set color WorksheetName Cell
  • 当单元格值和复选框更改时更改工作表

    我有一本包含多个工作表的工作簿 我有一个菜单页面 工作表 其中包含多个用户选择 输入新订单 更新订单等 每个选项旁边都有一个复选框 根据选中的复选框 单元格F4 F21改变自0 to 1并且 细胞B1更改我想要去的工作表的名称 我的主菜单工
  • 如何使用 SHDocVw.InternetExplorer 命令最大化由 VBA 创建的 IE 窗口?

    正如标题所示 我试图最大化使用以下命令创建的 Internet Explorer 窗口 Set ie New SHDocVw InternetExplorer 代替 Set ie CreateObject InternetExplorer
  • Javascript 链接在 selenium excel vba 中没有响应

    我正在尝试做这样一行点击 javascript 链接的操作 FindElementById ctl00 ContentPlaceHolder1 LinkButton4 WaitDisplayed True 3000 Click 这条线没有任
  • 如何使用 jQuery 获取 asp:RadioButton 的选中值?

    我需要做这样的事情
  • VBA写入Word,更改字体格式

    我正在 Excel 中编写 VBA 脚本 以将基于某些表格的文本输出到 Word 文档 在大多数情况下 一切都很顺利 我在 stackoverflow 的帮助下自学 我有一个相当长的代码 因此将其全部复制到这里会很困难 我将尝试展示相关部分
  • 查询不可更新

    我正在尝试使用 BE SQL Server 2012 Express 中的记录更新本地 Access 2007 表 我的步骤在这里 SQL Server中存在带有4个参数的存储过程来获取所需的记录 Access VBA中有调用SP并进行临时
  • Jquery post 无法在 IE 8 或更早版本中工作

    所以这个功能在除IE以外的所有浏览器中都有效 我只能访问 IE 8 所以不能说新版本是否有效 我无权访问 PHP 或它如何调用 SQL DB 所以我不能肯定地说这是 JavaScript IE 中永远不会触发警报 post http foo
  • 从多页表单中获取活动控件名称和值

    我已经在网上寻找解决方案几个月了 但没有成功 我创建于Excel 2010 a UserForm与多页 我正在尝试编写一个函数来获取activecontrol名称和值 到目前为止 我已经成功使用此命令获取了控件的名称Me MultiPage
  • 具有相对 URL 的 CSS 图像有时相对于 IE 中的页面 URL

    我似乎发现 IE 有时会尝试使用相对 URL 加载 CSS 图像 相对于页面 url 而不是 CSS 文件 url 示例 有人加载此网址 https www main events com event 234 my awesome show
  • VBA 下标超出工作簿名称范围

    我从网上拉了一些代码来打开文件夹中的最新文件 这似乎工作得很好 然而 在代码的后面 我添加了一行附加行来设置最近打开的同一文件 尝试此操作时 工作簿 subscipt 超出范围 我认为这与语法有关 可能需要在工作簿名称中添加额外的引号 有什
  • 连接两列之间的排列

    我需要有关 Excel 作业的帮助 Name City John London Maxx NY Ashley DC Paris 解决这个问题的方法必须是 John london John NY John DC John Paris Maxx
  • 列表框错误“无法设置列表属性。属性值无效。”

    我有一个带有列表框 文本框 组合框和保存按钮的用户表单 下面是我的保存按钮代码 Private Sub cmdsave Click Dim x As Integer x Me ListBox1 ListCount If Me cmbtran
  • IE - 阻止 Iframe 中的兼容模式

    是否可以从 Iframe 中禁用 IE 兼容模式 如果我在iframehtml 这不起作用 这取决于您是否有权访问主机 父级 的 x ua 兼容元 当主机页面处于 IE9 模式或更高版本时 其状态强加于 iframe 这里有一个很好的解释
  • 如何刷新幻灯片放映中的活动幻灯片?

    基于我的最后一个问题 https stackoverflow com questions 14503054 change the image of an image shape我得到了正确的代码来更改形状的图像 不幸的是 这不会更新活动演示
  • Python:使用 python 运行 Excel 宏

    我需要通过 python 运行 Excel 宏 但总是收到以下错误 result self oleobj InvokeTypes dispid LCID wFlags retType argTypes args pywintypes com
  • 在函数上使用子例程的目的

    我已经使用 Access 一段时间了 尽管我了解 Function 相对于 Sub 的明显好处是它可以返回值 但我不确定为什么我应该使用 Sub 而不是一个函数 毕竟 除非我弄错了 函数可以做所有 Subs 可以做的事情吗 注意 我完全知道
  • 在 vba 上将值粘贴到另一个工作簿工作表上时出现问题

    我有以下代码 以便从工作簿复制工作表并将其粘贴到另一个名为 Control de precios 的工作簿的工作表 1 上 Sub createSpreadSheet Set NewBook Workbooks Add With NewBo

随机推荐

  • 带有 utf-8 的 php substr() 函数在末尾留下 � 标记

    这是简单的代码
  • 动态 JSON 结构到 Java 结构

    我正在开发一个项目 使用 JSON 作为创建 Java 对象的配置框架 这也是我的第一个专业 Java 项目 来自多年的 CF PHP JS 等经验 我能找到的关于将 JSON 转换为 Java 的所有资源都基于这样的想法 您必须首先在 J
  • Neo4j 中的 64 位整数

    我在 Neo4j 文档中读到了一些地方 表明 Neo4j 支持 64 位整数 因此 我无法理解为什么我会得到大整数属性的舍入值 例如 CREATE t Test id 9223372036854775807 return t 结果是 id
  • AWS Lambda 创建函数 - 请求失败,状态代码为 403

    尝试创建新的 AWS Lambda 函数使用 root 帐户第一次使用管理控制台 我收到错误 请求失败 状态代码 403 无论我尝试了多少种不同的选择 我已经尝试更改我的区域 使用默认角色 基本 lambda 权限 新角色 现有角色以及选项
  • 如何在 iPhone 应用程序中运行时(以编程方式)切换 Wi-Fi 网络

    是否可以通过编程方式在 iPhone 应用程序中切换 WiFi 网络 在应用程序执行时 如果一个网络出现故障但仍处于连接状态 并且我想切换到另一个 Wi Fi 网络 这可能吗 您的 iPhone 应用程序不应管理 wifi 网络 如果是这样
  • Angular 2 - 将文本区域值发送到共享组件

    我在第一页中有一个文本区域 当我转到下一页时 我需要在下一页中共享的记事本组件中显示该值 但同时当我首先在共享组件中写入新信息时我需要该值并且可以保存和显示新信息 我需要使用 angular2 但无法使用 github 中的任何内容 在此处
  • IE8水平滚动条问题

    我有一个 IE8 错误的水平滚动条问题 与此类似 带溢出的 DIV auto 和 100 宽的表 不幸的是 那里建议的解决方案 缩放 1 在这里不起作用 或者我不知道如何申请 不应出现水平滚动条 它不会出现在 FF 或 Chrome 中但它
  • 在 rake 中调用 bash 别名

    我的 bashrc 中有以下命令 alias mfigpdf for FIG in fig do fig2dev L pdftex FIG FIG pdftex done for FIG in fig do fig2dev L pstex
  • Spring Boot JPA:为同一参数传递多个值 (JPQL)

    我正在使用 JPQL 在 JPA 中编写 SQL 查询CurdRepository界面 我能够使用命名参数编写多个查询 它们的工作方式就像一个魅力 但是 我的应用程序要求我将未知数量的字符串与表中的多个列进行匹配 据我所知 在 SQL 中它
  • Quartz支持在多个节点上执行一次吗?

    在我的场景中 Quartz 将嵌入在我的 Web 应用程序中运行 该应用程序将部署在两个节点上 我可以安排一个任务并使其在两个节点上仅执行一次吗 是DisallowConcurrentExecution用于此目的的注释 例如 如果我用每小时
  • 如何在 sqlite4java 中禁用自动提交?

    我最近一直在使用 sqlite4java 库 我想我已经弄清楚了 唯一困扰我的是我不知道如何使用这个库关闭自动提交 有人可以帮忙吗 代码示例将不胜感激 提前致谢 博罗 Jefromi 和 king nak 是正确的 您只需要发出开始和结束事
  • 如何在 R 中将值放在箱线图中,以表示一张图像中的多个箱线图

    我想在 R 中绘制 Delta Project Types 我有 10 个项目类型 我知道如何绘制箱线图 箱线图 Delta Project Types 但是 如何将 Fivenum 最小值 最大值 第一 第二和第三分位数 放在每个箱线图上
  • 在 Rails 应用程序中使用适用于多个模型的设备

    你好 我是 Rails 新手 我已经安装了 Rails 版本 4 我想知道我正在为老师和学生制作项目 我可以将设计宝石应用到模型老师和学生身上吗 我的项目中最重要的是教师和学生的注册表单需要不同 那么谁能告诉我如何应用设计以便可以以不同的方
  • 如何在seaborn中显示所有数字图例值

    我正在尝试创建一个sns lineplot 对于以下数据框 overs season over total runs total overs avg run 0 2008 1 703 745 0 943624 1 2008 2 923 74
  • 仅在新iPad 3上:wait_fences:未能收到回复:10004003

    所以我知道对此有很多问题 但据我所知这是一个独特的情况 所以我想我会发布它 希望这会添加一些信息 最终可以给我们一个答案 解释为什么会发生这种情况 当我的设备旋转时 我收到错误 wait fences 无法接收回复 10004003 我的动
  • Android 通讯录 vcard API

    有没有 Android API 可以提取 vcard 3 0 格式的联系人 我遇到了一个开源 vcard 项目android vcard 但在使用示例提到了以下评论 重要的 如果您正在为 Android 设备开发应用程序 则不必使用此库 因
  • 如何将 TestExecute/TestComplete 结果导出到 teamcity?

    我正在 teamcity 中使用命令行构建步骤通过批处理文件运行 testcomplete 测试 测试运行良好 但我没有看到有关 teamcity 中通过 失败测试的任何信息 基本上 TestComplete 在运行测试后会生成一些日志文件
  • 如何在 Discord.js 嵌入中 ping 消息作者和用户

    我最近开始使用 Discord js 目前正在执行拥抱命令 命令本身工作正常 但我面临的问题是我希望机器人 ping 消息作者和被拥抱的用户 如果我输入命令 a hug user 这就是我得到的 拥抱用户名 但我希望它像这样显示 user拥
  • 在 Spring 中的嵌入式 Jetty 上配置 Spring Security

    我有一个 Spring beans 定义文件 如下所示
  • 使用VBA操作网页上的单选按钮

    我是一名 VBA 菜鸟 尝试在网络上操作单选按钮 但运气不佳 我已经在谷歌上搜索了几个小时 发现了大量的代码片段 我一直试图修改它们来完成这项工作 但没有成功 其中必须是以下内容的一些变体 ie Document getElementsBy