Links dữ liệu từ web

[saobekhonglac]

Chào anh/chị.

Công ty mình đang bị thanh tra về tình trạng xuất hàng quá tải, bên thanh tra bắt phải vào web http://www.vr.org.vn/ptpublic_web/ThongTinPTPublic.aspx để check giấy kiểm định của từng xe và đối chiếu lại giấy kiểm định mình đã photo lại. Hiện tại mình đang lưu giấy kiểm đinh hơn 2000 xe và nhập trong file excel. Giờ mình muốn đối chiếu lại trên web xem trọng lượng trên web và trong file mình xem có khớp số hay không để thông báo với khách hàng. Anh/chị có cách nào links trang web trên vào excel và tìm trên excel thì giúp em với. Chứ giờ mà ngồi gõ hơn 2000 xe vào trang web rồi gõ mã xác thực thì không biết đến tết xong không nữa. Hoặc có cách nào lấy hết dữ liệu từ web trên.

Cám ơn.

 

[saobekhonglac]

Có ai giúp mình không, hoặc giúp mình làm file truy cập web đó trên trang excel và tra cứu cho tiện.

 

[giangleloi]

Có ai giúp mình không, hoặc giúp mình làm file truy cập web đó trên trang excel và tra cứu cho tiện.

Nếu không phải nhập mã xác thực thì làm được đấy. Giờ chỉ có thể giúp khi bạn chọn 1 cell nào đó ở cột A thì dữ liệu cell đó tự động nằm vô ô biển đăng kiểm trên website. Còn mã Captcha bạn tự gõ vào thôi. Như vậy có chịu hông?

 

[saobekhonglac]

Nếu được thì cám ơn anh. Nhưng nếu làm được lồng trang web đó vào Excel luôn được không anh, khi em refresh thì em sẽ nhập lại mã bảo vệ, làm trên nền Excel hết sẽ tiện và ít mất thời gian hơn.

Nếu không phải nhập mã xác thực thì làm được đấy. Giờ chỉ có thể giúp khi bạn chọn 1 cell nào đó ở cột A thì dữ liệu cell đó tự động nằm vô ô biển đăng kiểm trên website. Còn mã Captcha bạn tự gõ vào thôi. Như vậy có chịu hông?

 

[giangleloi]

Nếu được thì cám ơn anh. Nhưng nếu làm được lồng trang web đó vào Excel luôn được không anh, khi em refresh thì em sẽ nhập lại mã bảo vệ, làm trên nền Excel hết sẽ tiện và ít mất thời gian hơn.

Xem thử cái file này nhé, click chuột vào 1 ô bất kỳ tại cột A chứa số xe: (Thu nhỏ của sổ trình duyệt lại thì tự động nằm trong excel thôi mà)

 

[saobekhonglac]

Dear anh.

Em làm nó báo lỗi nhưng vẫn hiện lên trang web (không cập nhật số xe). Anh làm cho em mở bằng trình duyệt GoogleChrome được không anh, và mỗi lần mở lên là nó sẽ đè lên trang cũ chứ không cần mở trang mới và bàn phím bến số bị tắt (tắt đèn nút NumLock).

Cám ơn anh.

Xem thử cái file này nhé, click chuột vào 1 ô bất kỳ tại cột A chứa số xe: (Thu nhỏ của sổ trình duyệt lại thì tự động nằm trong excel thôi mà)

 

[giangleloi]

Dear anh.

Em làm nó báo lỗi nhưng vẫn hiện lên trang web (không cập nhật số xe). Anh làm cho em mở bằng trình duyệt GoogleChrome được không anh, và mỗi lần mở lên là nó sẽ đè lên trang cũ chứ không cần mở trang mới và bàn phím bến số bị tắt (tắt đèn nút NumLock).

Cám ơn anh.

Tôi chạy vẫn bình thường à, hông có lỗi, nên cũng chẳng biết sao cả. Khó quá thì cứ từ từ vậy.

 

[saobekhonglac]

Có lúc báo lỗi, lúc không, nếu không báo lỗi thì khi lên trang web phải chờ ít nhất 2 phút trở lên thì mới nhập được mã bảo vệ vào khung (mã bảo vệ có rồi nhưng nhập vào khung nó bị đơ)

Tôi chạy vẫn bình thường à, hông có lỗi, nên cũng chẳng biết sao cả. Khó quá thì cứ từ từ vậy.

 

[Kiều Mạnh]

Nếu không phải nhập mã xác thực thì làm được đấy. Giờ chỉ có thể giúp khi bạn chọn 1 cell nào đó ở cột A thì dữ liệu cell đó tự động nằm vô ô biển đăng kiểm trên website. Còn mã Captcha bạn tự gõ vào thôi. Như vậy có chịu hông?

Vụ code lấy mã Captcha mình cũng đang tìm Google hoa cả mắt mà chưa thấy nó nằm ở đâu...

Nhớ lại mấy Vụ Web này lại nhớ tới một thành Viên GPE ... sử dung Exel lấy dữ liệu từ Web về Excel rất hay.... nhưng rất tiếc thành viên đó đã....

 

[saobekhonglac]

Tiếc thật, về Capcha thì mình có thể nhập tay cũng được, quan trọng là link được về Excel là đỡ mất thời gian nhiều lắm.

Vụ code lấy mã Captcha mình cũng đang tìm Google hoa cả mắt mà chưa thấy nó nằm ở đâu...

Nhớ lại mấy Vụ Web này lại nhớ tới một thành Viên GPE ... sử dung Exel lấy dữ liệu từ Web về Excel rất hay.... nhưng rất tiếc thành viên đó đã....

 

[giangleloi]

Có lúc báo lỗi, lúc không, nếu không báo lỗi thì khi lên trang web phải chờ ít nhất 2 phút trở lên thì mới nhập được mã bảo vệ vào khung (mã bảo vệ có rồi nhưng nhập vào khung nó bị đơ)

Chắc do sử dụng Senkey nên mới có lúc lỗi lúc không khi người dùng sử dụng. Còn việc chờ 2 phút có thể do mạng Internet của bạn, do máy của bạn, vân vân và mây mây. Híc. Còn mình chạy code gửi lên vẫn bình thường và nhanh chóng.

Vụ code lấy mã Captcha mình cũng đang tìm Google hoa cả mắt mà chưa thấy nó nằm ở đâu...

Nhớ lại mấy Vụ Web này lại nhớ tới một thành Viên GPE ... sử dung Exel lấy dữ liệu từ Web về Excel rất hay.... nhưng rất tiếc thành viên đó đã....

Chắc do trên web là hình ảnh nên xem trong source thì chẳng thấy nó nằm ở đó.

 

[patygate591]

Cái mà hiện mã là do cái thời gian trong cái code ấy bác... Nếu máy bác chủ thớt chạy nhanh... thì cái 00:00:01 ok... Nhưng chạy chậm thì phải cái đó tăng lên... là 10s chẵng hạn :-?
Với cả em thấy cái hình trong web đó sau khi mở lên thì nó có địa chỉ cố định là http://www.vr.org.vn/ptpublic_web/Captcha/183.81.12.151.gif
Nên em nghĩ mình vẫn có thể điền captcha từ cái code VBA luôn (đưa cái hình đó vào form để bác ấy nhập vô :| rồi đưa cái bác ấy nhập vào web) :-?

 

[doveandrose]

Cái mà hiện mã là do cái thời gian trong cái code ấy bác... Nếu máy bác chủ thớt chạy nhanh... thì cái 00:00:01 ok... Nhưng chạy chậm thì phải cái đó tăng lên... là 10s chẵng hạn :-?
Với cả em thấy cái hình trong web đó sau khi mở lên thì nó có địa chỉ cố định là http://www.vr.org.vn/ptpublic_web/Captcha/183.81.12.151.gif
Nên em nghĩ mình vẫn có thể điền captcha từ cái code VBA luôn :-? mà cái này phải show form để nhập ##

chưa chắc cố định đâu à , sơ sơ máy tôi là thấy không phải địa chỉ đó rồi

 

[patygate591]

chưa chắc cố định đâu à , sơ sơ máy tôi là thấy không phải địa chỉ đó rồi

Vậy thì chịu thôi :-/ Máy em toàn thấy cái địa chỉ ấy ##

 

[Kiều Mạnh]

Chắc do sử dụng Senkey nên mới có lúc lỗi lúc không khi người dùng sử dụng. Còn việc chờ 2 phút có thể do mạng Internet của bạn, do máy của bạn, vân vân và mây mây. Híc. Còn mình chạy code gửi lên vẫn bình thường và nhanh chóng.

Chắc do trên web là hình ảnh nên xem trong source thì chẳng thấy nó nằm ở đó.

Vụ này mình tịt Toàn tập.....rãnh ngồi ngâm cứu xem thế nào đó mà

 

[saobekhonglac]

Mình có test thử thì trên 3 địa chỉ IP, đa số là .151 đuôi.

Cái mà hiện mã là do cái thời gian trong cái code ấy bác... Nếu máy bác chủ thớt chạy nhanh... thì cái 00:00:01 ok... Nhưng chạy chậm thì phải cái đó tăng lên... là 10s chẵng hạn :-?
Với cả em thấy cái hình trong web đó sau khi mở lên thì nó có địa chỉ cố định là http://www.vr.org.vn/ptpublic_web/Captcha/183.81.12.151.gif
Nên em nghĩ mình vẫn có thể điền captcha từ cái code VBA luôn (đưa cái hình đó vào form để bác ấy nhập vô :| rồi đưa cái bác ấy nhập vào web) :-?

 

[doveandrose]

Mình có test thử thì trên 3 địa chỉ IP, đa số là .151 đuôi.

chúng ta phải ngồi đợi anh Giang cô đơn ra tay tiếp thui . hi hi

 

[saobekhonglac]

Cái này coi bộ khó quá. Làm thủ công trước, đành phải chờ cao thủ thôi.

 

[Vô danh Tiểu tốt]

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.

 

[saobekhonglac]

Anh chỉnh lại giúp em khi mình nhấp vào xe khác thì trình duyệt web sẽ cập nhật số xe trên tab đó luôn (hiện tại mỗi xe sẽ mở 1 trang mới). Nếu mở được bằng trình duyệt Google Chrome hoặc trên Excel thì quá tuyệt vời.

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.