Cách lấy danh sách tên file trong thư mục (Folder) mà không cần VBA

  Рет қаралды 46,744

Gà Excel

Gà Excel

Күн бұрын

Пікірлер: 102
@anhinaomrprits8557
@anhinaomrprits8557 Жыл бұрын
đơn giản hơn thì bạn chỉ cần dán url foler của bạn lên trình duyệt web , sau đó ctrl A / copy toàn bộ / paste vào excel , chỉnh sửa 1 chút / sau đó copy / paste value .
@trung8trung8
@trung8trung8 9 ай бұрын
Tuyệt vời quá bạn
@nguyenthanhhoa5000
@nguyenthanhhoa5000 6 ай бұрын
Hay quá, rất đơn giản
@nganly65
@nganly65 2 жыл бұрын
cảm ơn bạn rất nhiều. Với người làm biếng như mình, đặc biệt là khi gặp phải những yêu cầu khó đỡ, công nghệ thật sự là phép tiên và những người nhiệt tình truyền bá công nghệ thật sự là các thánh.
@huyphamvan5390
@huyphamvan5390 Жыл бұрын
Tuyệt vời, đúng thứ đang cần
@tranngoctrung4150
@tranngoctrung4150 3 жыл бұрын
Rất hay và hữu ích nhé anh Trí
@trungchanhnguyen8431
@trungchanhnguyen8431 Жыл бұрын
Hay quá, cảm ơn video chia sẻ của bạn
@songtran8484
@songtran8484 3 жыл бұрын
Chất quá ad.
3 жыл бұрын
Gà cảm ơn nha
@Chau-Be0
@Chau-Be0 3 жыл бұрын
Cảm ơn Gà nhiều.
3 жыл бұрын
Ok ạ
@phucleminh6277
@phucleminh6277 2 жыл бұрын
Cám ơn bạn nhiều nhé
@vungoctinh4544
@vungoctinh4544 3 жыл бұрын
quá hay luôn!!!
3 жыл бұрын
Gà cảm ơn và chúc bạn học tốt nha
@huongpham-fz2vy
@huongpham-fz2vy 3 жыл бұрын
cảm ơn Gà^^
3 жыл бұрын
Gà chúc bạn học tốt nha
@tuanngo8874
@tuanngo8874 3 жыл бұрын
Anh Gà có thể hướng dẫn cách lấy dữ liệu từ web với trang có user và pass không ạ. Em thấy anh cũng có video lấy dữ liệu từ web nhưng trang web này không yc tài khoản.
@nguyennhan8082
@nguyennhan8082 3 жыл бұрын
Anh hướng dẫn về Word đi ạ. Thanks
@phanlamthientam8969
@phanlamthientam8969 3 ай бұрын
Cho mình hỏi có cách nào làm thêm cột bên cạnh là hyperlink file của từng thư mục không bạn
@hoangyenluong82
@hoangyenluong82 2 жыл бұрын
Hay quá
@tienhoang2030
@tienhoang2030 3 жыл бұрын
Goi tang A 200.000 vnd ucf nhe. A huong dan chuan lam, cam on a nhieu nhieu
@trandaisy5814
@trandaisy5814 Жыл бұрын
Có kết hợp tạo được hyperlink vào danh sách tên file không Gà excel ơi
@SonPham-cd1jf
@SonPham-cd1jf 3 жыл бұрын
Cảm ơn anh
3 жыл бұрын
Ok ạ
@huyluuquang4147
@huyluuquang4147 2 жыл бұрын
Quá hay đi
@ailoiuc8543
@ailoiuc8543 3 жыл бұрын
Anh có thể hướng dẫn anh đối chiếu số tiền đối ứng trong kế toán ở 2 cột được không ạ, em đang cần ạ.
3 жыл бұрын
Bạn có thể dùng if kết hợp vlookup hoặc sumif ạ
@Lang-Thang2710
@Lang-Thang2710 3 жыл бұрын
Anh có thể hướng dẫn cách dùng tổ hợp index+match trong VBA được không anh
@dungam9536
@dungam9536 2 жыл бұрын
rất hay, mình làm như bạn hướng dẫn nhưng không hiểu sao sanh sách các file hiện lên chỉ thấy duy nhất tên 1 file, mong bạn chỉ giúp. thanks
@tranvan3202
@tranvan3202 3 ай бұрын
Mình cũng chỉ lấy được 1 file
@thangnguyen8037
@thangnguyen8037 3 жыл бұрын
chào ad. tôi muốn lấy các files trong các subfolder trong 1 folder tổng với điều kiện là ngày chỉ định bằng userform thì làm như nào ad? ad có thể làm nhiều bài học hơn về VBA đc ko. cám ơn
@cauduong03
@cauduong03 3 жыл бұрын
Ad cho mình hỏi luôn cách đặt link tới files cho danh sách luôn được không , cám ơn!
@Giahuymelapghep
@Giahuymelapghep Ай бұрын
cho em hỏi mình muốn lấy tên folder thì làm thế nào ạ.
@PhuongNguyen-yh2tb
@PhuongNguyen-yh2tb 3 жыл бұрын
A ơi a k livestream nữa hả a
@thuyinh2351
@thuyinh2351 2 жыл бұрын
A ơi cho e hỏi mây e k dung 365 thì lưu dưới dạng nào ạ
@nguyendquy
@nguyendquy 3 жыл бұрын
=files(sheet1!$C$5) , rồi lại save thành file xlsm , nghĩa là bạn đã phải có một đoạn Code VBA cho cái files đấy 😄
@lyhongson7267
@lyhongson7267 3 жыл бұрын
Bạn ơi bạn lên bài chỉnh sửa ảnh cmt bên Photoshop dc ko
3 жыл бұрын
Mình ko làm về photoshop ạ
@chuyenmon8012
@chuyenmon8012 3 жыл бұрын
Xin hỏi. Nội dung này có làm được trên google sheet k ạ?
@trungchanhnguyen8431
@trungchanhnguyen8431 Жыл бұрын
Còn cách lấy tên tất cả thư mục con trong thư mục cha thì làm như thế nào bạn?
@thanhdongctm6
@thanhdongctm6 3 жыл бұрын
Gà ơi nếu mà trong Folder có thêm các Folder nhỏ hơn, trong folder nhỏ hơn đó có file thì làm sao để lấy toàn bộ tên file ra được nhỉ? Cảm ơn bạn nhé
3 жыл бұрын
Trong ví dụ này chỉ hiện file thuộc thư mục chính thôi ạ
@Xiaohuahua4427-s8
@Xiaohuahua4427-s8 Жыл бұрын
có cách lấy danh sách trong folder đưa vào excel và có thể mở file từ danh sách đó ko ạ
@hoanguccanh5810
@hoanguccanh5810 Жыл бұрын
(Ctrl + K) sau đó bạn chọn file để dán link thì sẽ ấn mở trực tiếp trong danh sách đc nhé ban
@Xiaohuahua4427-s8
@Xiaohuahua4427-s8 11 ай бұрын
@@hoanguccanh5810 cảm ơn a☺
@nguyenucthang5653
@nguyenucthang5653 3 жыл бұрын
Mình cũng xài excel 2019 mà không được nhỉ? Phải dùng hàm index mới được ạ, add có biết vì sao không ạ? Cảm ơn ad
@charlottegrace1480
@charlottegrace1480 3 жыл бұрын
Cho mình hỏi bài toán ngược lại là: Từ 1 list danh sách có trước, đặt tên cho các file excel theo list đó thì làm như nào ạ?
3 жыл бұрын
Bạn dùng VBA ạ
@charlottegrace1480
@charlottegrace1480 3 жыл бұрын
@ trong kênh Gà Ecxcel có video hướng dẫn k ạ, nếu k b có thể chỉ cách làm k ạ?
@oitenfile5334
@oitenfile5334 3 жыл бұрын
@@charlottegrace1480 qua gặp mình nhé. Hihi
@anhnhatnguyet4628
@anhnhatnguyet4628 3 жыл бұрын
Cần có file chạy code .xlsm và file mồi Template.xlsx File chạy code .xlsm gồm danh sách tên file ex cần tạo (ví dụ, trong Sheet1 từ B2:B21 là 20 file). Chỉ rõ đường dẫn thư mục chứa file kết quả sau khi đã tạo xong. Và đường dẫn file "mồi" template.xlsx * Hạn chế: chạy code mỗi lần sẽ xuất hiện hộp thông báo Be carefull. Parts of your document may include personal information that can't be removed by the Document Inspector. Phải bấm OK thì mới tạo thành công>>> đã được khắc phục
@anhnhatnguyet4628
@anhnhatnguyet4628 3 жыл бұрын
Public Sub SaveTemplate() 'DUONG DAN THU MUC CHUA FILE KET QUA SAU KHI TAO XONG Const strSavePath As String = "D:\chau long\test\make folder\" 'DUONG DAN TAP TIN TEMPLATE FILE MAU Const strTemplatePath As String = "D:\chau long\test\make folder\template.xlsx" Dim rngNames As Excel.Range Dim rng As Excel.Range Dim wkbTemplate As Excel.Workbook Set rngNames = ThisWorkbook.Worksheets("Sheet1").Range("B2:B21") Set wkbTemplate = Application.Workbooks.Open(strTemplatePath) Application.DisplayAlerts = False For Each rng In rngNames.Cells wkbTemplate.SaveAs strSavePath & rng Next rng wkbTemplate.Close SaveChanges:=False End Sub
@thanhphung87
@thanhphung87 3 жыл бұрын
Cách xoá nhìu dòng có điều kiện sao bạn...
3 жыл бұрын
Bạn tham khảo thêm các video khác trên kênh để áp dụng nha
@tranangque4965
@tranangque4965 3 жыл бұрын
AD ơi, máy e không hiểu vì sao nó tự tạo 1 sheet tên là SGV, khi mở cửa số VBA thì thấy mà bình thường không thấy ạ, ad có biết cách giải quyết vấn đề này không ạ
@UyenNguyen-zb1yn
@UyenNguyen-zb1yn 10 ай бұрын
Em chỉ xuất được tên file đầu tiên ạ. Còn lại không xuất được ạ Thầy ơi.
@jieun-1012
@jieun-1012 2 ай бұрын
E bị xoá hết dữ liệu giờ lấy lại dc rồi mà tên file đã mất hết giờ ngồi lại gõ lại từng tên Anh có cách nào đổi tên file nhanh chỉ e với ạ
@VandaLam-e5o
@VandaLam-e5o Жыл бұрын
Tại sao mình làm theo cách bước nhưng chỉ hiện lên cái tên đầu tiên trong folder mình muốn làm DS nhỉ. nhờ bạn giúp mình với
@heomani2922
@heomani2922 3 жыл бұрын
Alo anh Gà, trường hợp không lấy tên file, chỉ lấy đến tên các folder con trong thư folder lớn có làm được k anh? Cảm ơn anh
@anhnhatnguyet4628
@anhnhatnguyet4628 3 жыл бұрын
Thử xem tại không có máy tính bên cạnh Option Explicit Sub ListFoldersInDirectory() Dim objFSO As Object Dim objFolders As Object Dim objFolder As Object Dim strDirectory As String Dim arrFolders() As String Dim FolderCount As Long Dim FolderIndex As Long With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & "\" .Title = "Select Folder" .Show If .SelectedItems.Count = 0 Then Exit Sub End If strDirectory = .SelectedItems(1) End With Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolders = objFSO.GetFolder(strDirectory).SubFolders FolderCount = objFolders.Count If FolderCount > 0 Then ReDim arrFolders(1 To FolderCount) FolderIndex = 0 For Each objFolder In objFolders FolderIndex = FolderIndex + 1 arrFolders(FolderIndex) = objFolder.Name Next objFolder Worksheets.Add Range("A1").Resize(FolderCount).Value = Application.Transpose(arrFolders) Else MsgBox "No folders found!", vbExclamation End If Set objFSO = Nothing Set objFolders = Nothing Set objFolder = Nothing End Sub
@anhnhatnguyet4628
@anhnhatnguyet4628 3 жыл бұрын
Ok code trên chạy ổn
@heomani2922
@heomani2922 3 жыл бұрын
@@anhnhatnguyet4628 Cảm ơn ạ
@heomani2922
@heomani2922 3 жыл бұрын
@@anhnhatnguyet4628 Code chạy okei lắm ạ. Thanks bạn nhiều nhiều
@heomani2922
@heomani2922 3 жыл бұрын
@@anhnhatnguyet4628 Cho mình hỏi thêm, trường hợp mình muốn add hyperlink vào tên folder vừa lấy được thì cần làm gì ạ? Thanks bạn
@muoibe822
@muoibe822 3 жыл бұрын
Sao mình chỉ lấy đk file đầu nhỉ. Add giải thích giùm vs. Mình dùng win 10
@TuanTran-oz3gk
@TuanTran-oz3gk 3 жыл бұрын
Mình cũng bị tương tự, bạn khắc phục được chưa chỉ mình với
@truonghuannapa
@truonghuannapa 3 жыл бұрын
anh Gà và mọi người có thể cho công thức hoặc code VBA chuyển ngày tháng năm -> thành dạng đọc bằngchữ dc không> Thank nhiều
3 жыл бұрын
Bạn tham khảo thêm các video trên kênh để áp dụng thử xem nha. Chúc bạn thành công ạ
@anhnhatnguyet4628
@anhnhatnguyet4628 3 жыл бұрын
="Ngày "&Day(NgayThangNam)&" Tháng "&Month(NgayThangNam)&" Năm "&Year(NgayThangNam)
@truonghuannapa
@truonghuannapa 3 жыл бұрын
@@anhnhatnguyet4628 nó chỉ ra ngày 11 tháng 4 năm 2021. Chứ ko phải là: ngày mười một tháng tư năm hai nghìn không trăm hai mốt
@hungcaoduy5706
@hungcaoduy5706 3 жыл бұрын
bạn dùng công thức của bạn Anh Nhat Nguyet ở trên nhưng thay phần day() bằng day(switch()) để dịch ngày từ số sang chữ, phần tháng năm tương tự
@nguyenvantrang1074
@nguyenvantrang1074 3 жыл бұрын
Tôi chỉ muốn lấy tên file trong một tháng và dung lượng của từng file có được không?
3 жыл бұрын
Bạn tham khảo các video khác để áp dụng xem sao nha
@DL_windows
@DL_windows 3 жыл бұрын
sao mình làm nó chỉ lấy được file đầu tiên trong thư mục nhỉ
@hongatlam919
@hongatlam919 3 жыл бұрын
giống y tui luôn, Folder cả trăm file mà lấy có file đầu tiên hà. Xài INDEX thì lại ngon.
@tuyetdo599
@tuyetdo599 2 жыл бұрын
Cho mình hỏi sau khi mình ấn \*, thì chỉ ra tên file đầu tiên, chứ ko ra toàn bộ tên file trong thư mục ạ?
@anhmai1110
@anhmai1110 2 жыл бұрын
M cũng bị vậy chỉ 1 file. Chuyển sang dùng index thì hiện hết nhưng lại theo abc, mình thì muốn không theo thứ tự abc mà theo từ trên xuống để lập danh sách nhạc thì làm sao ạ
@hoangmactrong5644
@hoangmactrong5644 3 жыл бұрын
cách này ko hiểu sao giờ trong excel ko dùng được nữa, mình làm theo cách này toàn bị lỗi name với Na#, mặc dù trước đó dùng cách này vẫn bình thường. Chả hiểu do excel của mình có vấn đề hay giờ excel ko còn cho dùng được theo cách này nữa.
3 жыл бұрын
Vẫn được chứ ạ
@tnfilm8937
@tnfilm8937 Жыл бұрын
hiện tại mình dũng vẫn ra lỗi NA. Nhờ ad giúp
@thanhnong138
@thanhnong138 Жыл бұрын
Sao mình chỉ đc 1 file mà k phải toàn bộ file nhỉ
@nguyentoan3341
@nguyentoan3341 3 жыл бұрын
mình làm sao lại ra N/A nhỉ
@sacinhhuu9630
@sacinhhuu9630 2 жыл бұрын
Đã làm theo và hiện mỗi cột đầu tiên
@luan.nguyen1450
@luan.nguyen1450 3 жыл бұрын
Làm theo hướng dẫn của thầy, nhưng sao chỉ có tên 1 file đầu tiên trong folder ?? Có cao nhân nào giải thích hộ ạ?
@tuyetdo599
@tuyetdo599 2 жыл бұрын
Mình cũng vậy. Hic
@MinhNgoc-fh9xd
@MinhNgoc-fh9xd 2 жыл бұрын
@@tuyetdo599 Mình cũng chỉ lấy được tên 1 file đầu tiên
@sacinhhuu9630
@sacinhhuu9630 2 жыл бұрын
@@tuyetdo599 bạn lấy đc nhiều tên chưa
@chucnguyen2572
@chucnguyen2572 2 жыл бұрын
Anh ơi em làm theo hướng dẫn mà nó chỉ ra mỗi cái tên file đầu tiền thôi 🥲🥲
2 жыл бұрын
Hic hic, bạn thử xem kỹ lại xem có sai khác j ko nha
@longkhanh7262
@longkhanh7262 3 жыл бұрын
IF(IF(AND($N$1=O121,LEFT(A121,1)="N"),PSVT!H114,0),IF(AND($N$1=O121,LEFT(A121,1)="X"),PSVT!I114,0),"") Anh ơi chỉ em cách dùng hàm if kiểu như trên với ạ. =if(if...
@cacphuong8704
@cacphuong8704 3 жыл бұрын
Sao e mần mà ra lỗi #N/A ko à Gà ơi 😭
@zizu6524
@zizu6524 3 жыл бұрын
Mình cũng bị tương tự
@alexpanda6772
@alexpanda6772 9 ай бұрын
chỉ lấy được 1 file đầu tiên, ko thể lấy đc hết. chắc thiếu j đó
@alexpanda6772
@alexpanda6772 9 ай бұрын
không hữu ích, mình đọc bên dưới cũng nhiều người đều ra kết quả giống mình
@alexpanda6772
@alexpanda6772 9 ай бұрын
KHÔNG HỮU ÍCH!! Chỉ lấy được ra 1 file đầu tiên trong folder, rất nhiều người làm ra kết quả như này. chắc cần cài đặt thêm j đó mà chủ kênh ko nói
@quanghuy2990
@quanghuy2990 7 ай бұрын
với excel không phải 365 thì mình cần theo cách thêm lệnh index ở cuối video xong kéo thủ công thì mới trả ra hết file trong folder, lúc đầu mình làm theo cũng chỉ ra 1 dòng sau làm theo index thì ra hết r bạn thử xem
@NhungNguyen-ev6zl
@NhungNguyen-ev6zl 2 жыл бұрын
Hay quá
@denviban005
@denviban005 2 жыл бұрын
Hay quá
@vietnsmcttnhhvps1198
@vietnsmcttnhhvps1198 2 жыл бұрын
Hay quá
Hàm XLOOKUP trong Excel (cơ bản đến nâng cao)
26:17
Gà Excel
Рет қаралды 135 М.
Леон киллер и Оля Полякова 😹
00:42
Канал Смеха
Рет қаралды 4,7 МЛН
Правильный подход к детям
00:18
Beatrise
Рет қаралды 11 МЛН
How to Create & Use Excel Macros (Real world example)
10:09
Leila Gharani
Рет қаралды 1,7 МЛН
Cách mình làm máy gọn, cách đặt tên file và tổ chức thư mục
11:59
Cách Sao Lưu file Excel Tự Động Bằng VBA | VBA cơ bản đến nâng cao
25:08
Thành thạo Pivot table excel trong 17 phút
17:39
Gà Excel
Рет қаралды 955 М.
Cách đổi Tên File hàng loạt theo danh sách bằng Advance Renamer
12:51
Леон киллер и Оля Полякова 😹
00:42
Канал Смеха
Рет қаралды 4,7 МЛН