Lấy liên kết và tải bài viết của thành viên cụ thể

batman1 · 6/11/17

Thể theo nguyện vọng chính đáng

trong chủ đề

http://www.giaiphapexcel.com/dienda...-mục-các-bài-viết-của-gpe.130369/#post-819276

tôi viết code để lấy liên kết các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

quanluu · 8/11/17

batman1 đã viết:
Thể theo nguyện vọng chính đáng trong chủ đề

http://www.giaiphapexcel.com/diendan/threads/chương-trình-lấy-danh-mục-các-bài-viết-của-gpe.130369/#post-819276

tôi viết code để lấy liên kết các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

Đây là kết quả mình chạy cho thành viên có nhiều bài viết nhất.

Code vẫn còn lỗi nhỏ như: Nếu nhập tên Sheet mà đã trước đó đã lấy danh sách thành viên khác thì báo lỗi.

Hoặc nhập tên không đúng cũng báo lỗi chỗ timer.
Những lỗi này nhỏ thôi.
Cảm ơn bạn đã chia sẻ.

phulien1902 · 8/11/17

batman1 đã viết:
Thể theo nguyện vọng chính đáng trong chủ đề

http://www.giaiphapexcel.com/diendan/threads/chương-trình-lấy-danh-mục-các-bài-viết-của-gpe.130369/#post-819276

tôi viết code để lấy liên kết các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

Thật tuyêt vời.
Cảm ơn bài viết rất hay của bác!

dhn46 · 8/11/17

Đây là kết quả dhn46 test bác tham khảo nhé:

Đây là Test mạng dhn46 đang dùng

batman1 · 8/11/17

quanluu1989 đã viết:
Code vẫn còn lỗi nhỏ như: Nếu nhập tên Sheet mà đã trước đó đã lấy danh sách thành viên khác thì báo lỗi.

Tôi nghĩ là thường người ta kéo liên kết của ai về thì đặt tên thư mục gần giống tên người đó (nên bỏ các ký tự ngoài bảng chữ cái không dấu) để dễ quản lý, nhưng tôi lường trường hợp nhập tên trang tính đã có - thêm đuôi "_old". Chỉ có điều lường hơn ngắn. Trùng lần đầu vẫn được (do đổi thành "_old"), nhưng trùng lần 2 không được nữa vì tập tin với đuôi "_old" đã có.

Các bạn sửa như sau:
Trong code UserForm1 trong Sub download_links_Click
1. Xóa toàn bộ

Mã:

On Error Resume Next
ThisWorkbook.Worksheets(sheetname).Name = ThisWorkbook.Worksheets(sheetname).Name & "_old"
On Error GoTo 0

2. Thay

Mã:

sh.Name = sheetname

bằng

Mã:

On Error Resume Next
    sh.Name = sheetname
    If Err.Number Then
        sheetname = sheetname & Format(Time, "hhmmss")
        tb_tt.Value = sheetname
        sh.Name = sheetname
    End If
    On Error GoTo 0

Hoặc nhập tên không đúng cũng báo lỗi chỗ timer.

Đúng là tôi không cẩn thận. Vì dòng cuối

Mã:

MsgBox "Thoi gian tai " & UBound(result) - 1 & " lienket: " & Timer - t

là tôi thêm, sau khi viết code, để test thời gian. Khi thêm dòng này thì tôi quên thêm Exit Sub. Tức trong code UserForm1 trong Sub download_links_Click sau dòng

Mã:

MsgBox "Khong co bai viet nao cua " & nick

thì thêm dòng

Mã:

Exit Sub

Cám ơn bạn đã kiểm tra và phát hiện lỗi.

batman1 · 8/11/17

dhn46 đã viết:
Đây là kết quả dhn46 test bác tham khảo nhé:
Đây là Test mạng dhn46 đang dùng

Cám ơn Ninh nhé. Tốc độ gấp 6,5 lần so với máy tôi.
Ninh cho tôi gửi lời hỏi thăm sức khỏe của hai bạn nhé. À mà đã có tin vui chưa đấy?

Kiều Mạnh · 8/11/17

batman1 đã viết:
Thể theo nguyện vọng chính đáng trong chủ đề

http://www.giaiphapexcel.com/diendan/threads/chương-trình-lấy-danh-mục-các-bài-viết-của-gpe.130369/#post-819276

tôi viết code để lấy liên kết các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

Em Mới Thử ra vầy

Tốc độ rất nhanh

Kiều Mạnh · 8/11/17

Chính Xác Ghê Em mới Viết thêm 2 bài thử lại xem sao cũ = 2535 + 2 bài mới là 2537

Tốc độ Mạng thì Em mới Test Xong.... Gói 30M mà có 27.68 ...

Ba Tê · 8/11/17

batman1 đã viết:
Thể theo nguyện vọng chính đáng trong chủ đề

http://www.giaiphapexcel.com/diendan/threads/chương-trình-lấy-danh-mục-các-bài-viết-của-gpe.130369/#post-819276

tôi viết code để lấy liên kết các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

Tuyệt! Cảm ơn "Người dơi 1".
Nhờ đó tôi tìm được những bài "ngố" của tôi cách đây hơn 8 năm trên GPE.
http://www.giaiphapexcel.com/diendan/threads/lọc-từ-thời-khóa-biểu-chung-ra-thời-khóa-biểu-cá-nhân-cho-từng-giáo-viên.23154/#post-159694

dhn46 · 8/11/17

batman1 đã viết:
Cám ơn Ninh nhé. Tốc độ gấp 6,5 lần so với máy tôi.
Ninh cho tôi gửi lời hỏi thăm sức khỏe của hai bạn nhé. À mà đã có tin vui chưa đấy?

dhn46 xin cảm ơn bác, vợ chồng cháu hiện chưa có gì, bây giờ bắt đầu xúc tiến đây bác ạ ^^, hy vọng sẽ có kết quả nhanh như tốc độ Code của bác (^.^)
dhn46 kính chúc bác và gia đình an khang!

Kiều Mạnh · 8/11/17

Mà sao thấy lạ bài lấy về là 2537 mà coi trang cá nhân là 2517 vậy mất tiêu mô 20 bài ta ................... hay mấy bài đó Mạnh nói tào lao quá bị ẩn đi hay sao ta -0-0-0-

batman1 · 9/11/17

kieu manh đã viết:
Tốc độ Mạng thì Em mới Test Xong.... Gói 30M mà có 27.68 ...

Êêê, chuyện thường. Có cô cân nặng hơn nhưng lại ít vitamin hơn cô nhẹ hơn

Mà sao thấy lạ bài lấy về là 2537 mà coi trang cá nhân là 2517 vậy mất tiêu mô 20 bài ta ... hay mấy bài đó Mạnh nói tào lao quá bị ẩn đi hay sao ta

Bạn kiểm tra thế này: chọn cột B hoặc C -> Data -> Remove duplicates.

Tôi tin là không có liên kết nào trùng.

Tôi nghi là trên GPE có 2537 bài nhưng rất có thể những bài trong một số box "không được tính".

Tôi nghi một số box sau không được tính:
- Chia sẻ
- Quảng cáo rao vặt
- Bình dương ... TPHCM và tương tự
- Mừng sinh nhật GPE ...
- Chơi game với Excel

Nhưng tôi không dám chắc là những mục nào.

huonglien1901 · 9/11/17

kieu manh đã viết:
Chính Xác Ghê Em mới Viết thêm 2 bài thử lại xem sao cũ = 2535 + 2 bài mới là 2537
View attachment 186356

Tốc độ Mạng thì Em mới Test Xong.... Gói 30M mà có 27.68 ...View attachment 186354

Cách kiểm tra tốc độ mạng sao như hình ảnh anh đưa lên vậy?

Em cảm ơn Anh!

hpkhuong · 9/11/17

huonglien1901 đã viết:
Cách kiểm tra tốc độ mạng sao như hình ảnh anh đưa lên vậy?

Em cảm ơn Anh!

Vào hỏi ông Google ấy, search key "speedtest" -> ví dụ: http://beta.speedtest.net/
Rồi bấm đại phát nó test cho coi....

zou · 3/6/18

batman1 đã viết:
Thể theo nguyện vọng chính đáng trong chủ đề

http://www.giaiphapexcel.com/diendan/threads/chương-trình-lấy-danh-mục-các-bài-viết-của-gpe.130369/#post-819276

tôi viết code để lấy liên kết các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

Chào bạn, tôi không lấy được bài viết, nhờ bạn kiểm tra giúp .
Xin cảm ơn !

huonglien1901 · 3/6/18

zou đã viết:
Chào bạn, tôi không lấy được bài viết, nhờ bạn kiểm tra giúp .
Xin cảm ơn !

View attachment 196685

Bạn nhập sai rồi, bạn nhập trên thành viên thôi, trên sheet bạn nhập sheet 1,2,3 gì đó, rồi nhấn nút liên kết bài viết.

zou · 3/6/18

huonglien1901 đã viết:
Bạn nhập sai rồi, bạn nhập trên thành viên thôi, trên sheet bạn nhập sheet 1,2,3 gì đó, rồi nhấn nút liên kết bài viết.

Ah tên sheet và tên thành viên có liên quan với nhau ah bạn?
Tôi cũng đã thử nhập tên sheet khác tên thành viên mà vẫn không được.

dazkangel · 3/6/18

huonglien1901 đã viết:
Cách kiểm tra tốc độ mạng sao như hình ảnh anh đưa lên vậy?

Em cảm ơn Anh!

Em chạy được không, theo anh nghĩ web đã đổi thiết kế nên không lấy bài viết được.
Dù thử vài cách vẫn không chạy.

zou · 3/6/18

dazkangel đã viết:
Em chạy được không, theo anh nghĩ web đã đổi thiết kế nên không lấy bài viết được.
Dù thử vài cách vẫn không chạy.

Vậy là nếu chúng ta muốn dùng thì chỉ còn cách đợi chú siêu nhân người dơi đến giúp ạ?

Bong0503 · 3/6/18

zou đã viết:
Vậy là nếu chúng ta muốn dùng thì chỉ còn cách đợi chú siêu nhân người dơi đến giúp ạ?

Ngày trôi qua.
Tháng trôi qua
.......
Vật đổi sao rời
Hên xui nick nào đó vẫn là nick nào đó như ngày đầu( những năm xxx)

Lấy liên kết và tải bài viết của thành viên cụ thể

Thành viên gạo cội

File đính kèm

Thành viên gắn bó

GPE - My love

Hướng tới tương lai

Thành viên gạo cội

Thành viên gạo cội

I don't program, I beat code into submission!!!

I don't program, I beat code into submission!!!

Cạo Rồi Khỏi Gội

Hướng tới tương lai

I don't program, I beat code into submission!!!

Thành viên gạo cội

GPE là ngôi nhà thứ 2 của tôi!!!

######

Thành viên mới

GPE là ngôi nhà thứ 2 của tôi!!!

Thành viên mới

<New Horizons>

Thành viên mới

Thành viên hoạt động

Facebook

Group