[Có hỗ trợ phí] Lấy dữ liệu từ Web về đẩy vào bảng tính excel

[nnthoi1994]

Chào anh em, nhờ anh em hỗ trợ giúp
Tự động đăng nhập và đẩy dữ liệu về bảng excel thông qua Firefox, vì IE load Web này không Full. Em đã tìm khắp các diễn đàn nước ngoài nhưng chỉ có thể tự động đăng nhập, hoặc lấy dữ liệu web đơn giản. Dữ liệu trong web này không load hẳn hết mà phải lăn chuột xuống dữ liệu mới tải tiếp. Nút Excel có thể xuất dữ liệu cần lấy nhưng phải đăng nhập và tải về sau đó rap vào rất mất thời gian.
Zalo: 0935988224 Em chuyển khoản hậu hĩnh ạ, cảm ơn cả nhà nhiều ạ

 

[huhumalu]

Bạn cho thông tin trang web để mọi người cùng xem thử.

 

[nnthoi1994]

Bạn cho thông tin trang web để mọi người cùng xem thử.

Em đính kèm video với tệp nó lạc trôi đâu rồi trời

 

[cantl]

Em đính kèm video với tệp nó lạc trôi đâu rồi trời

Lạc đề rồi. Người ta hỏi trang web. Copy dán vào là xong mà.

 

[VetMini]

Bạn cho thông tin trang web để mọi người cùng xem thử.

Lạc đề rồi. Người ta hỏi trang web. Copy dán vào là xong mà.

Quý vị đọc không kỹ. Thớt có nói quép sai người ta cho tải với điều kiện đăng ký.
Ở đây rõ ràng thớt muốn tải mà không cần đăng ký.

Xin trân trọng nhắc nhở quý vị hai điều sau đây:
1. Việc thớt đòi hỏi cần phải xem lại có vi phạm bản quyền sản phẩm trí tuệ. Người ta cho phép tải khi đăng nhập có nghĩa là phải đăng nhập mới được tải.
2. Giúp người phạm pháp tội 1 thì giúp mà có ăn phí sẽ tội 2.

 

[nnthoi1994]

Lạc đề rồi. Người ta hỏi trang web. Copy dán vào là xong mà.

Web bên em là nội bộ ấy ạ, bên mình không xem được

Bài đã được tự động gộp: 14/12/22

Quý vị đọc không kỹ. Thớt có nói quép sai người ta cho tải với điều kiện đăng ký.
Ở đây rõ ràng thớt muốn tải mà không cần đăng ký.

Xin trân trọng nhắc nhở quý vị hai điều sau đây:
1. Việc thớt đòi hỏi cần phải xem lại có vi phạm bản quyền sản phẩm trí tuệ. Người ta cho phép tải khi đăng nhập có nghĩa là phải đăng nhập mới được tải.
2. Giúp người phạm pháp tội 1 thì giúp mà có ăn phí sẽ tội 2.

Ôi bác hiểu làm rồi, web nội bộ bệnh viện thôi, có sẵn nút tải Excel về luôn nhưng tải về phải vlookup dữ liệu vào bảng tính của em nữa để xử lý số liệu. Em muốn code VBA tự động load trong Excel luôn ấy ạ

 

[nhocproaction]

Bạn có thể thử kết hợp power query để tự load và vba để chạy lookup dữ liệu nhé

 

[Cuongneu1993]

Web bên em là nội bộ ấy ạ, bên mình không xem được

Bài đã được tự động gộp: 14/12/22

Ôi bác hiểu làm rồi, web nội bộ bệnh viện thôi, có sẵn nút tải Excel về luôn nhưng tải về phải vlookup dữ liệu vào bảng tính của em nữa để xử lý số liệu. Em muốn code VBA tự động load trong Excel luôn ấy ạ

Đơn giản là làm 1 sheet convert dữ liệu sang thứ tự bảng tính của mình là xong thôi, tải file-mở file-copy vào bảng convert- ấn nút-xong

 

[nnthoi1994]

Vậy cũng được ạ, cho em xin hướng dẫn với

 

[Cuongneu1993]

- Làm 1 File convert
- Sắp xếp lại dữ liệu theo thứ tự bảng tính của mình bằng công thức
- Copy dữ liệu tải từ web vào bảng màu vàng, ấn nút Convert dữ liệu bảng xanh vào File chính

Sub Convert_Data()
    Dim ketQua
    Dim ws As Worksheet
    Dim vjp, lRow As Long
   
    Set ws = Workbooks("Cong_viec.xlsm").Sheets("Sheet1")
    vjp = Sheet1.Range("H4").Value               ' Đếm số dòng có dữ liệu tại bảng xanh
    lRow = ws.Range("B99999").End(xlUp).row      
    ketQua = Sheet1.Range("H6:Q" & 5 + vjp).Value
    ws.Range("B" & lRow + 1 & ":L" & lRow + 1).Resize(vjp).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ws.Range("B" & lRow + 1).Resize(vjp, 10).Value = ketQua
End Sub

 

[nnthoi1994]

Nhiều bác inbox zalo quá, do mạng nội bộ nên không teamview được, phải cắm điện thoại vào teamview mà cắm điện thoại thì lại không có mạng nội bộ

Bài đã được tự động gộp: 20/12/22

View attachment 284807
- Làm 1 File convert
- Sắp xếp lại dữ liệu theo thứ tự bảng tính của mình bằng công thức
- Copy dữ liệu tải từ web vào bảng màu vàng, ấn nút Convert dữ liệu bảng xanh vào File chính

Sub Convert_Data()
    Dim ketQua
    Dim ws As Worksheet
    Dim vjp, lRow As Long
  
    Set ws = Workbooks("Cong_viec.xlsm").Sheets("Sheet1")
    vjp = Sheet1.Range("H4").Value               ' Đếm số dòng có dữ liệu tại bảng xanh
    lRow = ws.Range("B99999").End(xlUp).row     
    ketQua = Sheet1.Range("H6:Q" & 5 + vjp).Value
    ws.Range("B" & lRow + 1 & ":L" & lRow + 1).Resize(vjp).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ws.Range("B" & lRow + 1).Resize(vjp, 10).Value = ketQua
End Sub

Có cách nào auto đăng nhập lấy luôn dữ liệu về và auto ráp vào bảng luôn không ạ

 

[Cuongneu1993]

Nhiều bác inbox zalo quá, do mạng nội bộ nên không teamview được, phải cắm điện thoại vào teamview mà cắm điện thoại thì lại không có mạng nội bộ

Bài đã được tự động gộp: 20/12/22

Có cách nào auto đăng nhập lấy luôn dữ liệu về và auto ráp vào bảng luôn không ạ

Mục đích của bạn chỉ đơn giản lấy dữ liệu vào bảng tính thì cần gì tự làm rắc rối thế Bạn muốn xử lý số liệu thì nên bỏ suy nghĩ "auto ráp vào"đi, mỗi dữ liệu mới thêm vào bảng tính cần kiểm soát tốt đầu vào, cứ auto rồi đến lúc không biết bị sai chỗ nào