如何使用Excel宏从HTML多列表框中获取数据?

时间:2016-08-26 02:48:06

标签: excel excel-vba vba

我尝试使用Excel中的宏从IE中的多个列表框中获取数据

HTML

<html>
<header></header>
<body>
<select size="11" multiple="" name="List"><option value="1111111111@bob.com>1111111111@bob.com">1111111111@bob.com</option><option value="2222222222@bob.com>2222222222@bob.com">2222222222@bob.com</option><option value="3333333333@bob.com>3333333333@bob.com">3333333333@bob.com</option><option value="4444444444@bob.com>4444444444@bob.com">4444444444@bob.com</option><option value="5555555555@bob.com>5555555555@bob.com">5555555555@bob.com</option><option value="6666666666@bob.com>6666666666@bob.com">6666666666@bob.com</option><option value="7777777777@bob.com>7777777777@bob.com">7777777777@bob.com</option></select>
</body>
</html>

我可以在IE中打开它

Private Sub CommandButton3_Click()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "c:\users\smahony\desktop\test.html"
ie.Visible = True

While ie.busy
    DoEvents
Wend

但是我遇到了试图获得价值的问题。我试过了:

Range("A2").Value = ie.Document.getElementsByTagName("select")(0).Option(1)

还尝试了GetElementByTagName(&#34; select&#34;),GetElementByName(&#34; List&#34;),getelementsbyname(&#34; List&#34;)(0),以及我&lt; ve尝试使用.Item(1),而不是.Option,正如我在一些例子中看到的那样,我用Google搜索。

有人可以帮忙吗?

0 个答案:

没有答案