Vướng mắc khi tìm "Element" của trang web để dùng .getElementById

[bin.vcsc]

Mình áp dụng VBA này cho trang web của công ty bị vướng, mong các bạn giúp đỡ.
'https://www.encodedna.com/excel/web-scrapping-fill-a-web-form-from-excel-using-vba.htm
=========================================================
Option Explicit
Const sSiteName = "https://www.encodedna.com/css-tutorials/form/contact-form.htm"

Private Sub CommandButton1_Click()
Dim oIE As Object
Dim oHDoc As HTMLDocument

Set oIE = CreateObject("InternetExplorer.Application")

' Open Internet Explorer Browser and keep it visible.
With oIE
.Visible = True
.Navigate sSiteName
End With

While oIE.ReadyState <> 4
DoEvents
Wend

Set oHDoc = oIE.Document

With oHDoc
.getElementById("txtName").Value = "Arun Banik"
.getElementById("txtAge").Value = "35"
.getElementById("txtEmail").Value = "arun@hotmail.com"
.getElementById("selCountry").Value = "India" ' Assign value to the dropdown list in the web form.
.getElementById("msg").Value = "Hi, I am Arun Banik and this is a test message. "

.getElementById("bt").Click
End With
End Sub
=========================================================

Với trang web này của công ty, mình không tìm được .getElementById với cấu trúc như hình bên dưới.
Mong anh chị và các bạn chỉ giúp các khắc phục.
Cám ơn nhiều

 

[befaint]

áp dụng VBA này cho trang web của công ty bị vướng

Đáp án ở bài #12 nhé bạn.

Xin cách viết dòng code đợi download xong rồi chạy tiếp dòng code kế tiếp

Dear mọi người Khoa đang viết code chạy download dữ liệu trên web, tuy nhiên ý mình muốn là "đợi download file xong rồi mới chạy dòng code kế tiếp". Vậy mình sẽ viết như thế nào. Câu mình đang viết là bot.wait (Now + TimeValue ("0:00:15")) -> đợi 15 giây, nhưng mình muốn viết là đợi download...

www.giaiphapexcel.com

getElementsByTagName
getElementsByName