Thắc Mắc Về Click/fireevent Trong VBA Code điều Khiển IE

Menu

• Trang chủ
• Diễn đàn Bài viết mới Tìm chủ đề
• Có gì mới Bài viết mới Hoạt động mới nhất

Đăng nhập Đăng ký Có gì mới? Tìm kiếm

Tìm kiếm

Everywhere Chủ đề This forum This thread Chỉ tìm trong tiêu đề Bởi: Tìm Tìm kiếm nâng cao…

• Bài viết mới
• Tìm chủ đề

Menu Đăng nhập Đăng ký

• Cách upload ảnh lên diễn đàn

• Trang chủ
• Diễn đàn
• Kỹ thuật xử lý Excel
• Hỏi -Code Theo Yêu Cầu Có Trả Phí

thắc mắc về click/fireevent trong VBA Code điều khiển IE

• Thread starter prosentense
• Ngày gửi 17/9/20

P

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: 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 Bạn phải đăng nhập hoặc đăng ký để bình luận. Chia sẻ: Facebook Twitter WhatsApp Email Link

• Trang chủ
• Diễn đàn
• Kỹ thuật xử lý Excel
• Hỏi -Code Theo Yêu Cầu Có Trả Phí

Top