Hỗ trợ chạy code Javascript trên website bằng VBA

[vanthinh3101]

Kính gửi mọi người,
Tôi đang muốn sử dụng Selenium để lấy dữ liệu từ trang web https://www.bidv.vn/iBank/MainEB.html
Tuy nhiên, ngay bước đầu tiên đã gặp khó khăn.
Bước đầu tiên là cần đăng nhập vào hệ thống nhưng tôi không thể tìm ra được các Element của Form đăng nhập (Hình ảnh 1).



Chỉ khi tôi click trực tiếp vào Form đăng nhập thì các Element đó mới hiện ra (Hình ảnh 2).

Tôi được vài người chỉ cho rằng website này sử dụng code Javascript để hiển thị Form đăng nhập, cần chạy code này trước khi làm các bước tiếp theo.
Tôi đã tìm kiếm trên google rất nhiều nhưng chưa có giải pháp.
Mong mọi người hỗ trợ để giải quyết bài toán này.
Xin cám ơn rất nhiều.

 

[vanthinh3101]

Báo cáo mọi người là em đã được anh @befaint hỗ trợ giúp.
Tôi gửi lên để mọi người cùng tham khảo.

    Dim bot As Selenium.EdgeDriver
    Dim UserName as String, Password as String
        
    Set bot = New Selenium.EdgeDriver

    'Start Edge
    bot.Start
    bot.Window.Maximize

    'Navigate to login page
    bot.Get strweb1
    'Wait for 2 second
    bot.wait 2000

    UserName = ""
    Password = ""
    
    'Anh befaint chỉ giúp đoạn này
    'Enter Username and Password
    bot.ExecuteScript ("document.getElementById('username').value='" & UserName & "';")
    bot.ExecuteScript ("document.getElementById('password').value='" & Password & "';")

Tôi đã mò rất lâu để hoàn thiện code, giờ chỉ còn bước cuối cùng, mong mọi người chỉ giúp.
Hiện tại, code của tôi đã lấy được Sao kê, nhưng nó hiện thị dạng PDF viewer ở 1 tab mới tự sinh ra.
Mong mọi người xem giúp có cách nào để dùng code để:
- Click vào biểu tượng Save; hoặc
- Thay thế cho tổ hợp phím "Ctrl + S"
--> Mục đích là lưu file pdf về ổ đĩa hay không?
Cám ơn mọi người.

 

[Tình nghĩa giang hồ]

' Thực hiện lưu file PDF về đường dẫn C:\luu
bot.Keyboard.SendKeys "{CTRL}s" ' Gửi tổ hợp phím Ctrl + S
bot.Wait 1000 ' Đợi một khoảng thời gian cho hộp thoại lưu file xuất hiện
bot.Keyboard.SendKeys "C:\luu\file.pdf" ' Gửi đường dẫn và tên file cần lưu
bot.Keyboard.SendKeys "{ENTER}" ' Gửi phím Enter để xác nhận lưu file

Anh thử cách này xem có được không nhé.

 

[HeSanbi]

@vanthinh3101
Bạn mở tệp:
%LocalAppData%\SeleniumBasic\Examples\Excel\Examples.xlsm
Vào module: usage_download để xem hướng dẫn.

 

[vanthinh3101]

' Thực hiện lưu file PDF về đường dẫn C:\luu
bot.Keyboard.SendKeys "{CTRL}s" ' Gửi tổ hợp phím Ctrl + S
bot.Wait 1000 ' Đợi một khoảng thời gian cho hộp thoại lưu file xuất hiện
bot.Keyboard.SendKeys "C:\luu\file.pdf" ' Gửi đường dẫn và tên file cần lưu
bot.Keyboard.SendKeys "{ENTER}" ' Gửi phím Enter để xác nhận lưu file

Anh thử cách này xem có được không nhé.

Cám ơn bạn, code này không được bạn ạ.
Tôi được anh @befaint trợ giúp tiếp để ra được kết quả rồi.
Hoàn thiện xong xuôi sẽ đưa lên để mọi người tham khảo.

Bài đã được tự động gộp: 26/5/23

@vanthinh3101
Bạn mở tệp:
%LocalAppData%\SeleniumBasic\Examples\Excel\Examples.xlsm
Vào module: usage_download để xem hướng dẫn.

Cám ơn bạn rất nhiều.
Nhờ bạn chỉ mà tôi mới biết đến cái này để học hỏi, đỡ phải mò mẫm mất nhiều thời gian.