မာတိကာ
DIR လုပ်ဆောင်ချက်သည် VBA တွင် အဓိကအားဖြင့် သင့်အား ပေးထားသည့် ဖိုင်တွဲတစ်ခုမှ လမ်းညွှန် သို့မဟုတ် ဖိုင်များကို ပြသသည်။ ၎င်းသည် ဤလုပ်ဆောင်ချက်ဖြင့် ပထမဖိုင်ကို ပြန်ပေးနိုင်သည်။ ဤလုပ်ဆောင်ချက်သည် သီးခြားဖိုင်များနှင့် ဖိုင်တွဲများရရှိရန် အသုံးပြုမှုများစွာရှိသည်။ VBA ကုဒ်၏လမ်းကြောင်းအမည်တွင် ဖိုင်လမ်းကြောင်းကို ထည့်သွင်းရန် လိုအပ်ပါသည်။ VBA DIR ကုဒ်များကို အသုံးပြုရန် ပိုမိုခက်ခဲသည်ကို သင်တွေ့နိုင်သည်။ စိတ်မပူပါနှင့်၊ ဤဆောင်းပါးတွင်၊ VBA DIR လုပ်ဆောင်ချက်ကို အသုံးပြုရန် ပိုမိုကောင်းမွန်သော မြင်သာထင်သာရှိမှုအတွက် နမူနာအချို့ကို သင့်အား ပြသပါမည်။ ဆောင်းပါးကိုဖတ်ပြီးနောက် function ကိုသင်အသုံးပြုနိုင်လိမ့်မည်ဟုမျှော်လင့်ပါသည်။ ဒါဆို စလိုက်ကြရအောင်။
လေ့ကျင့်ရေးစာအုပ်ကို ဒေါင်းလုဒ်လုပ်ပါ
အောက်ပါ လေ့ကျင့်ခန်းစာအုပ်ကို ဒေါင်းလုဒ်လုပ်ပါ။ ၎င်းသည် အကြောင်းအရာကို ပိုမိုနားလည်ရန် ကူညီပေးပါမည်။
DIR Function.xlsm
DIR Function နိဒါန်း
အကျဉ်းချုပ်-
VBA DIR လုပ်ဆောင်ချက်သည် ပေးထားသည့် ဖိုင်တွဲလမ်းကြောင်းမှ ဖိုင် သို့မဟုတ် လမ်းညွှန်၏အမည်ကို ပြန်ပေးသည်။ သမရိုးကျအားဖြင့်၊ ၎င်းသည် ပထမဖိုင်ကို ပြန်ပေးသည်။
အညွှန်း-
Dir [ (pathname, [ attributes ] ) ] Arguments ရှင်းလင်းချက်-
| Argument | လိုအပ်/ရွေးချယ်နိုင်သည် | ရှင်းလင်းချက် |
|---|---|---|
| PathName | ရွေးချယ်နိုင်သော | ဖိုင်ကိုဝင်ရောက်ပြီး သတ်မှတ်ရန် |
| ဂုဏ်သတ္တိများ | ရွေးချယ်နိုင်သော | အဆက်မပြတ် သို့မဟုတ် ကိန်းဂဏာန်းဖော်ပြချက် ကိုက်ညီသည့်ဖိုင်များ၏ အရည်အချင်းများကို သတ်မှတ်ပေးသည် |
ကြိုတင်ပြင်ဆင်မှု အနည်းငယ်ရှိပါသည်သတ်မှတ်ထားသော ရည်ညွှန်းချက်များ၊ ၎င်းတို့မှာ-
| ရည်ညွှန်းအမည် | ဖော်ပြချက် |
|---|---|
| vbNormal | ဖိုင်များ သီးခြား ရည်ညွှန်းချက်များ မပါရှိ |
| vbReadOnly | ရည်ညွှန်းချက်မရှိသော ဖတ်ရန်သီးသန့်ဖိုင်များ |
| vbHidden | ဝှက်ထားသည် ရည်ညွှန်းချက်မရှိသော ဖိုင်များ |
| vbSystem | ရည်ညွှန်းချက်မရှိသော စနစ်ဖိုင်များ |
| vbVolume | Volume label |
| vbDirectory | ရည်ညွှန်းချက်မရှိသော လမ်းညွှန်များ သို့မဟုတ် ဖိုင်တွဲများ |
| vbAlias | သတ်မှတ်ထားသော ဖိုင်အမည်သည် နာမည်တူမဟုတ် |
7 Excel တွင် VBA DIR Function ကိုအသုံးပြုခြင်း၏နမူနာများ
ဖော်ပြချက်မှ၊ VBA DIR function သည် ၎င်းအား ပံ့ပိုးပေးသည်ကို သင်သဘောပေါက်သွားပေမည်။ ပေးထားသောလမ်းကြောင်းအမည်မှ ဖိုင်အမည်။ ဥပမာအားဖြင့် နားလည်ကြပါစို့။ ဤတွင် ကျွန်ုပ်တို့သည် သင့်အား ဥပမာအမျိုးမျိုးပြရန် Exceldemy_Folder လမ်းညွှန်တစ်ခုကို ဖန်တီးထားပါသည်။ ဤဖိုင်တွဲတွင် မတူညီသော ဖိုင်တွဲငယ်များနှင့် ဖိုင်များရှိပါသည်။
1. Path မှ ဖိုင်အမည်ကို ရှာပါ
ကျွန်ုပ်တို့၏ဖိုင်တွဲတွင်၊ ကျွန်ုပ်တို့သည် သီးခြားဖိုင်တစ်ခုကို ရှာဖွေနိုင်သည် ဖိုင်အမည်လမ်းကြောင်းကို ကြေညာခြင်း။
ဖိုင်၏လမ်းကြောင်းကို ကူးယူပြီးနောက်၊ သင်သည် ကုဒ်ကို run ရန် လိုအပ်ပါသည်။
ထို့ကြောင့်၊ Developer tab >> Visual Basic ကို ရွေးပါ။ ထို့နောက် Insert tab သို့သွားပါ >> Module ကိုရွေးပါ။ အထွေထွေ dialog box တွင်၊ ကျွန်ုပ်တို့သည် ကုဒ်ကိုရေးပါသည်။
ကျွန်ုပ်တို့၏အစီအစဉ်မှာ <1 ကိုရှာရန်ဖြစ်သည်။ လမ်းကြောင်းအမည်မှ>Filename ကို ကျွန်ုပ်တို့ သတ်မှတ်ပါမည်။လမ်းကြောင်းအမည်အပြည့်အစုံ (အမြစ်မှဖိုင်အထိ) နှင့် ကျွန်ုပ်တို့၏ကုဒ်သည်
3972
ဤနေရာတွင် ကျွန်ုပ်တို့၏ကုဒ်အတွင်း၊ လမ်းကြောင်းအမည်ကို E:\Exceldemy\Sales_of_January အဖြစ် သတ်မှတ်လိုက်ပါသည်။ xlsx
ကုဒ်ခွဲခြမ်းစိတ်ဖြာခြင်း-
- အစပိုင်းတွင်၊ FN<ဟုခေါ်သော string variable တစ်ခုကိုကြေငြာခဲ့သည် ၂>။ နှင့် Dir function ၏ output ကို ဤ variable တွင် သိမ်းဆည်းထားသည်။
- ထို့နောက်၊ Dir လုပ်ဆောင်ချက်သည် ဖိုင်အမည်ကို ရှာဖွေပြီး ပေးထားသောလမ်းကြောင်းမှ ၎င်းကို ပြန်ပေးပါသည်။
- ထို့နောက် MsgBox သည် မက်ဆေ့ဘောက်စ်မှတဆင့် အထွက်ကို သတ်မှတ်ပေးသည်။ MsgBox သည် မက်ဆေ့ခ်ျဘောက်စ်ကို အသုံးပြု၍ အထွက်ကို ပြန်ပေးသည်။
- ထို့နောက်၊ F5 သော့ဖြင့် ကုဒ်ကို ဖွင့်ပါ။
နောက်ဆုံးတွင်၊ Sales_of_January.xlsx ဟုအမည်ပေးထားသောဖိုင်ကိုကျွန်ုပ်တို့တွေ့ရှိခဲ့သည်။
2. လမ်းညွှန်တစ်ခု၏တည်ရှိမှုကိုစစ်ဆေးပါ
Dir လုပ်ဆောင်ချက်ကို အသုံးပြု၍ လမ်းညွှန်တစ်ခုရှိကြောင်း စစ်ဆေးနိုင်ပါသည်။ Exceldemy ဖိုဒါရှိမရှိ စစ်ဆေးရန် ကုဒ်ကိုရေးကြပါစို့။ ယေဘူယျဘောက်စ်တွင် အောက်ပါကုဒ်ကို ချရေးပြီး F5 သော့ဖြင့် ၎င်းကို လုပ်ဆောင်ပါ။
5742
ကုဒ်ခွဲခြမ်းစိတ်ဖြာခြင်း :
- ကျွန်ုပ်တို့သည် ကိန်းရှင်နှစ်ခုကိုကြေငြာထားပါသည်။ PN တွင် ကျွန်ုပ်တို့၏ စစ်ဆေးခြင်းလမ်းညွှန်၏ လမ်းကြောင်းအမည်အပြည့်အစုံ ပါရှိသည်။
- ဤနေရာတွင် Dir လုပ်ဆောင်ချက်အတွင်း၊ ကျွန်ုပ်တို့သည် တန်ဖိုးနှစ်ခု၊ လမ်းကြောင်းအမည်နှင့် ရည်ညွှန်းချက်တို့ကို သတ်မှတ်ထားပါသည်။ vbDirectory အဖြစ် တန်ဖိုး။ ဤ attribute တန်ဖိုးသည် လမ်းညွှန်ကို ရှာဖွေရန် ကူညီပေးပါမည်။ ပြီးတော့ ဒီ function ရဲ့ output ကို ဖိုင်ထဲမှာ သိမ်းထားပါတယ်။ File variable.
- ထို့နောက် variable သည် ဗလာဟုတ်မဟုတ် စစ်ဆေးပါသည်။ ကိန်းရှင်မဟုတ်ကြောင်း ကျွန်ုပ်တို့တွေ့ရှိပါက၊ ထို့နောက် မက်ဆေ့ချ်ဘောက်စ်မှတစ်ဆင့် လမ်းညွှန်၏တည်ရှိမှုကို ကြေညာပါ၊ သို့မဟုတ်ပါက၊ ပြန်လာမည်မဟုတ်ပါ။
ဤနေရာတွင် Exceldemy လမ်းညွှန်ရှိပါသည်၊ ထို့ကြောင့် Exceldemy ရှိပါသည် ”၊ Exceldemy သည် ဖိုင်တွဲ၏အမည်ဖြစ်သည်။
3. ရှိမနေသော ဖိုဒါတစ်ခုကို ဖန်တီးပါ
သင်၏ PC တွင် မတည်ရှိသော ဖိုဒါတစ်ခုကို ဖန်တီးနိုင်သည်။ ၎င်းအတွက်၊ သင့်ဖိုင်တွဲများတွင် မရှိသော လမ်းကြောင်းအမည်တစ်ခုကို ဖန်တီးရပါမည်။ Exceldemy_1 ဟုခေါ်သော လမ်းညွှန်တစ်ခု ဖန်တီးမည်ဟု စိတ်ကူးကြည့်ကြပါစို့။ လမ်းညွှန်ကိုဖန်တီးရန် ကျွန်ုပ်တို့သည် MkDir အမိန့်ကို အသုံးပြုပါမည်၊ သို့သော် ယင်းမတိုင်မီတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ VBA ကုဒ်ကို ရေးသားရန် လိုအပ်ပါသည်။
6089
ကျွန်ုပ်တို့၏ကုဒ်၏ Else ဘလောက်မှ လမ်းကြောင်းအမည်ကို အသုံးပြု၍ လမ်းညွှန်ကို ဖန်တီးရန် ဤနေရာတွင် ကျွန်ုပ်တို့ရေးထားသော အမိန့်တစ်ခု ရေးထားပါသည်။ F5 သော့ဖြင့် ကုဒ်ကို run ပါ။
လမ်းညွှန်ကို ဖန်တီးပြီးဖြစ်သည်။ လမ်းညွှန်ဖိုင်တွဲကို ကြည့်ရအောင်။ Exceldemy_1 ဖိုင်တွဲကို ယခု သင့်ကွန်ပြူတာတွင် မြင်နိုင်ပါသည်။
အလားတူစာဖတ်ခြင်း-
- Excel တွင် VBA တွင် Sub တစ်ခုကို ခေါ်ဆိုနည်း (ဥပမာ 4 ခု)
- VBA Function တွင် တန်ဖိုးတစ်ခုပြန်ပေးပါ (Array နှင့် Non-Array တန်ဖိုးများ နှစ်ခုလုံး)
- Excel တွင် VBA UCASE Function ကိုသုံးပါ (ဥပမာ 4 ခု)
- TrIM Function ကိုအသုံးပြုနည်းExcel တွင် VBA (အဓိပ္ပါယ်ဖွင့်ဆိုချက် + VBA ကုဒ်)
4. လမ်းညွှန်တစ်ခုမှ ပထမဆုံးဖိုင်ကိုရှာပါ
Dir လုပ်ဆောင်ချက်၏ အဓိကတာဝန်မှာ ပေးထားသောလမ်းညွှန်တွင် ပထမဆုံးဖိုင်ကိုရှာရန်။ လုပ်ဆောင်ချက်အတွင်းတွင် သင်ဖြည့်ဆည်းပေးရန်လိုအပ်သည်မှာ လမ်းကြောင်းအမည် (ကွန်တိန်နာလမ်းညွှန်အထိ) ဖြစ်ပြီး ၎င်းသည် ၎င်းလမ်းညွှန်မှ ပထမဆုံးဖိုင်ကို ပြန်ပေးမည်ဖြစ်သည်။
ကျွန်ုပ်တို့၏ မှ ပထမဆုံးဖိုင်ကို ရှာကြည့်ကြပါစို့။ Exceldemy လမ်းညွှန်။ ကျွန်ုပ်တို့၏ကုဒ်သည်
9402
ဖြစ်လိမ့်မည်၊ အခြေခံကုဒ်ကို သင်မြင်နိုင်သည်။ ကျွန်ုပ်တို့သည် Dir လုပ်ဆောင်ချက်သို့ လမ်းကြောင်းအမည်ကို ကျော်သွားပါပြီ။ ယခု F5 သော့ဖြင့် ကုဒ်ကို Run ၊၊ ဤလမ်းညွှန်တွင် ပထမဆုံးဖိုင်ကို သင်တွေ့လိမ့်မည်။
5. အားလုံးကို ရှာပါ။ လမ်းညွှန်တစ်ခုမှ ဖိုင်များ
ယခင်ကဏ္ဍတွင်၊ ဖိုင်အမည်ကို လမ်းညွှန်တစ်ခုမှ မည်သို့ရှာဖွေရမည်ကို ကျွန်ုပ်တို့တွေ့မြင်ရပါသည်။ တိကျသောလမ်းညွှန်ချက်တစ်ခုမှ ဖိုင်အားလုံးကို သင်ရှာဖွေရန် လိုအပ်သည့်အခါ အခြေအနေ ဖြစ်ပေါ်လာနိုင်သည်။ သီးခြား directory တစ်ခုရှိ ဖိုင်အားလုံးကို ရှာရန်၊ သင်သည် အောက်ပါ VBA ကုဒ်ကို ရေးရပါမည်။
4865
ဤနေရာတွင် ဖိုင်အမည်များအဖြစ် သိမ်းဆည်းရန် variable နှစ်ခုရှိသည်။ တစ်ခုတည်း ( FN ) နှင့် စာရင်းတစ်ခုအဖြစ် ( FL )။ Do while loop သည် directory ထဲတွင် ဖိုင်မကျန်တော့သည်အထိ ထပ်တလဲလဲလုပ်နေသည်၊ ဤ loop ကိုအသုံးပြုကာ၊ ဖိုင်တိုင်းကို FL variable ထဲသို့ တွန်းပို့ပါသည်။
ကုဒ်ကို လုပ်ဆောင်ပါ၊ အောက်ပုံတွင်ကဲ့သို့ directory အတွင်းရှိ ဖိုင်အားလုံးကို သင်တွေ့လိမ့်မည်။
6. ဖိုင်များနှင့် ဖိုင်တွဲအားလုံးကို လမ်းညွှန်တစ်ခုမှရှာပါ
ကျွန်ုပ်တို့ဖိုင်အားလုံးကိုရှာရမည့်နေရာကို ယခင်အပိုင်းတွင်ဖော်ပြထားသည်။ ဖိုင်တွဲတစ်ခုအတွင်းရှိ ဖိုင်တွဲခွဲများအားလုံးကိုလည်း ရှာဖွေနိုင်သည်။ ဒါကိုလုပ်ဖို့၊ အောက်မှာ ပူးတွဲပါရှိတဲ့ VBA ကုဒ်ကို ရေးပါ။
1341
ကျွန်ုပ်တို့၏ကုဒ်တွင် ပြောင်းလဲမှုသည် attribute parameters များကို အသုံးပြုခြင်းသာဖြစ်သည်။ အဲဒီအကွက်ထဲမှာ vbDirectory ကို အသုံးပြုထားပါတယ်။ ကုဒ်ကို run လုပ်ပြီး Exceldemy_Folder ၏ ဖိုင်များနှင့် ဖိုင်တွဲခွဲများအားလုံးကို သင်တွေ့လိမ့်မည်။
7 ။ သီးခြားအမျိုးအစားတစ်ခု၏ ဖိုင်အားလုံးကိုရှာပါ
VBA Dir လုပ်ဆောင်ချက်ကို အသုံးပြု၍ မည်သည့်ဖိုင်အမျိုးအစားကိုမဆို ရှာတွေ့နိုင်ပါသည်။ ဥပမာတစ်ခုဖြင့် လေ့လာကြည့်ကြပါစို့။
ကျွန်ုပ်တို့၏ လမ်းညွှန်မှ .csv ဖိုင်များကို ရှာဖွေပါမည်။ ကျွန်ုပ်တို့၏ကုဒ်သည် အောက်ပါကဲ့သို့ဖြစ်လိမ့်မည်-
4963
ဖိုင်များကိုရှာဖွေရန် အလားတူယန္တရားကိုအသုံးပြုသည့် ကုဒ်ကို သင်နားလည်မည်ဟုမျှော်လင့်ပါသည်။ လမ်းကြောင်းအမည်တွင်၊ ကျွန်ုပ်တို့သည် သင်္ကေတတစ်ခု ( * ) ကို အသုံးပြုခဲ့သည်။ ဤခရေပွင့် (*) သည် မည်သည့်ဂဏန်းအထိ စာလုံးမဆို ဖြစ်ပေါ်လာနိုင်သည်ကို ရည်ညွှန်းသည်။ ဖိုင်အမည်သည် .csv ဖိုင်ဖြစ်ရပါမည်။
ကုဒ်ကို run သောအခါ၊ ၎င်းသည် ကို ပြန်ပေးလိမ့်မည်။ ကျွန်ုပ်တို့၏ Exceldemy လမ်းညွှန်မှ csv ဖိုင်များ။
လေ့ကျင့်မှုအပိုင်း
ကျွန်ုပ်တို့သည် အလေ့အကျင့်တစ်ခုကို ပံ့ပိုးပေးထားပါသည်။ သင်၏လေ့ကျင့်မှုအတွက် ညာဘက်ခြမ်းရှိ စာရွက်တစ်ခုစီတွင် အပိုင်း။ ကျေးဇူးပြု၍ သင်ကိုယ်တိုင် ပြုလုပ်ပါ။
နိဂုံးချုပ်
ဒါက ဒီနေ့ စက်ရှင်အကြောင်းပါ။ ဒါတွေက လွယ်လွယ် ဥပမာတွေပါ။Excel ရှိ VBA Dir function ၏ မေးခွန်းများ သို့မဟုတ် အကြံပြုချက်များရှိပါက မှတ်ချက်များကဏ္ဍတွင် ကျွန်ုပ်တို့အား အသိပေးပါ။ ပိုမိုနားလည်သဘောပေါက်ရန် ကျေးဇူးပြု၍ လေ့ကျင့်ရေးစာရွက်ကို ဒေါင်းလုဒ်လုပ်ပါ။ ကွဲပြားသော Excel နည်းလမ်းများအကြောင်း ရှာဖွေရန် တစ်ခုတည်းသော ရပ်တန့် Excel ဖြေရှင်းပေးသူဖြစ်သော Exceldemy ၊ ကျွန်ုပ်တို့၏ဝဘ်ဆိုဒ်သို့ ဝင်ရောက်ကြည့်ရှုပါ။ ဤဆောင်းပါးကို စိတ်ရှည်စွာ ဖတ်ရှုပေးသည့်အတွက် ကျေးဇူးတင်ပါသည်။
