获取ID / Name以外的属性
获取ID / Name以外的属性
提问于 2014-05-22 02:06:46
我正在尝试编写一些VBA来输入单元格的值到网站。
HTML的一个例子是：
<input name="ctl00$CPH$c_7f0de753x200dx402bxb63bxd08cc4f3f1e0"
type="text"
id="c_7f0de753x200dx402bxb63bxd08cc4f3f1e0"
field-name="Forename"
map="contact_Forename" validate="required: true"> 我已经成功地使用了下面显示的ID和名称，但它们可能会发生变化，因此我需要在上面的HTML中引用map或field-name属性。
Sub Registration()
the_start:
On Error GoTo The_End
Set objie = CreateObject("internetexplorer.application")
objie.Top = 0
objie.Left = 0
objie.Width = 800
objie.Height = 600
objie.Visible = True
objie.navigate ("http://closerstill.circdata-solutions.co.uk/microsites/rfg/publish/PF2014/?source=websitetabpb")
Do
DoEvents
If Err.Number <> 0 Then
objie.Quit
Set objie = Nothing
GoTo the_start:
End If
Loop Until objie.ReadyState = 4
objie.Document.getelementbyID("c_a5f795c9x0984x4bffxab24xae4ed7ccc093").Value = "Test"
The_End:
End Sub回答 1
Stack Overflow用户
发布于 2014-05-22 20:49:44
Sub Registration1()
the_start:
On Error GoTo The_End
Set objie = CreateObject("internetexplorer.application")
objie.Top = 0
objie.Left = 0
objie.Width = 800
objie.Height = 600
objie.Visible = True
objie.navigate ("http://closerstill.circdata-solutions.co.uk/microsites/rfg/publish/PF2014/?source=websitetabpb")
Do
DoEvents
If Err.Number <> 0 Then
objie.Quit
Set objie = Nothing
GoTo the_start:
End If
Loop Until objie.ReadyState = 4
Dim element As Object
Set Inputs = objie.document.getelementsbytagname("input")
For Each element In Inputs
If element.getattribute("field-name") = "Forename" Then
element.Value = "test"
End If
Next
The_End:
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/23790706
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号