Html 无法从网页中选取值并将其输入excel

我是VBA新手， 我想要一些数据从网页到excel表格。。 我已经编写了访问网页、输入值和单击提交按钮的代码。 点击提交按钮，下一个网页出现。。我想将该网页中的emailID添加到我的excel工作表中。。请帮忙

我写的代码如下：

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

Sub-emailforcform（）
Dim ie作为InternetExplorer
将html设置为HTMLDocument
Set ie=新的InternetExplorer
可见=真实
即“导航”https://registration.apct.gov.in/ctdportal/Search/EMailSearch.aspx"
在ie.readyState readyState\u完成时执行此操作
Application.StatusBar=“正在尝试连接”
多芬特
环
设置html=ie.document
ie.document.all（“ctl00$ContentPlaceholder 1$TxtTin”）.Value=“28740213505”
ie.document.all（“ctl00$ContentPlaceholder 1$ButGet”）。单击
范围（“c4”）.Value=ie.document.all（“contentplaceholder 1_UpdatePnl”）.Value
端接头

这对我很有用

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

---

我忘了在您单击按钮的那一行和捕获电子邮件ID的那一行之间放置一个循环。我们需要这个循环来给新页面加载时间。查看我的更新代码。