Агуулгын хүснэгт
VBA доторх DIR функц нь голчлон өгөгдсөн хавтсанд байгаа лавлах эсвэл файлуудыг харуулдаг. Мөн энэ функцээр эхний файлыг буцаах боломжтой. Энэ функц нь тодорхой файл, фолдер авахын тулд маш олон хэрэглээтэй. Та VBA кодын замын нэрэнд файлын замыг оруулахад л хангалттай. Та VBA DIR кодыг ашиглахад илүү хэцүү санагдаж магадгүй. Санаа зоволтгүй, энэ нийтлэлд бид VBA DIR функцийг илүү сайн дүрслэн харуулах зарим жишээг танд үзүүлэх болно. Өгүүллийг уншсаны дараа та функцийг ашиглах боломжтой болно гэж найдаж байна. За ингээд эхэлцгээе.
Дадлага хийх номыг татаж авах
Дараах дадлагын номыг татаж авна уу. Энэ нь танд сэдвийг илүү сайн ойлгоход тусална.
DIR функц.xlsm
DIR функцийн танилцуулга
Товч мэдээлэл:
VBA DIR функц нь өгөгдсөн фолдерын замаас файл эсвэл директорийн нэрийг буцаана. Уламжлал ёсоор энэ нь эхний файлыг буцаана.
Синтакс:
Dir [ (pathname, [ attributes ] ) ] Аргумент Тайлбар:
| Аргумент | Шаардлагатай/Заавал биш | Тайлбар |
|---|---|---|
| ЗамынНэр | Нэмэлт | Зам файл руу хандах ба зааж өгөх |
| Атрибутууд | Нэмэлт | Тогтмол буюу тоон илэрхийлэл тохирох файлуудын шинж чанаруудыг заана |
Хэд хэдэн өмнөхтодорхойлсон шинж чанарууд, тэдгээр нь-
| Атрибутын нэр | Тодорхойлолт |
|---|---|
| vbNormal | Файлууд тодорхой шинж чанаргүй |
| vbReadOnly | Атрибутгүй зөвхөн унших боломжтой файлууд |
| vbHidden | Нуугдсан шинж чанаргүй файлууд |
| vbSystem | Атрибутгүй системийн файлууд |
| vbVolume | Эзлэхүүний шошго |
| vbDirectory | Атрибутгүй лавлах эсвэл хавтас |
| vbAlias | Заасан файлын нэр нь бусад нэр |
Excel-д VBA DIR функцийг ашиглах 7 жишээ
Тайлбараас та VBA DIR функцийг хангадаг гэдгийг ойлгосон байх. өгөгдсөн замын нэрээс файлын нэр. Үүнийг жишээгээр ойлгоцгооё. Энд бид танд янз бүрийн жишээг харуулахын тулд Exceldemy_Folder лавлах үүсгэсэн. Энэ хавтсанд өөр өөр жижиг хавтас болон файлууд байна.
1. Файлын нэрийг Замаас олох
Бид хавтас дотроос тодорхой файлыг олох боломжтой. файлын нэрийн замыг зарлах.
Файлын замыг хуулж авсны дараа та кодыг ажиллуулах хэрэгтэй.
Ийм учраас Хөгжүүлэгч таб >> Visual Basic -г сонгоно уу. Дараа нь Оруулах таб >> Модуль -г сонгоно уу. Ерөнхий харилцах цонхонд бид код бичнэ.
Бидний мөрийн хөтөлбөр бол <1-ийг олох явдал юм. Замын нэрнээс>Файлын нэр -г бид тохируулнабүрэн замын нэр (үндээс файл хүртэл) бөгөөд бидний код нь
1178
Энд кодын дотор бид замын нэрийг E:\Exceldemy\Sales_of_January гэж тохируулсан. xlsx
Код задаргаа:
- Эхэндээ бид FN<нэртэй стринг хувьсагчийг зарласан. 2>. Мөн Dir функцийн гаралтыг энэ хувьсагчид хадгалсан.
- Дараа нь Dir функц нь файлын нэрийг олж, өгсөн замаас буцаана.
- Дараа нь MsgBox нь мессежийн хайрцагаар дамжуулан гаралтыг тохируулна. MsgBox мессежийн хайрцаг ашиглан гаралтыг буцаана.
- Дараа нь F5 товчлуураар кодыг ажиллуулна уу.
Эцэст нь бид Нэгдүгээр сарын борлуулалт.xlsx нэртэй файлыг оллоо.
2. Лавлах байгаа эсэхийг шалгана уу
Бид Dir функцийг ашиглан лавлах байгаа эсэхийг шалгаж болно. Exceldemy хавтас байгаа эсэхийг шалгахын тулд код бичье. Дараах кодыг ерөнхий талбарт бичээд F5 товчлуураар ажиллуулна уу.
5805
Код задаргаа :
- Бид хоёр хувьсагчийг зарласан; PN нь манай шалгах лавлахын бүтэн замын нэрийг агуулна.
- Энд Дир функц дотор бид замын нэр болон атрибут гэсэн хоёр утгыг тохируулсан. vbDirectory гэсэн утга. Энэ атрибутын утга нь лавлахыг илрүүлэхэд тусална. Мөн энэ функцийн гаралт нь файлд хадгалагдана Файл хувьсагч.
- Дараа нь бид хувьсагч хоосон эсэхийг шалгасан. Хэрэв бид хувьсагч нь тийм биш болохыг олж мэдвэл тухайн лавлах байгаа эсэхийг мессежийн хайрцагаар зарлана, эс бөгөөс буцах зүйл байхгүй болно.
Энд Exceldemy лавлах байгаа тул бид " Exceldemy байгаа "-г олох болно, энд Exceldemy нь хавтасны нэр юм.
3. Байгаагүй хавтас үүсгэх
Та компьютер дээрээ байхгүй хавтас үүсгэж болно. Үүний тулд та хавтаснуудад байхгүй замын нэрийг үүсгэх хэрэгтэй. Бид Exceldemy_1 нэртэй лавлах үүсгэнэ гэж төсөөлье. Бид лавлах үүсгэхийн тулд MkDir командыг ашиглах боловч үүнээс өмнө дараах VBA кодыг бичих хэрэгтэй.
2737
Энд бид кодын Else блокийн замын нэрийг ашиглан лавлах үүсгэх командыг бичсэн. F5 товчлуураар кодыг ажиллуулна .
Лавлах үүсгэсэн. Лавлах хавтасыг харцгаая. Exceldemy_1 хавтас одоо таны компьютер дээр харагдаж байна.
Ижил заалт:
- Excel дээр VBA-д Sub-г хэрхэн дуудах вэ (4 жишээ)
- VBA функцэд утгыг буцаах (массив ба массивын бус утгууд)
- Excel-д VBA UCASE функцийг ашиглах (4 жишээ)
- Хэрхэн TRIM функцийг ашиглах вэExcel дээрх VBA (Тодорхойлолт + VBA код)
4. Лавлахаас эхний файлыг олох
Dir функцийн үндсэн ажил нь өгөгдсөн лавлахаас эхний файлыг олохын тулд. Функц дотроос зөвхөн замын нэр (контейнерийн лавлах хүртэл) оруулах шаардлагатай бөгөөд энэ нь тухайн директороос хамгийн эхний файлыг буцаана.
Бидний эхний файлыг олцгооё. Exceldemy лавлах. Манай код байх болно
5229
Та үндсэн кодыг харж болно; бид замын нэрийг Dir функц руу шилжүүлсэн. Одоо F5 товчлуураар кодыг ажиллуулна , та энэ лавлахаас эхний файлыг олох болно.
5. Бүгдийг олох Лавлахаас авсан файлууд
Өмнөх хэсэгт бид лавлахаас эхний файлын нэрийг хэрхэн олохыг үзсэн. Тодорхой лавлахаас бүх файлыг олох шаардлагатай үед нөхцөл байдал үүсч магадгүй юм. Тодорхой директор доторх бүх файлыг олохын тулд та дараах VBA кодыг бичих хэрэгтэй.
5335
Энд файлын нэрийг хадгалах хоёр хувьсагч байна. дан ( FN ), жагсаалт хэлбэрээр ( FL ). Do while давталт нь лавлахад ямар ч файл үлдэхгүй болтлоо давтагддаг бөгөөд энэ давталтыг ашиглан бид файлын нэр бүрийг FL хувьсагч руу оруулдаг.
Кодыг гүйцэтгэх, мөн та доорх зурган дээрх шиг бүх файлыг лавлахаас олох болно.
6. Лавлахаас бүх файл, хавтсыг олох
БидӨмнөх хэсэгт бүх файлыг хаанаас олох талаар дурдсан. Мөн бид хавтас доторх бүх дэд хавтаснуудыг олох боломжтой. Үүнийг хийхийн тулд бидний доор хавсаргасан дараах VBA кодыг бичнэ үү.
9133
Манай кодын өөрчлөлт нь зөвхөн атрибутын параметрүүдийг ашиглах явдал юм. Бид энэ талбарт vbDirectory -г ашигласан. Кодыг ажиллуулснаар та Exceldemy_Folder -ийн бүх файл болон дэд хавтаснуудыг олох болно.
7 Тодорхой төрлийн бүх файлыг олох
VBA Dir функцийг ашигласнаар бид ямар ч төрлийн файлыг олох боломжтой. Жишээгээр судалцгаая.
Бид лавлахаасаа .csv файлуудыг олох болно. Манай код дараах байдалтай байх болно-
4698
Файл хайх ижил төстэй механизм ашигладаг кодыг ойлгосон байх гэж найдаж байна. Замын нэрэнд бид орлуулагдах тэмдэг ( * ) ашигласан. Энэ од (*) нь ямар ч тоо хүртэл ямар ч тэмдэгт гарч болохыг харуулж байна. Файлын нэр нь юу ч байж болох боловч .csv файл байх ёстой гэж орлуулагч тэмдэгтийг ашигласан байна.
Та кодыг ажиллуулах үед энэ нь -г буцаана. Манай Exceldemy лавлахаас csv файлууд.
Дадлага хийх хэсэг
Бид дадлага хийсэн. хуудас бүрийн баруун талд дасгал хийх хэсэг. Үүнийг өөрөө хий.
Дүгнэлт
Энэ бол өнөөдрийн хуралдааны тухай юм. Мөн эдгээр нь зарим хялбар жишээ юмExcel дээрх VBA Dir функцийн. Хэрэв танд асуулт, санал байвал коммент хэсэгт мэдэгдээрэй. Илүү сайн ойлгохын тулд дасгалын хуудсыг татаж авна уу. Excel програмын нэг цэгийн шийдэл нийлүүлэгч Exceldemy манай вэбсайтад зочилж, Excel-ийн олон төрлийн аргуудын талаар олж мэдээрэй. Энэ нийтлэлийг тэвчээртэй уншсанд баярлалаа.
