Quản lý nội dung thư mục, liệt kê chọn lọc bằng Excel (1 người xem)

[thanhnhanubnd]

OK bạn chỉ giúp mình đổi tên là được . Tên file là tên thật không có &"\"

 

[voda]

Mình đã bổ sung:
-Thay đổi được tên file
-Cập nhật tên file sau khi đổi.
-Tên file hiển thị trong cột C và trong hộp thoại edit không có "\"
Bạn kiểm tra lại, có gì sẽ bổ sung tiếp.

 

[voda]

Bổ sung: lệnh xóa file.

 

[thanhnhanubnd]

File chạy rất tốt.Mình xin hỏi 1 vấn đề thế này :

trong form mình có nhiều page 1,2,3.Trong page 2 của mình có 2 nút option và 1 số button click, textbox. Nay mình muốn disable toàn bộ button click, textbox chỉ chưà lại option thì làm cách nào.Nếu disable từng cái thì vẫn được nhưng dòng code dài quá.

 

[voda]

- Bạn dùng vòng lặp duyệt và disable tất cả.
- Bạn làm thử. Nếu gặp khó khăn thì gởi file lên, sẽ có người giúp.
- Có thể mở topic mới.

 

[xichdragon]

Topic này có mỗi 2 bạn bàn bạc nhỉ . cho tớ góp vui.
Xin phép hỏi lại 1câu trong topic khác cũng có 2 bạn là làm sao để quản lý đc cả các file khác không chỉ là file .doc (chẳng hạn PDF, rar) với không chỉ tên tuổi ngày giờ mà còn cả các comment của file nhỉ??
Mình vẫn đang tìm hiểu cái này, nếu ai giúp đc thì tốt quá!
Tks in advance

 

[sealand]

Theo yêu cầu của bạn Thanh nhan mình bổ xung File quản lý thư mục
Tại file này bạn có thể thêm bao nhiêu sheet tùy ý và nên chia nhỏ các thư mục (Sheet) thì file đỡ nặng. Bạn kiểm tra có gì cho mình biết vì bổ xung dễ có sai sót.

 

[thanhnhanubnd]

File của bạn thật đúng với ý mình, có 1 điều thế này :
1. Mình muốn option button luôn mặc định ở chế độ " không lọc"
2. Khi ở chế độ " không lọc" thì bạn enable nút "chọn hồ sơ dùm" mình.
Cám ơn nhiều.

 

[sealand]

Bạn thay dòng lệnh trong Sub sau:

[COLOR=Blue]Private Sub UserForm_Activate()
......................................

Me.OptionButton[SIZE=4][B][COLOR=Red]2[/COLOR][/B][/SIZE] = True
.....................................
End Sub[/COLOR]

Bằng dòng lệnh sau:

[COLOR=Blue]Private Sub UserForm_Activate()
......................................

Me.OptionButton[/COLOR][COLOR=Blue][B][SIZE=4][COLOR=Red]1[/COLOR][/SIZE][/B] = True
.....................................
End Sub[/COLOR]

Lưu ý: chỉ dòng đó còn các dòng khác để nguyên kể cả trật tự, vì nó liên quan đến trình tự nạp các đối tương. Combo chi tiết nếu không nhớ chính xác thì nhập 1 vài ký tự cần lọc và enter cũng được.

 

[hung007007]

Hôm trước thấy cái code list toàn bộ file trong 1 thư mục, bao gồm cả thư mục con mà giờ tìm không thấy, bác nào có post lại với.
Yêu cầu là lấy toàn bộ file và đường dẫn đầy đủ để đưa vào cột A
Đường dẫn cần lấy cho vào biến trong Sub cũng được, thanks anh em
Đã viết rồi nhưng quên không ghi và đầu óc đang bận bịu nên anh em có thì post giùm với nhé

 

[hung007007]

Đây rồi, up lên cho anh em dùng luôn

 

[ndu96081631]

Hôm trước thấy cái code list toàn bộ file trong 1 thư mục, bao gồm cả thư mục con mà giờ tìm không thấy, bác nào có post lại với.
Yêu cầu là lấy toàn bộ file và đường dẫn đầy đủ để đưa vào cột A
Đường dẫn cần lấy cho vào biến trong Sub cũng được, thanks anh em
Đã viết rồi nhưng quên không ghi và đầu óc đang bận bịu nên anh em có thì post giùm với nhé

Dùng code này thử xem:

Sub SeachFiles1()
  Dim i As Long, MyDir As String
  On Error GoTo Thoat
  With Application.FileDialog(4)
    .Show: MyDir = .SelectedItems(1)
  End With
  With Application.FileSearch
    .SearchSubFolders = True     '<--- Tim ca trong thu muc con
    .LookIn = MyDir 
    .Filename = "*.*"          '<--- Kieu file can tìm
    If .Execute() > 0 Then
      Range("A2:A65536").ClearContents
      For i = 1 To .FoundFiles.Count
        Cells(i + 1, 1) = .FoundFiles(i)
      Next i
    End If
    MsgBox .FoundFiles.Count & " files found."
  End With
Thoat:
End Sub

 

[Người Đưa Tin]

Mình chưa xem được cụ thể cách làm của bạn, nhưng nếu chỉ lấy thông tin của file mà phải mở ra rồi đóng lại từng tập tin là không cần thiết. Bạn hoàn toàn có được thông tin qua đối tượng Scripting.FileSystemObject, bao gồm:
-Tên file
-Ngày lập.
-Ngày sửa cuối.
-Kích thước.
-Thư muc,ổ đĩa, đường dẫn...
-Ghi chú...
-User tạo file...
Trước đây tôi đã làm để tìm mở file, lấy dữ liệu rất nhanh (Nó không cần phải mở các file cần quản lý)

Em đã đọc qua các bài trong topic này và topic Làm thế nào liệt kê danh mục folder trong 1 folder! nhưng chưa biết ứng dụng. Thật sự qua lúng túng do kiến thức hạn chế.

Có bài này của tác giả domfootwear tại đây và đã load file về thử. Code của Thầy ndu96081631
Cũng rất tiện nhưng chưa đáp ứng yêu cầu của em

Em có 1 yêu cầu nho nhỏ, kính nhờ Quý Thầy giúp cho code xử lý khi liệt kê các thư mục mẹ, thư mục con, thư mục cháu, tập tin bất kỳ trong ổ đĩa nào thì sẽ cho hiển thị theo tuần tự các cột và có cả đường link như sau :

|

A​

​

|

B​

​

|

C​

​

|

D​

​

|

E​

​

|

F​

​

|

G​

​

|

1​

​

|

Tên ổ đĩa​

​

|

Directory​

​

|

Sub Directory​

​

|

Tên file - có cả đường link​

​

|

Ngày lập​

​

|

Ngày sửa cuối​

​

|

Kích thước​

​

|

Chân thành cám ơn

 

[sealand]

Bác xem cách đơn giản nhất để liệt kê

 

[phamduylong]

Em đã đọc qua các bài trong topic này và topic Làm thế nào liệt kê danh mục folder trong 1 folder! nhưng chưa biết ứng dụng. Thật sự qua lúng túng do kiến thức hạn chế.

Có bài này của tác giả domfootwear tại đây và đã load file về thử. Code của Thầy ndu96081631
Cũng rất tiện nhưng chưa đáp ứng yêu cầu của em

Em có 1 yêu cầu nho nhỏ, kính nhờ Quý Thầy giúp cho code xử lý khi liệt kê các thư mục mẹ, thư mục con, thư mục cháu, tập tin bất kỳ trong ổ đĩa nào thì sẽ cho hiển thị theo tuần tự các cột và có cả đường link như sau :

|

A​

|

B​

|

C​

|

D​

|

E​

|

F​

|

G​

|

1​

|

Tên ổ đĩa​

|

Directory​

|

Sub Directory​

|

Tên file - có cả đường link​

|

Ngày lập​

|

Ngày sửa cuối​

|

Kích thước​

|

Chân thành cám ơn

Viết theo yêu cầu của KTGG:
Chạy file ListFolder.xla, xuất hiện menu Ds tập tin có menu con Lập danh sách tập tin

Yêu cầu:
- Sheet tạo danh sách phải có tên Folder, Workbook này phải active.
- Sheet Folder đã có sẳn dòng tiêu đề

Các lựa chọn:
- Tạo danh sách mới: xóa danh sách đã có, tạo danh sách mới theo thư mục chọn.
- Chép nối danh sách: giữ nguyên danh sách đã có, tạo danh sách mới theo thư mục chọn và chép nối phía dưới. Có thể lập chung danh sách nhiều thư mục ở các ổ đĩa khác nhau.
- Cập nhật danh sách đã tạo: cập nhật lại danh sách các tập tin trong các thư mục đã có trong Directory
- Các loại tập tin trong danh sách: giới hạn các loại tập tin cần liệt kê. Nhập loại tập tin cần đưa vào danh sách, cách nhau 1 khoảng trắng. Nếu bỏ trống xem như chọn tất cả các tập tin.

Password các file xla của tôi là phamduylong

 

[Người Đưa Tin]

Cám ơn Thầy Long đã tạo công cụ add-ins cho diễn đàn rất tuyệt. Rất dễ sử dụng và đúng ý của em nữa.
Xin phép cho em hỏi -
+ Nếu sử dụng office 2003 thì có hạn chế các tập tin khi kết xuất ra không ?
+ Thầy có thể vui lòng sửa code cho phép chọn tất cả các tập tin (*.*) thay vì chỉ có các loại tập tin xls và doc thôi. Có thể chọn loại tập tin kết xuất tùy ý cũng được

Đã được Thầy Long giải thích trong bài và qua điện thoại
- Các loại tập tin trong danh sách: giới hạn các loại tập tin cần liệt kê. Nhập loại tập tin cần đưa vào danh sách, cách nhau 1 khoảng trắng. Nếu bỏ trống xem như chọn tất cả các tập tin.

Kính

 

[phamduylong]

Cám ơn Thầy Long đã tạo công cụ add-ins cho diễn đàn rất tuyệt. Rất dễ sử dụng và đúng ý của em nữa.
Xin phép cho em hỏi -
+ Nếu sử dụng office 2003 thì có hạn chế các tập tin khi kết xuất ra không ?
+ Thầy có thể vui lòng sửa code cho phép chọn tất cả các tập tin (*.*) thay vì chỉ có các loại tập tin xls và doc thôi. Có thể chọn loại tập tin kết xuất tùy ý cũng được
Kính

- Excel 2003 chỉ có 65536 dòng, lưu được 65535 dữ liệu. Có thể phải chỉnh lại để nếu số dữ liệu nhiều hơn thì chép nối qua sheet khác.

- Chọn loại tập tin kết xuất tùy ý:

- Các loại tập tin trong danh sách: giới hạn các loại tập tin cần liệt kê. Nhập loại tập tin cần đưa vào danh sách, cách nhau 1 khoảng trắng. Nếu bỏ trống xem như chọn tất cả các tập tin.

 

[thietkevt]

Quá hay, xin cám ơn Thầy đã tạo một công cụ hữu ích

 

[shinnikel]

Thầy Long có thể chỉnh dùm e thêm thống kê file Cad được không đuôi của nó là(*.dwg)
(Hihi đã kt thống kê hầu hết tất cả các định dạng wa tuyệt.)

 

[thlpro]

Chào mọi người,

Bài viết của bạn phamduylong rất hay. Cảm ơn bạn nhiều. Bạn có thể giúp mình thêm tí xíu nữa được không? Đó là thêm 1 cột Author và 1 cột Last Author nữa được không. Mình cũng đang cần file này gấp. Rất mong bạn và mọi người giúp đỡ. Thanks a lot.