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

[CHAOQUAY]

Đây bạn. Giúp tôi với. Tks

ketqua.net giờ đổi thành ketqua1.net, bạn làm theo như bên dưới là chạy bình thường

Nhấn alt+F11, kích đúp vào "A_Capnhat", tìm dòng trên thêm số 1 cho thành dòng dưới

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

 

[trangson061]

ketqua.net giờ đổi thành ketqua1.net, bạn làm theo như bên dưới là chạy bình thường

Được rồi cảm ơn bạn nhiều nhé

 

[Thư Tín]

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

File này mình lấy cập nhật kết quả xổ số miền trung thì được, nhưng thống kê theo dòng lại báo lỗi bạn chỉnh lại giúp với

 

[CHAOQUAY]

File này mình lấy cập nhật kết quả xổ số miền trung thì được, nhưng thống kê theo dòng lại báo lỗi bạn chỉnh lại giúp với

Bạn có thể tham khảo bài viết theo đường dẫn bên dưới, file của @doccohaiau

Tải kết quả xổ số 3 miền về excel

Để 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. Các hướng dẫn sử dụng ghi trong sheet Hd --- File này lấy kết quả từ trang MinhNgoc.net Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không...

www.giaiphapexcel.com

 

[phanson0705]

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

View attachment 258377

mình cũng bị lỗi này cao nhân nào sửa giúp mình với

 

[CHAOQUAY]

mình cũng bị lỗi này cao nhân nào sửa giúp mình với

Tải kết quả xổ số 3 miền về excel

Để 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. Các hướng dẫn sử dụng ghi trong sheet Hd --- File này lấy kết quả từ trang MinhNgoc.net Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không...

www.giaiphapexcel.com

Dùng thử file theo đường dẫn trên xem sao.
Nếu còn cần điều chỉnh riêng file miền Bắc sẽ tính tiếp

 

[congkha]

Em có 1 file cập nhật kq xs khi mở lên tự động nhưng cứ phải xóa bỏ mấy ngày trước mở lên nó mới cập nhật tự động. Có bác nào biết sửa ko sửa e với

 

[zPeterPan]

Em có 1 file cập nhật kq xs khi mở lên tự động nhưng cứ phải xóa bỏ mấy ngày trước mở lên nó mới cập nhật tự động. Có bác nào biết sửa ko sửa e với

Bạn gửi file lên mới giải quyết vấn đề được chứ

 

[congkha]

Giờ cập nhập đc cái bắc rồi còn cái nam trung nữa ae giúp với

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

File nó báo nặng ko tải đc lên các bác à.

 

[CHAOQUAY]

Giờ cập nhập đc cái bắc rồi còn cái nam trung nữa ae giúp với

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

File nó báo nặng ko tải đc lên các bác à.

Tải kết quả xổ số 3 miền về excel

Để 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. Các hướng dẫn sử dụng ghi trong sheet Hd --- File này lấy kết quả từ trang MinhNgoc.net Các ngày nghỉ tết, nghỉ dịch ...là những ngày không có kết quả -> không...

www.giaiphapexcel.com

Bắc Trung Nam bạn thử theo link trên xem sao.

---
Báo file nặng thế nào thì gửi lên mới biết nhé bạn

 

[Xuân Voi]

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

Máy mình tải về cũng không chạy được khi thay đổi ngày. Nguyên nhân là do định dạng ngày tháng khi chạy code nó có vấn đề. Cái này là do cài ngôn ngữ của máy nhé. Trường hợp này mình gặp nhiều rồi.

 

[soulambition2020]

ketqua.net giờ đổi thành ketqua1.net, bạn làm theo như bên dưới là chạy bình thường

-Bác ChaoQuay ơi. Bác pm em phát

 

[Xuân Voi]

-Bác ChaoQuay ơi. Bác pm em phát

A xem thử phải cái này không.?

 

[doccohaiau]

A xem thử phải cái này không.?

Cái này chỉ là các mức . Nó chỉ là bước đầu của việc tạo ra các dàn như yêu cầu của bạn kia.
Các dàn 9x 8x ---0x số nếu mình đoán không nhầm thì đó là kết quả tạo thành theo yêu cầu.
Và với số lượng số trong dàn theo quy tắc nhất định kia thì được hỗ trợ bởi một số trang web có chức năng này.
Còn dữ liệu sử dụng là từ A4 đến DB12 bao gồm 9 dòng = 9 dàn dữ liệu.
Để giải quyết: Tạo mức số của 9 dàn dữ liệu trên. Trong đó bao gồm từ MỨC 0 ĐẾN MỨC 9
Dàn xuôi: Sẽ lấy từ mức 9 về mức 8 về mức 7 .... Khi đạt tới số lượng số yêu cầu cho trước như 58 số 68 số,.. 95 số thì dừng
Dàn ngược: Lấy từ mức 0 lên mức 1 lên mức 2 ... Khi đạt tới số lượng số yêu cầu cho trước như 58 số 68 số,.. 95 số thì dừng
Dàn đều và dàn giữa nó phụ thuộc vào yêu cầu cách lấy của bạn kia. Cái này không có quy tắc cụ thể.
Mình giải thích vậy để bạn nào có nhu cầu tìm hiểu thì hiểu thêm thôi.

 

[quyxduce]

bác nào có file chạy cập nhật kết quả miền bắc mới nhất sửa hết các lỗi rồi pot cho em xin với ạ, đọc trên diễn đàn thì thấy miền nam, trung oki còn cập nhật miền bắc vẫn chưa có file excell final ạ, thanks các bác!

 

[CHAOQUAY]

bác nào có file chạy cập nhật kết quả miền bắc mới nhất sửa hết các lỗi rồi pot cho em xin với ạ, đọc trên diễn đàn thì thấy miền nam, trung oki còn cập nhật miền bắc vẫn chưa có file excell final ạ, thanks các bác!

Bạn tải file của bài 66 xem thế nào

 

[quyxduce]

Bạn tải file của bài 66 xem thế nào

em tải file bài 66 về chạy nó vẫn báo lỗi này bác ạ, bác xem giúp em với ạ

 

[doccohaiau]

em tải file bài 66 về chạy nó vẫn báo lỗi này bác ạ, bác xem giúp em với ạ

B thử khai báo thêm 1 biến gán nó = ens(i-3) vào đoạn biến k. xem có lỗi ko. Lỗi này chỉ một số máy bị

 

[Xuân Voi]

em tải file bài 66 về chạy nó vẫn báo lỗi này bác ạ, bác xem giúp em với ạ

Tải kết quả xổ số 3 miền về excel

E dùng file thứ 2 thì excel vẫn báo lỗi như sau a bác giúp e với :D Thank bác Có lẽ để thời gian tới cài thêm office 365 hiệu chỉnh rồi sẽ gửi lại bạn Nhờ bác CHaoQuay có thể cho em xin email để trao đổi được không ạ ? em muốn làm một bảng thống kê xs miền trung nhưng theo nhánh đài,ví...

www.giaiphapexcel.com

Lấy file ở bài 69 này mà dùng nhé

 

[quyxduce]

Tải kết quả xổ số 3 miền về excel

E dùng file thứ 2 thì excel vẫn báo lỗi như sau a bác giúp e với :D Thank bác Có lẽ để thời gian tới cài thêm office 365 hiệu chỉnh rồi sẽ gửi lại bạn Nhờ bác CHaoQuay có thể cho em xin email để trao đổi được không ạ ? em muốn làm một bảng thống kê xs miền trung nhưng theo nhánh đài,ví...

www.giaiphapexcel.com

Lấy file ở bài 69 này mà dùng nhé

bai 69 có file nào đâu bạn nhỉ?

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

B thử khai báo thêm 1 biến gán nó = ens(i-3) vào đoạn biến k. xem có lỗi ko. Lỗi này chỉ một số máy bị

vẫn không được bác ạ )