តារាងមាតិកា
មុខងារ DIR នៅក្នុង VBA ភាគច្រើនបង្ហាញអ្នកនូវថតឯកសារ ឬឯកសារពីថតដែលបានផ្តល់ឱ្យ។ វាក៏អាចត្រឡប់ឯកសារដំបូងជាមួយនឹងមុខងារនេះផងដែរ។ មុខងារនេះមានការប្រើប្រាស់ច្រើនដើម្បីទទួលបានឯកសារ និងថតជាក់លាក់។ អ្វីទាំងអស់ដែលអ្នកត្រូវការគឺគ្រាន់តែបញ្ចូលផ្លូវឯកសារនៅក្នុងឈ្មោះផ្លូវនៃកូដ VBA ។ អ្នកអាចឃើញថាវាពិបាកជាងក្នុងការប្រើលេខកូដ VBA DIR ។ កុំបារម្ភ នៅក្នុងអត្ថបទនេះ យើងនឹងបង្ហាញអ្នកនូវឧទាហរណ៍មួយចំនួនសម្រាប់ការមើលឃើញកាន់តែប្រសើរឡើងក្នុងការប្រើប្រាស់មុខងារ VBA DIR ។ សង្ឃឹមថាអ្នកនឹងអាចប្រើមុខងារបន្ទាប់ពីអានអត្ថបទ។ ដូច្នេះ ចូរចាប់ផ្តើម។
ទាញយកសៀវភៅលំហាត់អនុវត្ត
ទាញយកសៀវភៅលំហាត់ខាងក្រោម។ វានឹងជួយអ្នកឱ្យយល់ពីប្រធានបទកាន់តែប្រសើរ។
ការណែនាំអំពីមុខងារ DIR
សង្ខេប៖
មុខងារ VBA DIR ត្រឡប់ឈ្មោះឯកសារ ឬថតពីផ្លូវថតដែលបានផ្តល់ឱ្យ។ តាមធម្មតា វាត្រឡប់ឯកសារដំបូង។
វាក្យសម្ព័ន្ធ៖
Dir [ (pathname, [ attributes ] ) ]
ការពន្យល់អំពីអាគុយម៉ង់៖
អាគុយម៉ង់ | ទាមទារ/ស្រេចចិត្ត | ការពន្យល់ |
---|---|---|
PathName | ស្រេចចិត្ត | ផ្លូវ ដើម្បីចូលប្រើ និងបញ្ជាក់ឯកសារ |
គុណលក្ខណៈ | ស្រេចចិត្ត | កន្សោមថេរ ឬលេខ បញ្ជាក់គុណលក្ខណៈនៃឯកសារដែលត្រូវគ្នា |
មានមុនមួយចំនួនគុណលក្ខណៈដែលបានកំណត់ ពួកវាគឺ-
ឈ្មោះគុណលក្ខណៈ | ការពិពណ៌នា |
---|---|
vbNormal | ឯកសារ ដោយគ្មានគុណលក្ខណៈជាក់លាក់ |
vbReadOnly | ឯកសារបានតែអានដោយគ្មានគុណលក្ខណៈ |
vbHidden | លាក់ ឯកសារដែលគ្មានគុណលក្ខណៈ |
vbSystem | ឯកសារប្រព័ន្ធដែលមិនមានគុណលក្ខណៈ |
vbVolume | ស្លាកកម្រិតសំឡេង |
vbDirectory | ថត ឬថតដែលមិនមានគុណលក្ខណៈ |
vbAlias | ឈ្មោះឯកសារដែលបានបញ្ជាក់គឺជាឈ្មោះក្លែងក្លាយ |
7 ឧទាហរណ៍នៃការប្រើប្រាស់មុខងារ VBA DIR នៅក្នុង Excel
ពីការពិពណ៌នា អ្នកប្រហែលជាបានយល់ថាមុខងារ VBA DIR ផ្តល់នូវ ឈ្មោះឯកសារពីឈ្មោះផ្លូវដែលបានផ្តល់។ ចូរយើងយល់ពីវាដោយឧទាហរណ៍។ នៅទីនេះយើងបានបង្កើតថតឯកសារ Exceldemy_Folder ដើម្បីបង្ហាញអ្នកនូវឧទាហរណ៍ផ្សេងៗ។ មានថតឯកសារ និងឯកសារតូចៗខុសៗគ្នានៅក្នុងថតនេះ។
1. ស្វែងរកឈ្មោះឯកសារពីផ្លូវ
នៅក្នុងថតរបស់យើង យើងអាចស្វែងរកឯកសារជាក់លាក់មួយដោយ ការប្រកាសផ្លូវឈ្មោះឯកសារ។
បន្ទាប់ពីចម្លងផ្លូវរបស់ឯកសារ អ្នកត្រូវដំណើរការកូដ។
សម្រាប់ហេតុផលនេះ សូមចូលទៅកាន់ អ្នកអភិវឌ្ឍន៍ ផ្ទាំង >> ជ្រើសរើស Visual Basic ។ បន្ទាប់មកចូលទៅកាន់ Insert tab >> ជ្រើសរើស ម៉ូឌុល។ នៅក្នុងប្រអប់ ទូទៅ យើងសរសេរកូដ។
ដូចដែលរបៀបវារៈរបស់យើងគឺដើម្បីស្វែងរក ឈ្មោះឯកសារ ពីឈ្មោះផ្លូវ យើងនឹងកំណត់ឈ្មោះពេញ (ពី root ដល់ឯកសារ) ហើយលេខកូដរបស់យើងនឹង
5630
នៅទីនេះក្នុងកូដរបស់យើង យើងបានកំណត់ឈ្មោះផ្លូវជា E:\Exceldemy\Sales_of_January។ xlsx
ការបំបែកកូដ៖
- ដំបូង យើងបានប្រកាសអថេរខ្សែអក្សរដែលហៅថា FN<២>។ ហើយលទ្ធផលនៃអនុគមន៍ Dir ត្រូវបានរក្សាទុកក្នុងអថេរនេះ។
- បន្ទាប់ មុខងារ Dir ស្វែងរកឈ្មោះឯកសារ ហើយត្រឡប់វាពីផ្លូវដែលបានផ្តល់។
- បន្ទាប់មក MsgBox កំណត់លទ្ធផលតាមរយៈប្រអប់សារ។ MsgBox ត្រឡប់លទ្ធផលដោយប្រើប្រអប់សារ។
- បន្ទាប់មកដំណើរការកូដដោយប្រើគ្រាប់ចុច F5 ។
ជាចុងក្រោយ យើងបានរកឃើញឯកសារដែលមានឈ្មោះ Sales_of_January.xlsx ។
2. ពិនិត្យមើលវត្តមានរបស់ថត
យើងអាចពិនិត្យមើលអត្ថិភាពនៃថតដោយប្រើមុខងារ Dir ។ តោះសរសេរកូដដើម្បីពិនិត្យមើលថាតើមានថត Exceldemy ដែរឬអត់។ សរសេរកូដខាងក្រោមក្នុងប្រអប់ទូទៅ ហើយដំណើរការវាដោយប្រើសោ F5 ។
9899
ការបែងចែកកូដ :
- យើងបានប្រកាសអថេរពីរ។ PN មានឈ្មោះផ្លូវពេញលេញនៃថតពិនិត្យរបស់យើង។
- នៅទីនេះក្នុងមុខងារ Dir យើងបានកំណត់តម្លៃពីរ ឈ្មោះផ្លូវ និងគុណលក្ខណៈ តម្លៃជា vbDirectory ។ តម្លៃគុណលក្ខណៈនេះនឹងជួយឱ្យរកឃើញថត។ ហើយលទ្ធផលនៃមុខងារនេះត្រូវបានរក្សាទុកក្នុង ឯកសារ អថេរ។
- បន្ទាប់មកយើងបានពិនិត្យមើលថាតើអថេរទទេឬអត់។ ប្រសិនបើយើងរកឃើញថាអថេរមិនមែននោះ សូមប្រកាសពីអត្ថិភាពនៃថតតាមរយៈប្រអប់សារ បើមិនដូច្នេះទេ ការត្រឡប់មិនមានទេ។
នៅទីនេះ Exceldemy<21 មានថតឯកសារ ដូច្នេះយើងនឹងរកឃើញ “ Exceldemy មាន ” ដែល Exceldemy ជាឈ្មោះរបស់ថត។
3. បង្កើត Folder ដែលមិនមាន
អ្នកអាចបង្កើត Folder ដែលមិនមាននៅលើ PC របស់អ្នក។ សម្រាប់បញ្ហានេះ អ្នកត្រូវតែបង្កើតឈ្មោះផ្លូវដែលមិនមាននៅក្នុងថតឯកសាររបស់អ្នក។ សូមស្រមៃថាយើងនឹងបង្កើតថតមួយដែលមានឈ្មោះថា Exceldemy_1 ។ យើងនឹងប្រើពាក្យបញ្ជា MkDir ដើម្បីបង្កើតថត ប៉ុន្តែមុននោះ យើងត្រូវសរសេរកូដ VBA ខាងក្រោម។
9098
នៅទីនេះយើងបានសរសេរពាក្យបញ្ជាដើម្បីបង្កើតថតដោយប្រើឈ្មោះផ្លូវពីប្លុក Else នៃកូដរបស់យើង។ រត់ កូដដោយប្រើសោ F5 ។
ថតត្រូវបានបង្កើត។ សូមក្រឡេកមើលថតឯកសារ។ ថតឯកសារ Exceldemy_1 ឥឡូវនេះអាចមើលឃើញនៅលើកុំព្យូទ័ររបស់អ្នក។
ការអានស្រដៀងគ្នា៖
- របៀបហៅ Sub ក្នុង VBA ក្នុង Excel (ឧទាហរណ៍ 4)
- ត្រឡប់តម្លៃក្នុងអនុគមន៍ VBA (ទាំងតម្លៃអារេ និងមិនមែនអារេ)
- ប្រើអនុគមន៍ VBA UCASE ក្នុង Excel (4 ឧទាហរណ៍)
- របៀបប្រើអនុគមន៍ TRIM នៅក្នុងVBA ក្នុង Excel (និយមន័យ + កូដ VBA)
4. ស្វែងរកឯកសារដំបូងពីថត
ភារកិច្ចចម្បងនៃមុខងារ Dir គឺ ដើម្បីស្វែងរកឯកសារដំបូងនៅក្នុងថតដែលបានផ្តល់។ អ្វីដែលអ្នកត្រូវផ្តល់នៅក្នុងមុខងារគឺឈ្មោះផ្លូវ (រហូតដល់ថតកុងតឺន័រ) ហើយវានឹងត្រឡប់ឯកសារដំបូងបំផុតពីថតនោះ។
តោះស្វែងរកឯកសារដំបូងពី របស់យើង។ Exceldemy ថត។ លេខកូដរបស់យើងនឹងមាន
8803
អ្នកអាចឃើញលេខកូដមូលដ្ឋាន។ យើងបានឆ្លងកាត់ឈ្មោះផ្លូវទៅក្នុងមុខងារ Dir ។ ឥឡូវនេះ រត់ កូដដោយប្រើសោ F5 អ្នកនឹងឃើញឯកសារដំបូងនៅក្នុងថតនេះ។
5. ស្វែងរកទាំងអស់ ឯកសារពីថតឯកសារ
នៅក្នុងផ្នែកមុន យើងបានឃើញពីរបៀបស្វែងរកឈ្មោះឯកសារដំបូងពីថតមួយ។ ស្ថានភាពអាចកើតឡើងនៅពេលដែលអ្នកត្រូវការស្វែងរកឯកសារទាំងអស់ពីថតជាក់លាក់មួយ។ ដើម្បីស្វែងរកឯកសារទាំងអស់នៅក្នុងថតជាក់លាក់មួយ អ្នកត្រូវតែសរសេរកូដ VBA ខាងក្រោម។
8437
នេះគឺជាអថេរពីរដើម្បីរក្សាទុកឈ្មោះឯកសារជា តែមួយ ( FN ) និងជាបញ្ជី ( FL )។ រង្វិលជុំ Do while ធ្វើម្តងទៀតរហូតដល់គ្មានឯកសារនៅសល់ក្នុងថត ដោយប្រើរង្វិលជុំនេះ យើងរុញរាល់ឈ្មោះឯកសារទៅក្នុងអថេរ FL ។
ប្រតិបត្តិកូដ។ ហើយអ្នកនឹងឃើញឯកសារទាំងអស់នៅក្នុងថតដូចក្នុងរូបភាពខាងក្រោម។
6. ស្វែងរកឯកសារ និងថតទាំងអស់ពីថតមួយ
យើងបានរៀបរាប់នៅក្នុងផ្នែកមុន កន្លែងដែលត្រូវស្វែងរកឯកសារទាំងអស់។ យើងក៏អាចស្វែងរកថតរងទាំងអស់នៅក្នុងថតឯកសារមួយ។ ដើម្បីធ្វើដូច្នេះ សូមសរសេរកូដ VBA ខាងក្រោមដែលយើងបានភ្ជាប់មកខាងក្រោម។
9174
ការផ្លាស់ប្តូរកូដរបស់យើងគ្រាន់តែជាការប្រើប្រាស់ប៉ារ៉ាម៉ែត្រគុណលក្ខណៈប៉ុណ្ណោះ។ យើងបានប្រើ vbDirectory នៅក្នុងវាលនោះ។ ដំណើរការ កូដ ហើយអ្នកនឹងរកឃើញឯកសារ និងថតរងទាំងអស់នៃ Exceldemy_Folder ។
7 ស្វែងរកឯកសារទាំងអស់នៃប្រភេទជាក់លាក់
ដោយប្រើមុខងារ VBA Dir យើងអាចស្វែងរកប្រភេទឯកសារជាក់លាក់ណាមួយ។ តោះស្វែងយល់ជាមួយឧទាហរណ៍មួយ។
យើងនឹងស្វែងរកឯកសារ .csv ពីថតរបស់យើង។ កូដរបស់យើងនឹងមានដូចខាងក្រោម-
1447
យើងសង្ឃឹមថាអ្នកបានយល់ពីកូដនេះ ដែលប្រើយន្តការស្រដៀងគ្នាសម្រាប់ការស្វែងរកឯកសារ។ នៅក្នុងឈ្មោះផ្លូវ យើងបានប្រើអក្សរជំនួស ( * )។ សញ្ញាផ្កាយនេះ (*) បង្ហាញថាតួអក្សរណាមួយរហូតដល់លេខណាមួយអាចកើតឡើង។ អក្សរជំនួសត្រូវបានប្រើប្រាស់តាមរបៀបដែលឈ្មោះឯកសារអាចជាអ្វីក៏បាន ប៉ុន្តែត្រូវតែជាឯកសារ .csv ។
នៅពេលអ្នកដំណើរការកូដ វានឹងត្រឡប់ ។ csv ឯកសារពី Exceldemy ថតរបស់យើង។
ផ្នែកអនុវត្ត
យើងបានផ្តល់នូវការអនុវត្ត ផ្នែកនៅលើសន្លឹកនីមួយៗនៅជ្រុងខាងស្តាំសម្រាប់ការអនុវត្តរបស់អ្នក។ សូមធ្វើវាដោយខ្លួនអ្នក។
សេចក្តីសន្និដ្ឋាន
នោះជាទាំងអស់អំពីវគ្គថ្ងៃនេះ។ ហើយទាំងនេះគឺជាឧទាហរណ៍ងាយៗមួយចំនួននៃ មុខងារ VBA Dir នៅក្នុង Excel ។ សូមប្រាប់ពួកយើងនៅក្នុងផ្នែកមតិយោបល់ ប្រសិនបើអ្នកមានសំណួរ ឬសំណូមពរណាមួយ។ សម្រាប់ការយល់ដឹងកាន់តែច្បាស់ សូមទាញយកសន្លឹកលំហាត់។ សូមចូលមើលគេហទំព័ររបស់យើង Exceldemy ដែលជាអ្នកផ្តល់ដំណោះស្រាយ Excel តែមួយគត់ ដើម្បីស្វែងយល់អំពីប្រភេទផ្សេងៗនៃវិធីសាស្ត្រ Excel ។ សូមអរគុណចំពោះការអត់ធ្មត់របស់អ្នកក្នុងការអានអត្ថបទនេះ។