Tải kết quả xổ số miền Bắc về Excel

[CHAOQUAY]

Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.

 

[Gà Công Nghệ]

Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.

Hay quá, không biết có xổ số miền nam không bạn.

 

[CHAOQUAY]

Hay quá, không biết có xổ số miền nam không bạn.

Đợt này hơi bận, sắp tới rảnh sẽ làm miền trung & miền nam luôn thể

 

[nimbus99]

Đợt này hơi bận, sắp tới rảnh sẽ làm miền trung & miền nam luôn thể

Cám ơn tác giả.

Có 1 bug nhỏ là khi gặp ngày không sổ xố. Ví dụ trong tháng 4 vừa qua. Trang kết quả sổ xố vẫn hiện 31/3/2020. Cho nên maxNgay không nhảy. thành ra script cứ tải hoài ngày 1/4/2020 đến vô tận.
Để giải quyết, mình cho result (1,1) thành ngày (bằng J3). Và dời td đầu tiên qua result (1,2) thì không bị vướng nữa.
Cái này có lợi là mình có 2 cell chứa date để sau này compare. Nếu không match thì coi như ngày đó không xổ và xóa ra khỏi database.

Mình thích miền nam nên chỉnh thành miền nam.

# add thêm ngày vào result(1,2)

                For Each resR In resT.Rows
                    
                    
                    If i = 1 Then
                        
                        result(1, 1) = Sheet1.Range("J3")
                        j = 1
                        For Each cll In resR.Cells
                            
                            If j = 1 Then
                                firstLine = cll.innerText
                                
                                namLoc = InStr(1, firstLine, vbNewLine)
                                result(i, j + 1) = Right(firstLine, Len(firstLine) - namLoc - 1)
                                
                                
                            Else
                                result(i, j + 1) = cll.innerText


                                j = j + 1
                            End If
                        Next cll ......

File Miền Nam mình lấy mọi đài cho vào database, sau này dùng hàm filter nó sau.

Miền trung thì chỉ cần đổi

.Open "GET", "http://ketqua.net/xo-so-mien-nam.php?ngay=" & Sheet1.Range("J3"), False

thành
.Open "GET", "http://ketqua.net/xo-so-mien-trung.php?ngay=" & Sheet1.Range("J3"), False

 

[CHAOQUAY]

Cám ơn tác giả.

Có 1 bug nhỏ là khi gặp ngày không sổ xố. Ví dụ trong tháng 4 vừa qua. Trang kết quả sổ xố vẫn hiện 31/3/2020. Cho nên maxNgay không nhảy. thành ra script cứ tải hoài ngày 1/4/2020 đến vô tận.
Để giải quyết, mình cho result (1,1) thành ngày (bằng J3). Và dời td đầu tiên qua result (1,2) thì không bị vướng nữa.
Cái này có lợi là mình có 2 cell chứa date để sau này compare. Nếu không match thì coi như ngày đó không xổ và xóa ra khỏi database.

Mình thích miền nam nên chỉnh thành miền nam.

# add thêm ngày vào result(1,2)

                For Each resR In resT.Rows
                   
                   
                    If i = 1 Then
                       
                        result(1, 1) = Sheet1.Range("J3")
                        j = 1
                        For Each cll In resR.Cells
                           
                            If j = 1 Then
                                firstLine = cll.innerText
                               
                                namLoc = InStr(1, firstLine, vbNewLine)
                                result(i, j + 1) = Right(firstLine, Len(firstLine) - namLoc - 1)
                               
                               
                            Else
                                result(i, j + 1) = cll.innerText


                                j = j + 1
                            End If
                        Next cll ......

File Miền Nam mình lấy mọi đài cho vào database, sau này dùng hàm filter nó sau.

Miền trung thì chỉ cần đổi

.Open "GET", "http://ketqua.net/xo-so-mien-nam.php?ngay=" & Sheet1.Range("J3"), False

thành
.Open "GET", "http://ketqua.net/xo-so-mien-trung.php?ngay=" & Sheet1.Range("J3"), False

Từ ngày 1/4 đến 22/4 miền Bắc nghỉ dịch covid19, đến ngày 23/4 lại có trở lại. Trong những ngày nghỉ, dòng cuối sẽ hiển thị chuỗi ngày tháng nối liền, hết ngày nghỉ sẽ lại chạy bình thường. Trên máy tôi chạy không bị lặp vô tận bạn ah.

---
Cám ơn bạn đã bổ sung miền Trung & miền Nam

 

[nimbus99]

Từ ngày 1/4 đến 22/4 miền Bắc nghỉ dịch covid19, đến ngày 23/4 lại có trở lại. Trong những ngày nghỉ, dòng cuối sẽ hiển thị chuỗi ngày tháng nối liền, hết ngày nghỉ sẽ lại chạy bình thường. Trên máy tôi chạy không bị lặp vô tận bạn ah.

---
Cám ơn bạn đã bổ sung miền Trung & miền Nam

Đúng rồi, miền Bắc không có cho kết quả nếu không xổ, chỉ có 1 dòng thông báo.
Miền Trung và miền Nam thì trang web nào (như minhngoc cũng vậy) đều để kết quả ngày cũ 31/3, nên mới bị loop.

 

[msfbtvt]

Chào bác e chạy thì bị lỗi này, mong bác bác chỉ giáo ạ

 

[CHAOQUAY]

Chào bác e chạy thì bị lỗi này, mong bác bác chỉ giáo ạ

View attachment 258377

Bạn chạy file nào & thời gian tải kết quả trong khoảng nào để kiểm tra

 

[baongocdaihocchuto]

@CHAOQUAY:
Bạn có thể chia sẻ cho mình biết nguyên tắc chung để cập nhật dữ liệu từ 1 bảng số liệu trên 1 trang web vào bảng tính excel ?

 

[msfbtvt]

Bạn chạy file nào & thời gian tải kết quả trong khoảng nào để kiểm tra

Bác ơi e chạy file đầu tiên của bác ở đầu bài viết



E chọn cái ngày này đổi từ 01-01-20 về 01-01-05

Khi ấn nút capnhat thì bảng báo lỗi như sau

Bác giúp e với ạ

 

[CHAOQUAY]

@CHAOQUAY:
Bạn có thể chia sẻ cho mình biết nguyên tắc chung để cập nhật dữ liệu từ 1 bảng số liệu trên 1 trang web vào bảng tính excel ?

Bạn chưa biết gì về việc này?

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

Bác ơi e chạy file đầu tiên của bác ở đầu bài viết

View attachment 258418

E chọn cái ngày này đổi từ 01-01-20 về 01-01-05

Khi ấn nút capnhat thì bảng báo lỗi như sau

Bác giúp e với ạ

Máy tôi test bình thường, bạn gõ đủ 2005 xem sao rồi nhắn lại

 

[baongocdaihocchuto]

@CHAOQUAY:
Mình chưa biết nên hỏi bạn, đâu có rảnh để hỏi chơi.
Mình thấy file cập nhật kết quả xổ số của bạn hay quá, muốn ứng dụng cho 1 trang web khác mà không biết bắt đầu từ đâu.
Bạn vui lòng chia sẻ nhé.

 

[Maika8008]

Để chạy được file này, cần làm như sau:
Nhấn alt+F11
Nhấn alt+T+R -> tìm & tích chọn các mục như hình trong sheet "Hd" -> OK -> alt+Q.
Chuyển sang sheet "capnhat", thực hiện theo hướng dẫn bên trong.
---
File này lấy kết quả miền Bắc từ trang ketqua.net.
Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không thống kê.

Sao không ngăn cập nhật màn hình để thực thi code cho nhanh bạn nhỉ?

 

[CHAOQUAY]

Sao không ngăn cập nhật màn hình để thực thi code cho nhanh bạn nhỉ?

Cho đỡ nhàm chán đơn điệu thôi bạn

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

@CHAOQUAY:
Mình chưa biết nên hỏi bạn, đâu có rảnh để hỏi chơi.
Mình thấy file cập nhật kết quả xổ số của bạn hay quá, muốn ứng dụng cho 1 trang web khác mà không biết bắt đầu từ đâu.
Bạn vui lòng chia sẻ nhé.

Thời gian đầu tôi tìm hiểu về "xử lý chuỗi JSON" trên diễn đàn, bạn tìm kiếm thử xem

 

[msfbtvt]

Bạn chưa biết gì về việc này?

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

Máy tôi test bình thường, bạn gõ đủ 2005 xem sao rồi nhắn lại

e gõ đủ bác ạ. nó chạy ra lỗi đó đấy

 

[CHAOQUAY]

e gõ đủ bác ạ. nó chạy ra lỗi đó đấy

Bạn chạy thử lại, khi xuất hiện báo lỗi thì chụp hình gửi lên đây nhé.

---
Các mục cần tích chọn như file bài 1 hướng dẫn bạn đã thực hiện hay chưa?

 

[msfbtvt]

Bạn chạy thử lại, khi xuất hiện báo lỗi thì chụp hình gửi lên đây nhé.

---
Các mục cần tích chọn như file bài 1 hướng dẫn bạn đã thực hiện hay chưa?

rồi bác ạ .............

 

[CHAOQUAY]

rồi bác ạ .............

Bạn chạy thử lại, khi xuất hiện báo lỗi thì chụp hình gửi lên đây nhé.

---
Các mục cần tích chọn như file bài 1 hướng dẫn bạn đã thực hiện hay chưa?

Làm cái phần chữ đậm rồi quăng lên nhé

 

[CHAOQUAY]

@msfbtvt Chuyển về 2005 chạy bình thường, bạn xem trong file

 

[msfbtvt]

@msfbtvt Chuyển về 2005 chạy bình thường, bạn xem trong file

E cảm ơn bác, bác nhiệt tình qá ạ
E xin gửi bác video qay lỗi
E gà mờ qá mong bác thông cảm