ဖိုင်တွဲတစ်ခုရှိ ဖိုင်အမည်များစာရင်းကို VBA မှတစ်ဆင့် Excel Worksheet သို့ မည်သို့ကူးယူမည်နည်း။

အလုပ်စာရွက်ရှိ ဖိုင်အမည်များအားလုံးကို စုဆောင်းခြင်းသည် သင့်လုပ်ငန်းအတွက် အလွန်အရေးကြီးပါသည်။ ဤဆောင်းပါးတွင်၊ VBA macro ကို အသုံးပြု၍ ဖိုင်အမည်များအားလုံးကို အလုပ်စာရွက်တစ်ခုတွင် ထည့်သွင်းရန် နည်းလမ်းတစ်ခုကို မိတ်ဆက်ပေးပါမည်။

ကျွန်ုပ်တို့၏ယခင်ဆောင်းပါး၌ 2 Folder တစ်ခုရှိ ဖိုင်အမည်များစာရင်းကို သင်၏ Excel Worksheet သို့ ကူးယူရန် နည်းလမ်းများဖိုင်တွဲတစ်ခုရှိ ဖိုင်အမည်များအားလုံးကို အလုပ်စာရွက်တစ်ခုတွင် စာရင်းပြုစုရန် နည်းလမ်းနှစ်ခုကို မိတ်ဆက်ပေးခဲ့သည်။ ယခု ကျွန်ုပ်တို့သည် အခြားနည်းလမ်းကို ရှာဖွေတွေ့ရှိခဲ့သည်။ ဤလုပ်ဆောင်စရာကို အပြီးသတ်ရန် VBA မက်ခရိုကိုလည်း သင်အသုံးပြုနိုင်ပါသည်။ အောက်ပါအဆင့်များကို လိုက်နာပြီး အသုံးပြုနည်းကို ကြည့်ပါ။

Folder တစ်ခုတွင် ဖိုင်အားလုံး၏ အမည်စာရင်းကို ကူးယူပါ။

1. ဖိုင်အမည်များကို ထည့်သွင်းရန် လိုအပ်သော အလုပ်စာအုပ်ကို ဖွင့်ပါ။
2. ထို့နောက် Visual Basic တည်းဖြတ်မှုကိုဖွင့်ရန် ကီးဘုတ်ပေါ်ရှိ “Alt + F11” ဖြတ်လမ်းခလုတ်များကို နှိပ်ပါ။
3. ထို့နောက် toolbar ရှိ tab "Insert" ကိုနှိပ်ပါ။
4. ထို့နောက် drop-down list တွင် "Module" ကိုရွေးချယ်ပါ။ ထို့ကြောင့်၊ သင်သည် တည်းဖြတ်မှုတွင် မော်ဂျူးအသစ်တစ်ခုကို ထည့်သွင်းထားသည်။
5. ဤအဆင့်တွင်၊ မော်ဂျူးအသစ်သို့ အောက်ပါကုဒ်များကို ကူးယူပါ-

Sub ListAllFileNames()
  Dim strTargetFolder As String, strFileName As String, nCountItem As Integer

  '  Initialization
  nCountItem = 1
  strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\"
  strFileName = Dir(strTargetFolder, vbDirectory)

  '  Get the file name
  Do While strFileName <> ""
    If strFileName <> "." And strFileName <> ".." Then
      Cells(nCountItem, 1) = strFileName
      nCountItem = nCountItem + 1
    End If
    strFileName = Dir
  Loop
End Sub

ဒီ macro မှာ သင့်ရဲ့ တကယ့်လိုအပ်ချက်အရ target folder ကို ပြောင်းလဲဖို့ လိုအပ်ပါတယ်။ ပြီးတော့ worksheet ရဲ့ column A မှာ file name တွေကို ထည့်သွင်းပေးပါမယ်။ တခြား range ထဲမှာ file name တွေကို ထည့်သွင်းဖို့ လိုအပ်ရင် code တွေကိုလည်း ပြင်ဆင်နိုင်ပါတယ်။

6. ပြီးရင် ဒီ macro ကို run လိုက်ပါ။ ကိရိယာဘားရှိ “Run Sub” ခလုတ်ကို နှိပ်နိုင်သည် သို့မဟုတ် ဤမက်ခရိုကို လုပ်ဆောင်ရန် ကီးဘုတ်ရှိ “F5” ခလုတ်ကို နှိပ်နိုင်သည်။
7. နောက်တစ်ခုက အလုပ်စာရွက်ကို ပြန်သွားပါ။ ဖိုဒါရှိ ဖိုင်အမည်များ ကော်လံ A တွင် ပေါ်လာပြီးဖြစ်ကြောင်း သင်တွေ့ရပါမည်။

ဆောင်းပါးပါ အခြားနည်းလမ်းနှစ်ခုနှင့် နှိုင်းယှဉ်ပါ။ 2 Folder တစ်ခုရှိ ဖိုင်အမည်များစာရင်းကို သင်၏ Excel Worksheet သို့ ကူးယူရန် နည်းလမ်းများVBA macro ကိုအသုံးပြုခြင်းသည်အလွန်အဆင်ပြေသည်ကိုသင်တွေ့လိမ့်မည်။ သို့သော်လည်း အခြားတစ်ဖက်တွင်၊ သင်သည် Excel VBA နှင့် မရင်းနှီးပါက၊ ကုဒ်များကို ပြုပြင်သောအခါတွင် အမှားအယွင်းများနှင့် ရင်ဆိုင်ရလိမ့်မည်။ ထို့ကြောင့် သင်အမှန်တကယ် လိုအပ်ချက်အရ နည်းလမ်းသုံးမျိုးထဲမှ တစ်ခုကို သင်သုံးနိုင်သည်။

အန္တရာယ်ရှိသောဆော့ဖ်ဝဲလ်ကိုသတိထားပါ။

သင့်ကွန်ပြူတာတွင် ဆော့ဖ်ဝဲလ်များစွာကို သေချာပေါက် ထည့်သွင်းနိုင်မည်ဖြစ်သည်။ ပြီးတော့ အဲဒီအပလီကေးရှင်းတွေက သင့်အလုပ်မှာ အများကြီး ကူညီပေးနိုင်ပါတယ်။ သို့သော် ၎င်းတို့ထဲမှ အချို့သည် အန္တရာယ်ရှိသော application များဖြစ်သည်။ ၎င်းတို့ကို သင့်ကွန်ပျူတာတွင် ထည့်သွင်းပြီးသည်နှင့် ၎င်းတို့သည် သင့်ကိုယ်ရေးကိုယ်တာ အချက်အလက်များကို စုဆောင်းမည်ဖြစ်သည်။ ပိုဆိုးတာက သင့် Excel ဖိုင်တွေ ပျက်စီးသွားလိမ့်မယ်။ ဤအခိုက်အတန့်တွင် အန္တရာယ်ရှိသောဆော့ဖ်ဝဲကို ချက်ချင်းဖြုတ်ပါ။ ထို့အပြင်၊ သင်လည်းပြန်လည်ရယူရန်ကိရိယာကိုအသုံးပြုရန်လိုအပ်သည်။ ပျက်စီးနေသော xlsx ဖိုင်ကို ပြုပြင်ပါ။. ထို့ကြောင့် သင်၏ Excel ဖိုင်များသည် လုံခြုံကြောင်း သေချာစေနိုင်ပါသည်။

စာရေးသူနိဒါန်း:

Anna Ma သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ Word docx ဖိုင်ပြဿနာကို ပြုပြင်ပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com