Vba- ဖွင့်ထားသော အလုပ်စာအုပ်များစာရင်းကို မည်သို့ရယူရမည်နည်း။

ဖွင့်ထားသော Excel workbooks စာရင်းကို ရယူရန် VBA ရှိ တစ်ခုစီအတွက် loop တစ်ခုကို အသုံးပြုနိုင်သည်။

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

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

ဤထူးခြားသော မက်ခရိုသည် ဖွင့်ထားသော Excel အလုပ်စာအုပ်များစာရင်းပါရှိသော မက်ဆေ့ခ်ျဘောက်စ်တစ်ခုကို ထုတ်ပေးလိမ့်မည်။

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

ဥပမာ- VBA ကို အသုံးပြု၍ ဖွင့်ထားသော workbooks စာရင်းကို ရယူပါ။

အောက်ဖော်ပြပါ Excel workbook သုံးခုကို လက်ရှိဖွင့်ထားသည်ဟု ယူဆကြပါစို့။

• ဘေ့စ်ဘော_data.xlsx
• football_data.xlsx
• hockey_data.xlsx

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

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

 Sub ListAllOpenWorkbooks()

Dim wbName As String
Dim wb As Workbook

'add each open workbook to message box
For Each wb In Application.Workbooks
    wbName = wbName & wb.Name & vbCrLf
Next

'display message box with all open workbooks
MsgBox wbName

End Sub

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

မက်ဆေ့ချ်ဘောက်စ်တွင် သီးသန့်အလုပ်စာအုပ်တစ်ခုစီကို ၎င်း၏ကိုယ်ပိုင်အတန်းတွင် ဖော်ပြထားသဖြင့် ဖွင့်ထားသည့် အလုပ်စာအုပ်တစ်ခုစီ၏ အမည်များကို ဖော်ပြသည်။

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

၎င်းသည် ကျွန်ုပ်တို့အား မက်ဆေ့ဘောက်စ်တွင် ၎င်း၏ကိုယ်ပိုင်စာကြောင်းပေါ်တွင် ဖွင့်ထားသည့် အလုပ်စာအုပ်တစ်အုပ်စီကို စာရင်းပြုစုနိုင်စေခဲ့သည်။

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

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

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