Login vào website bằng VBA (1 người xem)

[tuanhuycntt]

Anh chị nào thông thạo về vấn đề này hỗ trợ về vấn đề này với ạ. Em mới đang tìm hiểu về vấn đề này đễ hỗ trợ cho công việc. Em đã tìm hiểu 1 số bài tập trên mạng nhưng cấu trúc web mà em cần lấy dữ liệu không giống. Em đã thử mò nhưng không ăn thua

Đặc điểm của web này là khi nhập đúng USER vào ô tài khoản thì listbox bên dưới mới hiện đúng tên trung tâm làm việc.

Anh/chị nào sửa giúp em code với ạ.

Private Sub LoginWeb()
Dim IE As Object, doc As Object, txtPwd As Object, txtUsr As Object, btn As Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    
    IE.navigate "http://erp.apaxenglish.com/Account/Login"
    
    Do
        DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    
    Set doc = IE.document
    
    Set txtUsr = doc.all.Item("user_name")
    Set txtPwd = doc.all.Item("pass_word")
    
    
    Set btn = doc.all.Item("login()")
    
    txtUsr.Value = "HUYNT"
    txtPwd.Value = "XXXXXXXXXXXXXXX"

    'btn.Click
End Sub

 

[tuanhuycntt]

Anh chị nào rành về mảng này hỗ trợ giúp em với ạ