Lấy danh sách tên từ file trong folder sang excel (1 người xem)

[changngoc]

Tặng bạn chương trình này. Excel 2003, 2007 hay 2010 đều dùng được
Khởi động file xong, bạn sẽ thấy có 1 toolbar, trong đó có nút "Search for files and folders", bấm vào và tự nghiên cứu nhé (nếu cần thì xem video hướng dẫn để biết chi tiết cách dùng)
File này có thể save thành addin để dùng chung

Em sử dụng Office 2013. File anh gửi chỉ search được 1 lần. Đóng chương trình và mở lại để search thì báo "files (or folders) not found!". Giúp em xử lý lỗi này. Cảm ơn anh.

 

[Vu Dinh Duy]

Hihi, Cảm ơn anh Ndu, em gà mờ 2 cách anh đưa ra chẳng biết làm sao với chúng, nên tạm thời làm thêm 1 bước trung gian, chèn thêm 1 cột như công thức của bạn @Vu Dinh Duy hướng dẫn để lấy tên ra thôi.

Mình có sưu tầm trên mạng Code chỉ lấy tên tập tin mà không lấy đường dẫn, nhưng chỉ lấy tập tin của nó mà không lấy được tập tin của thu mục con. Bạn tham khảo nhé.
______________________________________
Option Explicit
Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "C:\" '<<< Startup folder to begin searching from
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With
End Sub

 

[ndu96081631]

Mình có sưu tầm trên mạng Code chỉ lấy tên tập tin mà không lấy đường dẫn, nhưng chỉ lấy tập tin của nó mà không lấy được tập tin của thu mục con. Bạn tham khảo nhé.
______________________________________
Option Explicit
Sub GetFileNames()
Dim xRow As Long
Dim xDirect$, xFname$, InitialFoldr$
InitialFoldr$ = "C:\" '<<< Startup folder to begin searching from
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Please select a folder to list Files from"
.InitialFileName = InitialFoldr$
.Show
If .SelectedItems.Count <> 0 Then
xDirect$ = .SelectedItems(1) & "\"
xFname$ = Dir(xDirect$, 7)
Do While xFname$ <> ""
ActiveCell.Offset(xRow) = xFname$
xRow = xRow + 1
xFname$ = Dir
Loop
End If
End With
End Sub

Dùng hàm Dir thì thua rồi, khỏi cần suy nghĩ việc xài nó đi, bởi nó không hỗ trợ đường dẫn là tiếng Việt Unicode
(Chuyện này đã nói rất nhiều lần trên diễn đàn rồi)

 

[adult]

Dùng hàm Dir thì thua rồi, khỏi cần suy nghĩ việc xài nó đi, bởi nó không hỗ trợ đường dẫn là tiếng Việt Unicode
(Chuyện này đã nói rất nhiều lần trên diễn đàn rồi)

Hì hì, thế thì anh ndu đã giúp thì giúp cho trót, tiễn phật tiễn đến tây phương... Anh viết cái code or cái sub cho em và những người gà như em học hỏi đi, hihihi
Cảm ơn anh nhiều nhiều

 

[changngoc]

Em sử dụng Office 2013. File anh gửi chỉ search được 1 lần. Đóng chương trình và mở lại để search thì báo "files (or folders) not found!". Giúp em xử lý lỗi này. Cảm ơn anh.

@ Anh ndu giúp em với.

 

[ndu96081631]

Hì hì, thế thì anh ndu đã giúp thì giúp cho trót, tiễn phật tiễn đến tây phương... Anh viết cái code or cái sub cho em và những người gà như em học hỏi đi, hihihi
Cảm ơn anh nhiều nhiều

Thì Quang Hải đã viết ở bài 15 rồi còn gì, sao không xài? Còn rắc rối gì sao?
(chứ chắc chắn rằng tôi sẽ không sửa code của tôi để phục vụ cho một mục đích riêng nào đó ---> Thiếu tổng quát)
------------------------------------

Em sử dụng Office 2013. File anh gửi chỉ search được 1 lần. Đóng chương trình và mở lại để search thì báo "files (or folders) not found!". Giúp em xử lý lỗi này. Cảm ơn anh.

Tôi không dùng Excel 2013 nên không biết đâu

 

[Quang_Hải]

Hì hì, thế thì anh ndu đã giúp thì giúp cho trót, tiễn phật tiễn đến tây phương... Anh viết cái code or cái sub cho em và những người gà như em học hỏi đi, hihihi
Cảm ơn anh nhiều nhiều

Nếu đã biết mình gà thì nên chọn những code thóc lúa như bài 15 mà mổ, mổ chi những cục đá lửa chi cho nhức đầu. Khi nào bớt gà rồi thì lấn sâu vào. Với 1 kiến thức VBA nhất định như mình mà mổ code của anh NDU không trôi nữa đấy.

 

[Nghia PT]

Tặng bạn chương trình này. Excel 2003, 2007 hay 2010 đều dùng được
Khởi động file xong, bạn sẽ thấy có 1 toolbar, trong đó có nút "Search for files and folders", bấm vào và tự nghiên cứu nhé (nếu cần thì xem video hướng dẫn để biết chi tiết cách dùng)
File này có thể save thành addin để dùng chung

Excel 2013 không có giao diện này nhi ? ko biết chạy thế nào ?