无法从网页中选择值并将其放入excel中。
无法从网页中选择值并将其放入excel中。
提问于 2014-04-24 05:53:37
我是VBA的新手，我想要一些从网页到excel表格的数据。我已经编写了访问网页的代码，输入值和点击提交按钮。点击提交按钮，下一个网页就来了。我要把网页上的emailID放到我的电子表格上。请帮帮忙
我所写的代码如下：
Sub emailforcform()
Dim ie As InternetExplorer
Dim html As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "https://registration.apct.gov.in/ctdportal/Search/EMailSearch.aspx"
Do While ie.readyState <> READYSTATE_COMPLETE
Application.StatusBar = "Trying to connect"
DoEvents
Loop
Set html = ie.document
ie.document.all("ctl00$ContentPlaceHolder1$TxtTin").Value = "28740213505"
ie.document.all("ctl00$ContentPlaceHolder1$ButGet").Click
Range("c4").Value = ie.document.all("ContentPlaceHolder1_UpdatePnl").Value
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2014-04-24 13:30:03
这对我有用..。
Sub test()
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "https://registration.apct.gov.in/ctdportal/Search/EMailSearch.aspx"
Application.StatusBar = "Trying to connect"
Do Until Not ie.Busy And ie.readyState = 4
DoEvents
Loop
ie.Document.all("ctl00$ContentPlaceHolder1$TxtTin").Value = "28740213505"
ie.Document.all("ctl00$ContentPlaceHolder1$ButGet").Click
Application.StatusBar = "Preparing to retrieve the email ID"
Do Until Not ie.Busy And ie.readyState = 4
DoEvents
Loop
Range("c4").Value = ie.Document.getElementsByTagName("tbody")(7).getElementsByTagName("tr")(1).getElementsByTagName("td")(1).innertext
end sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/23260842
复制相关文章
相似问题
腾讯云开发者
