無法從網頁中獲取價值並將其轉化爲excel

Question

我是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 

Answer 1

這對我的作品...

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