Vba- ဖိုဒါထဲရှိ ဖိုင်အားလုံးကို ဘယ်လိုဖွင့်မလဲ။

Workbooks နှင့် Do while loop ကို သုံးနိုင်သည်။ သီးခြား folder တစ်ခုရှိ ဖိုင်အားလုံးကို ဖွင့်ရန် VBA တွင် ဖွင့်နည်း။

ဤသည်မှာ လက်တွေ့လုပ်ဆောင်ရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

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

• C:\Users\bob\Documents\current_data

အောက်ဖော်ပြပါ ဥပမာသည် ဤ macro ကို လက်တွေ့တွင် အသုံးပြုနည်းကို ပြသထားသည်။

ဆက်စပ်- VBA ကို အသုံးပြု၍ ဖွင့်ထားသော Workbook များအားလုံး၏စာရင်းကို မည်သို့ရယူရမည်နည်း။

ဥပမာ- VBA ကို အသုံးပြု၍ ဖိုင်တွဲတစ်ခုရှိ ဖိုင်အားလုံးကို မည်သို့ဖွင့်ရမည်နည်း။

ကျွန်ုပ်တို့တွင် .xlsx ဖိုင်သုံးခုပါရှိသော current_data ဟုခေါ်သော အောက်ပါဖိုင်တွဲရှိသည် ဆိုကြပါစို့။

ဤဖိုင်တွဲရှိ .xlsx ဖိုင်များအားလုံးကို ဖွင့်ရန် VBA ကို အသုံးပြုလိုသည်ဆိုပါစို့။

ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ ဖိုဒါရှိ .xlsx တိုးချဲ့မှုပါရှိသော ဖိုင်တစ်ခုစီကို တစ်ခုပြီးတစ်ခု ဖွင့်ပါမည်။

Folder အတွင်းရှိ ဖိုင်များ တစ်ခုခုကို ဖွင့်ထားပြီးဖြစ်ပါက အဆိုပါဖိုင်များသည် ရိုးရိုးရှင်းရှင်း ဖွင့်ထားဆဲဖြစ်ကြောင်း သတိပြုပါ။

မှတ်ချက် – Workbooks အတွက် စာရွက်စာတမ်းအပြည့်အစုံကို သင်ရှာတွေ့နိုင်ပါသည်။ ဤနေရာတွင် VBA တွင်ဖွင့်နည်း။

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

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

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