Vba- ဖိုင်တွဲတစ်ခုတွင် ဖိုင်များကို စာရင်းပြုစုနည်း

ဖိုင်တွဲတစ်ခုရှိ ဖိုင်များကို စာရင်းပြုစုရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်အသုံးပြုနိုင်သည်-

နည်းလမ်း 1- ဖိုင်တွဲရှိ ဖိုင်အားလုံးကို စာရင်းပြုစုပါ။

 SubListFiles ()

Dim i As Integer
Dim oFSO As Object
Dim oFolder As Object
Dim objFile As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\Users\bob\Documents\current_data")

For Each objFile In oFolder.Files
    Cells(i + 1, 1) = objFile.Name
    i = i + 1
Next objFile

End Sub

နည်းလမ်း 2- ဖိုဒါတွင် .xlsx ဖိုင်များကိုသာ စာရင်းပြုစုပါ။

 SubListFiles ()

Dim i As Integer
Dim oFSO As Object
Dim oFolder As Object
Dim objFile As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\Users\bob\Documents\current_data")

For Each objFile In oFolder.Files
    If Right(objFile.Name, 4) = "xlsx" Then
        Cells(i + 1, 1) = objFile.Name
        i = i + 1
    End If
Next objFile

End Sub

အောက်ဖော်ပြပါနမူနာများသည် အောက်ပါဖိုင်လမ်းကြောင်းပါရှိသော ဖိုင်တွဲတစ်ခုနှင့် လက်တွေ့တွင် နည်းလမ်းတစ်ခုစီကို အသုံးပြုနည်းကို ပြသသည်-

• C:\Users\bob\Documents\current_data

ဖိုင်တွဲတွင် .xlsx ဖိုင်နှစ်ခုနှင့် .csv ဖိုင်သုံးခု ပါဝင်သည်-

ဥပမာ 1- ဖိုဒါရှိ ဖိုင်အားလုံးကို စာရင်းပြုစုပါ။

ဖိုင်တွဲရှိ ဖိုင်အားလုံးကို စာရင်းပြုစုရန် အောက်ပါ မက်ခရိုကို ဖန်တီးနိုင်သည်-

 SubListFiles ()

Dim i As Integer
Dim oFSO As Object
Dim oFolder As Object
Dim objFile As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\Users\bob\Documents\current_data")

For Each objFile In oFolder.Files
    Cells(i + 1, 1) = objFile.Name
    i = i + 1
Next objFile

End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ဖိုင်တွဲရှိ ဖိုင်များအားလုံး (၎င်းတို့၏ extension မည်သည်ဖြစ်စေ) ၏အမည်များကို ယခုကျွန်ုပ်တို့၏ Excel စာရွက်၏ကော်လံ A တွင်ဖော်ပြထားသည်ကို ကျွန်ုပ်တို့တွေ့မြင်နိုင်ပါသည်။

ဥပမာ 2- ဖိုင်တွဲတွင် .xlsx ဖိုင်များကိုသာ စာရင်းပြုစုပါ။

ဖိုင်တွဲအတွင်း .xlsx တိုးချဲ့မှုပါရှိသော ဖိုင်များကိုသာ စာရင်းပြုစုရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည်-

 SubListFiles ()

Dim i As Integer
Dim oFSO As Object
Dim oFolder As Object
Dim objFile As Object

Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder("C:\Users\bob\Documents\current_data")

For Each objFile In oFolder.Files
    If Right(objFile.Name, 4) = "xlsx" Then
        Cells(i + 1, 1) = objFile.Name
        i = i + 1
    End If
Next objFile

End Sub

ကျွန်ုပ်တို့ ဤ macro ကို run သောအခါတွင်၊ ကျွန်ုပ်တို့သည် အောက်ပါ output ကို ရရှိသည် ။

ဖိုင်တွဲရှိ .xlsx တိုးချဲ့မှုတစ်ခုပါရှိသော ဖိုင်များ၏အမည်များကို ယခုကျွန်ုပ်တို့၏ Excel စာရွက်၏ကော်လံ A တွင် ဖော်ပြထားကြောင်း ကျွန်ုပ်တို့တွေ့မြင်နိုင်ပါသည်။

ထပ်လောင်းအရင်းအမြစ်များ

အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-

VBA ကို အသုံးပြု၍ ဖိုင်တွဲများဖန်တီးနည်း
VBA သုံးပြီး ဖိုင်တွဲတွေကို ဘယ်လိုဖျက်မလဲ။
VBA ကို အသုံးပြု၍ ဖိုင်အမည်ပြောင်းနည်း
VBA ကို အသုံးပြု၍ ဖိုင်ရှိမရှိ စစ်ဆေးနည်း