excel - 为什么代码没有点击按钮?
问题描述
我正在尝试打开一个 IE 窗口并单击按钮以自动执行重复性工作。代码打开窗口但不单击按钮,有什么帮助吗?
该按钮具有以下代码:
<a tabindex="0" title="Criar Solicitação de Manutenção"
class="urLnkReportGl20 urTxtEmph" id="WD54"
style="WHITE-SPACE: nowrap"
ondragstart="var e=window.event;e.cancelBubble=true;e.returnValue=false;return false;"
href="javascript:void(0);" shape="" ti="0"
lsevents="{Activate:[{ResponseData:'delta',ClientAction:'submit'},{}]}"
lsdata="{0:'Criar\x20Solicita\xe7\xe3o\x20de\x20Manuten\xe7\xe3o',1:'CRIAR\x20SOLICITA\xc7\xc3O\x20DE\x20MANUTEN\xc7\xc3O',4:true}"
ct="LN"
<img align="absMiddle" ondrag="return false"
alt="Criar Solicitação de Manutenção" src="http://dest-pb0l03.sap.global.*****:8000/sap/public/bc/WebIcons/ur/default/l/Pictogram/Caliper.gif" border="0"</img> CRIAR SOLICITAÇÃO DE MANUTENÇÃO
</a>
我正在使用的代码是这样的:
Sub VbaInternet()
Set Internet = New InternetExplorer
Internet.navigate "http://dest-pb0l03.sap.global.*****:8000/sap/bc/webdynpro/sap/zpm_portal?sap-language=PT"
Internet.Visible = True
While Internet.Busy
Do While Internet.readyState = 4: DoEvents: Loop 'Do While
Do Until Internet.readyState = 4: DoEvents: Loop 'Do Until
Wend
Dim oElement As Object 'Objeto referente a um Elemento
Dim oElementCol As Object 'Coleção de um tipo de Elemento
Set oElementCol = Internet.document.getElementsByTagName("a")
'Ao encontrar, é simulado o Click e força a saída do laço.
If oElement.className Like "urLnkReportGl20 urTxtEmph" Then
oElement.Click
End If
Next oElement
End Sub
我希望我可以点击这个按钮
解决方案
你能用标准的页面加载等待试试这个,如果有的话,让我知道你得到的错误代码吗?
Option Explicit
'VBE > Tools > References: Microsoft Internet Controls
Public Sub ClickButton()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
With ie
.Visible = True
.Navigate2 "yourURL"
While .Busy Or .readyState < 4: DoEvents: Wend
.document.getElementById("WD54").Click
Stop
End With
End Sub
推荐阅读
- java - 使形状沿角度方向移动
- julia - 朱莉娅,秋葵汤,网页抓取
- flutter - 单击通知时路由到特定的颤振屏幕
- java - Flutter 不是只创建 Java 类,而是 Kotlin
- coldfusion - 带有上下文类型标头的coldfusion cfhttp GET方法问题
- c# - Dapper Querylist 返回类型
- c# - 如何修复“Win32Exception:系统找不到指定的文件”。统一错误
- powershell - PowerShell PnP 脚本循环遍历所有 WebPart 位置条款
- python - 在将数据插入到 Django 中的表之前检查条件
- google-apps-script - 如何在谷歌脚本编辑器中折叠代码