prosentense
Yêu THVBA
Em chào admin và các bạn trên forum.
Sau khi đọc các bài viết, tài liệu hướng dẫn trên forum, em cảm nhận thấy việc điều khiển IE bằng VBA thật sự rất hấp dẫn. Qua quá trình tìm hiểu thì em đang có thắc mắc về cách bấm click / fireevent trong VBA để chọn 1 đối tượng nào đó trên web.
Em xin tóm tắt vấn đề như sau :
1. chuẩn bị:
website thực hành:
thư viện cài đặt: Microsoft HTML Object Library + Microsoft Internet Controls
2. Mong muốn đạt được
Sau khi vào website, kéo xuống phía dưới thì ta sẽ gặp 1 ô highlight đỏ như ở bên dưới.
Em muốn chọn dòng Refugees
Sau khi chọn xong thì trang web sẽ tự động load tiếp ra 1 ô "Which Refugee program ?"
3. Vấn đề đặt ra
Khi tìm tòi và viết code, em đã chọn được dòng Refugees nhưng web không load ra ô "Which Refugee program ?"
4. Sự nghi ngờ và cần trợ giúp
Em đã quote đoạn code của em ở bên dưới
Em đã thử đổi code .fireevent("onchange") thành .click nhưng vẫn không thành công
Mong các ad/ anh chị bỏ chút thời gian để giúp em ạ
----
Sau đây là code của em
---------
Sau khi đọc các bài viết, tài liệu hướng dẫn trên forum, em cảm nhận thấy việc điều khiển IE bằng VBA thật sự rất hấp dẫn. Qua quá trình tìm hiểu thì em đang có thắc mắc về cách bấm click / fireevent trong VBA để chọn 1 đối tượng nào đó trên web.
Em xin tóm tắt vấn đề như sau :
1. chuẩn bị:
website thực hành:
Bạn cần đăng nhập để thấy link
thư viện cài đặt: Microsoft HTML Object Library + Microsoft Internet Controls
2. Mong muốn đạt được
Sau khi vào website, kéo xuống phía dưới thì ta sẽ gặp 1 ô highlight đỏ như ở bên dưới.
Bạn cần đăng nhập để thấy hình ảnh
Em muốn chọn dòng Refugees
Bạn cần đăng nhập để thấy hình ảnh
Sau khi chọn xong thì trang web sẽ tự động load tiếp ra 1 ô "Which Refugee program ?"
Bạn cần đăng nhập để thấy hình ảnh
3. Vấn đề đặt ra
Khi tìm tòi và viết code, em đã chọn được dòng Refugees nhưng web không load ra ô "Which Refugee program ?"
4. Sự nghi ngờ và cần trợ giúp
Em đã quote đoạn code của em ở bên dưới
Em đã thử đổi code .fireevent("onchange") thành .click nhưng vẫn không thành công
Mong các ad/ anh chị bỏ chút thời gian để giúp em ạ
----
Sau đây là code của em
---------
Mã:
Sub test()
Dim ie As New InternetExplorer
Dim webdata As HTMLDocument
Dim innerdata As IHTMLElementCollection
Dim inps As IHTMLElementCollection
Dim inp As IHTMLElement
Dim i As Long
With ie
.Visible = True
.navigate "https://www.canada.ca/en/immigration-refugees-citizenship/services/application/check-processing-times.html"
End With
While ie.readyState <> 4 Or ie.Busy: DoEvents: Wend
Application.Wait (Now + TimeValue("0:00:05"))
Set webdata = ie.document
Set inp = webdata.getElementById("wb-auto-24")
With inp
.selectedIndex = 4
.FireEvent ("onchange")
End With
End Sub