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

我试图从IE中的多个列表框中获取数据,使用Excel中的macros

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> 

我可以得到excel在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(“select”),GetElementByName(“列表”),getelementsbyname(“列表”)(0),我试过使用.Item(1),而不是.Option,因为我已经看到几个例子我GOOGLE了。

谁能帮忙?