Lấy liên kết và tải bài viết của thành viên cụ thể (1 người xem)

[batman1]

Thể theo nguyện vọng chính đáng trong chủ đề

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 các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

 

[quanluu]

Thể theo nguyện vọng chính đáng trong chủ đề

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 các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị 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]

Thể theo nguyện vọng chính đáng trong chủ đề

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 các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

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

 

[dhn46]

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




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

 

[batman1]

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 nghĩ là thường người ta kéo liên kết của ai về thì đặt tên thư mục gần giống tên người đó (nên bỏ các ký tự ngoài bảng chữ cái không dấu) để dễ quản lý, nhưng tôi lường trường hợp nhập tên trang tính đã có - thêm đuôi "_old". Chỉ có điều lường hơn ngắn. Trùng lần đầu vẫn được (do đổi thành "_old"), nhưng trùng lần 2 không được nữa vì tập tin với đuôi "_old" đã có.

Các bạn sửa như sau:
Trong code UserForm1 trong Sub download_links_Click
1. Xóa toàn bộ

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

2. Thay

sh.Name = sheetname

bằng

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.

Đúng là tôi không cẩn thận. Vì dòng cuối

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

là tôi thêm, sau khi viết code, để test thời gian. Khi thêm dòng này thì tôi quên thêm Exit Sub. Tức trong code UserForm1 trong Sub download_links_Click sau dòng

MsgBox "Khong co bai viet nao cua " & nick

thì thêm dòng

Exit Sub

Cám ơn bạn đã kiểm tra và phát hiện lỗi.

 

[batman1]

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

Cám ơn Ninh nhé. Tốc độ gấp 6,5 lần so với máy tôi.
Ninh cho tôi gửi lời hỏi thăm sức khỏe của hai bạn nhé. À mà đã có tin vui chưa đấy?

 

[Kiều Mạnh]

Thể theo nguyện vọng chính đáng trong chủ đề

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 các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị trong MsgBox.

Em Mới Thử ra vầy
Tốc độ rất nhanh

 

[Kiều Mạnh]

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ê]

Thể theo nguyện vọng chính đáng trong chủ đề

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 các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị 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]

Cám ơn Ninh nhé. Tốc độ gấp 6,5 lần so với máy tôi.
Ninh cho tôi gửi lời hỏi thăm sức khỏe của hai bạn nhé. À mà đã có 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]

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

 

[batman1]

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

Êêê, chuyện thường. Có cô cân nặng hơn nhưng lại ít vitamin hơn cô nhẹ 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

Bạn kiểm tra thế này: chọn cột B hoặc C -> Data -> Remove duplicates.

Tôi tin là không có liên kết nào trùng.

Tôi nghi là trên GPE có 2537 bài nhưng rất có thể những bài trong một số box "không được tính".

Tôi nghi một số box sau không được tính:
- Chia sẻ
- Quảng cáo rao vặt
- Bình dương ... TPHCM và tương tự
- Mừng sinh nhật GPE ...
- Chơi game với Excel

Nhưng tôi không dám chắc là những mục nào.

 

[huonglien1901]

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!

 

[zou]

Thể theo nguyện vọng chính đáng trong chủ đề

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 các bài viết của một thành viên cụ thể. Nếu muốn thì cũng có thể tải những bài viết về máy.

Code viết xong mới chạy thử vài lần vì tôi rất ngại test. Nếu ai có thời gian chạy thử thì xin cho biết kết quả - tải bao nhiêu liên kết (bài viết) và mất bao nhiêu thời gian. Kết quả được hiển thị 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]

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]

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]

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]

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]

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)

 

[Bong0503]

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.

Bạn nói như đúng rồi ấy

 

[huonglien1901]

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.

Bữa trước em mới lấy bài viết, Sao hôm nay em vào nó báo lỗi. Em không biết vì sao nữa.

 

[AutoReply]

Bữa trước em mới lấy bài viết, Sao hôm nay em vào nó báo lỗi. Em không biết vì sao nữa.

em đâu cần phải biết vì sao, chỉ cần anh superman1 biết là đủ rồi, vấn đề ảnh có nhã hứng sửa không thôi à.

 

[zou]

em đâu cần phải biết vì sao, chỉ cần anh superman1 biết là đủ rồi, vấn đề ảnh có nhã hứng sửa không thôi à.

Chị ơi, chị có biết chú siêu nhân người dơi khi nào sẽ trở lại không ạ?

 

[AutoReply]

Chị ơi, chị có biết chú siêu nhân người dơi khi nào sẽ trở lại không ạ?

à siêu nhân sẽ xuất hiện đúng lúc để cứu chúng sinh lầm than, cơ duyên đến ắt sẽ gặp.

 

[batman1]

em đâu cần phải biết vì sao, chỉ cần anh superman1 biết là đủ rồi, vấn đề ảnh có nhã hứng sửa không thôi à.

Mỗi lần người ta thay đổi mà tôi làm thì chết tôi mất. Mà tôi thường làm mọi việc vì đam mê. Nếu tôi thích và có hứng giúp ai đó thì tôi làm, dù là công thức hay code. Lúc đó là đam mê, và công việc mang lại nhiều thú vị. Nhưng nếu ai đó đưa cho tôi vấn đề và nhờ giúp thì nó như là giao việc. Đúng lúc mình không có thời gian, không có hứng, không biết làm ... Từ chối thì dù sao cũng ngại, mà làm thì không thể. Chính vì thế mà tôi không muốn liên lạc ngoài diễn đàn. Nếu tôi làm thì là do tôi muốn và công việc mang lại nhiều thú vị. Khi người ta "giao việc" cho tôi thì lúc đó chỉ là sự bắt buộc, mà sự bắt buộc không thể mang lại niềm vui.

Bạn có hứng thì giúp mọi người đi. Tôi nghĩ bạn làm được. Tôi nghĩ sẽ không ai từ chối sự giúp đỡ của bạn đâu. Thế có lẽ tốt hơn là đi khiêu khích.

 

[AutoReply]

Mỗi lần người ta thay đổi mà tôi làm thì chết tôi mất. Mà tôi thường làm mọi việc vì đam mê. Nếu tôi thích và có hứng giúp ai đó thì tôi làm, dù là công thức hay code. Lúc đó là đam mê, và công việc mang lại nhiều thú vị. Nhưng nếu ai đó đưa cho tôi vấn đề và nhờ giúp thì nó như là giao việc. Đúng lúc mình không có thời gian, không có hứng, không biết làm ... Từ chối thì dù sao cũng ngại, mà làm thì không thể. Chính vì thế mà tôi không muốn liên lạc ngoài diễn đàn. Nếu tôi làm thì là do tôi muốn và công việc mang lại nhiều thú vị. Khi người ta "giao việc" cho tôi thì lúc đó chỉ là sự bắt buộc, mà sự bắt buộc không thể mang lại niềm vui.

Bạn có hứng thì giúp mọi người đi. Tôi nghĩ bạn làm được. Tôi nghĩ sẽ không ai từ chối sự giúp đỡ của bạn đâu. Thế có lẽ tốt hơn là đi khiêu khích.

Em nói vui với các bạn ở trên thôi,không khích ai hết, nhưng có thể đã gây ra sự hiểu lầm nào đó.
Tài khoản này ra đời cũng vì mục đích tự động gửi bài viết lên "diễn đàn nào đó" bằng VBA .
Nhưng cũng giống như anh, tất cả làm chỉ vì ngẫu hứng chứ không muốn bị giao việc.
Nghe đâu là diễn đàn này sẽ còn cập nhật dài dài để bổ sung nhiều tính năng nữa, thôi thì cứ coi như chủ đề này là 1 kỷ niệm vậy, hữu duyên thì có ngày sửa, phải không anh ?

 

[be_09]

Mỗi lần người ta thay đổi mà tôi làm thì chết tôi mất. Mà tôi thường làm mọi việc vì đam mê. Nếu tôi thích và có hứng giúp ai đó thì tôi làm, dù là công thức hay code. Lúc đó là đam mê, và công việc mang lại nhiều thú vị. Nhưng nếu ai đó đưa cho tôi vấn đề và nhờ giúp thì nó như là giao việc. Đúng lúc mình không có thời gian, không có hứng, không biết làm ... Từ chối thì dù sao cũng ngại, mà làm thì không thể. Chính vì thế mà tôi không muốn liên lạc ngoài diễn đàn. Nếu tôi làm thì là do tôi muốn và công việc mang lại nhiều thú vị. Khi người ta "giao việc" cho tôi thì lúc đó chỉ là sự bắt buộc, mà sự bắt buộc không thể mang lại niềm vui.

Bạn có hứng thì giúp mọi người đi. Tôi nghĩ bạn làm được. Tôi nghĩ sẽ không ai từ chối sự giúp đỡ của bạn đâu. Thế có lẽ tốt hơn là đi khiêu khích.

Ý của tôi cũng tương tự như nội dung ý kiến bài này.
Khi rảnh và đang hứng thì cái gì trong khả năng thì sẽ giúp ngay, nhất là cách họ trình bày, bố trí bảng tính không có đầu có đuôi, tiêu đề cột không hợp lý và mang tính lặp lại.
Nhiều khi mình muốn góp ý để cấu trúc dữ liệu hợp lý hơn và thuận tiện trong việc tổng hợp báo cáo nhưng đôi khi họ không nghe mà còn quay lại cắn mình, đôi lúc họ còn gửi tin nhắn lôi kéo thêm thành viên khác. Đối với những đối tượng này khi tôi gặp bài viết của họ lần sau là chạy trước cho chắc ăn nhằm tránh hệ lụy, phiền phức, đồng thời không trả lời hay góp ý bất kỳ ý kiến nào nữa.

Đối với thành viên nào có hành vi, lời lẽ hổn hào, nặng lời, ngang ngược, hổ báo (không chỉ riêng tôi mà với cả các thành viên khác) thì tôi nghĩ chơi. Nếu mọi thành viên đều có cùng ý tưởng và cùng hành động như tôi thì chắc chắn những thành viên quá khích đó tự khắc sẽ bị mọi người đào thải.

 

[zou]

...
Nhiều khi mình muốn góp ý để cấu trúc dữ liệu hợp lý hơn và thuận tiện trong việc tổng hợp báo cáo nhưng đôi khi họ không nghe mà còn quay lại cắn mình, đôi lúc họ còn gửi tin nhắn lôi kéo thêm thành viên khác. ..

Đối với thành viên nào có hành vi, lời lẽ hổn hào, nặng lời, ngang ngược, hổ báo (không chỉ riêng tôi mà với cả các thành viên khác) thì tôi nghĩ chơi.... .

Anh ơi/ chị ơi ,
em chưa thế và sẽ cố gắng để không bị như thế.. mỗi cái tật em uống Bia nhiều quá mà em chưa thể bỏ được thôi..

Em còn yếu kém nên chưa giúp gì được, chỉ biết tích cực like mạnh thôi ạ.

Anh/chị chiếu cố lấy hứng thú xử lý vụ này giúp em và các bạn khác với.

cảm tạ anh/chị.

 

[ndu96081631]

mỗi cái tật em uống Bia nhiều quá mà em chưa thể bỏ được thôi..

Chỗ này hợp với anh @be09 rồi đó

 

[dazkangel]

Anh ơi/ chị ơi ,
em chưa thế và sẽ cố gắng để không bị như thế.. mỗi cái tật em uống Bia nhiều quá mà em chưa thể bỏ được thôi..

Em còn yếu kém nên chưa giúp gì được, chỉ biết tích cực like mạnh thôi ạ.

Anh/chị chiếu cố lấy hứng thú xử lý vụ này giúp em và các bạn khác với.

cảm tạ anh/chị.

Nên chờ đợi thôi bạn à, đợi chủ bài có nhã ý thì mới giải quyết được. Đâu phải là làm công ăn lương mà nói là làm.