如何用VBA把输入焦点设置到网页中的某个文本框中? 5
1、网页c:\abc.html内容如下：<html><head><title>VBA如何自动设置焦点</title></head><body><form><inputty...
1、网页 c:\abc.html 内容如下：
<html>
<head><title>VBA如何自动设置焦点</title></head>
<body>
<form>
<input type=text value=1>
<input type=text value=2>
<input type=text value=3>
<input type=text value=4>
<input type=text value=5>
</form>
</body>
</html>
2、打开 Excel ，按 Alt+F11 进 VBA 环境，点菜单“工具”->“引用”，勾选 "Microsoft HTML Object Library" 和 "Microsoft Internet Controls" ，点“确定”
3、点菜单“插入”->“模块”，输入如下代码：
Sub autoFocus()
Dim oIe As New InternetExplorer
Dim oDoc As New HTMLDocument
oIe.Visible = True
oIe.navigate "c:/abc.html"
Do Until oIe.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set oDoc = oIe.document
' 下面这句要用什么语句才能把焦点自动设置到第 4 个文本框中？
__________________________________________________
End Sub
也百度过了，搜索的结果只有两种：
1、在 VBA 中设置窗体中文本框的焦点；
2、在网页中用 JavaScript 设置网页中文本框的焦点。
都没有我想要的 展开
<html>
<head><title>VBA如何自动设置焦点</title></head>
<body>
<form>
<input type=text value=1>
<input type=text value=2>
<input type=text value=3>
<input type=text value=4>
<input type=text value=5>
</form>
</body>
</html>
2、打开 Excel ，按 Alt+F11 进 VBA 环境，点菜单“工具”->“引用”，勾选 "Microsoft HTML Object Library" 和 "Microsoft Internet Controls" ，点“确定”
3、点菜单“插入”->“模块”，输入如下代码：
Sub autoFocus()
Dim oIe As New InternetExplorer
Dim oDoc As New HTMLDocument
oIe.Visible = True
oIe.navigate "c:/abc.html"
Do Until oIe.readyState = READYSTATE_COMPLETE
DoEvents
Loop
Set oDoc = oIe.document
' 下面这句要用什么语句才能把焦点自动设置到第 4 个文本框中？
__________________________________________________
End Sub
也百度过了，搜索的结果只有两种：
1、在 VBA 中设置窗体中文本框的焦点；
2、在网页中用 JavaScript 设置网页中文本框的焦点。
都没有我想要的 展开
1个回答
展开全部
给<input 设置个id，用 oDoc.GetElementbyId("id1")得到HtmlNode ，然后设置为焦点
追问
这个我觉得没必要。
上面的填空可以改成:
oDoc.getElementsByTagName("input")(3).__________
问题就是我不知道后面该用什么方法。
谢谢！
追答
oDoc.getElementsByTagName("input")(3).Focus
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
