Links dữ liệu từ web

[Trần Văn Bình]

Trên cơ sở đề tài này cho mình hỏi tiếp với các bạn nhé:
Mình muốn Load hoặc copy dữ liệu về các cột E, F, G, H, các thông số tương ứng là Nhãn hiệu xe:; Loại phương tiện: Số khung: số máy: ... của từng xe

 

[doveandrose]

Trên cơ sở đề tài này cho mình hỏi tiếp với các bạn nhé:
Mình muốn Load hoặc copy dữ liệu về các cột E, F, G, H, các thông số tương ứng là Nhãn hiệu xe:; Loại phương tiện: Số khung: số máy: ... của từng xe

gõ đúng captcha thì nó mở ra trang kết quả , bạn bắt lấy cửa sổ IE này rồi lấy giá trị của các thẻ <td> trong đó là xong

IE.Document.getElementsByTagName("td")

 

[Trần Văn Bình]

Sub GLL_LDL()
Dim IE As Object, txt
Set IE = CreateObject("Internetexplorer.Application")
With IE
    .Visible = True
    .Navigate "http://www.vr.org.vn/ptpublic_web/ThongTinPTPublic.aspx"
    Do
        DoEvents
    Loop While .ReadyState < 4 And .Busy
    .document.all.Item("txtBienDK").Value = Selection.Value
    .document.all.Item("txtCaptcha").Focus
End With
End Sub

Cái này sẽ giúp bạn tận dụng đến từng mili giây, khỏi phải chỉnh thời gian load.

Mình chạy macro của bạn mà nó thông báo .document.all.Item("txtCaptcha").Focus