Vba ကိုအသုံးပြု၍ workbook name ကိုမည်သို့ရယူနည်း (ဥပမာများဖြင့်)

Excel workbook အမည်ရရန် VBA တွင် အောက်ပါနည်းလမ်းများကို သင်သုံးနိုင်သည်။

နည်းလမ်း 1- အသုံးပြုနေသော အလုပ်စာအုပ်အမည်ကို ရယူပါ။

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

ဤလုပ်ဆောင်ချက်သည် my_vba_workbook.xlsm ကဲ့သို့သော လက်ရှိအလုပ်စာအုပ်၏ အမည်ကို ပြန်ပေးပါမည်။

နည်းလမ်း 2- သက်တမ်းတိုးခြင်းမရှိဘဲ အလုပ်စာအုပ်အမည်ကို ရယူပါ။

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

ဤလုပ်ဆောင်ချက်သည် my_vba_workbook ကဲ့သို့သော တိုးချဲ့မှုမပါဘဲ လက်ရှိအသုံးပြုနေသော အလုပ်စာအုပ်၏ အမည်ကို ပြန်ပေးပါမည်။

အောက်ဖော်ပြပါနမူနာများသည် my_vba_workbook.xlsm ဟုခေါ်သော လက်ရှိအသုံးပြုနေသော Excel အလုပ်စာအုပ်ဖြင့် လက်တွေ့တွင် နည်းလမ်းတစ်ခုစီကို အသုံးပြုနည်းကို ပြသထားသည်။

ဥပမာ 1- အသုံးပြုနေသော အလုပ်စာအုပ်၏ အမည်ကို ရယူပါ။

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

 Function GetWorkbookName() As String
GetWorkbookName = ActiveWorkbook.Name
End Function

ထို့နောက် ကျွန်ုပ်တို့သည် လုပ်ဆောင်နေသော အလုပ်စာအုပ်အမည်ကို ရယူရန် ဆဲလ် A1 တွင် အောက်ပါဖော်မြူလာကို ရိုက်ထည့်နိုင်သည်-

 =GetWorkbookName()

အောက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံသည် ဤဖော်မြူလာကို လက်တွေ့တွင် အသုံးပြုနည်းကို ပြသသည်-

ဖော်မြူလာသည် ကျွန်ုပ်တို့အသုံးပြုနေသော လက်ရှိအသုံးပြုနေသော အလုပ်စာအုပ်၏အမည်ဖြစ်သည့် my_vba_workbook.xlsm ကို ပြန်ပေးကြောင်း ကျွန်ုပ်တို့တွေ့မြင်နိုင်ပါသည်။

မှတ်ချက် – .xlsm တိုးချဲ့မှုသည် မက်ခရိုဖွင့်ထားသော Excel အလုပ်စာအုပ်ကို ကိုယ်စားပြုသည်။

ဥပမာ 2- သက်တမ်းတိုးခြင်းမရှိဘဲ အလုပ်စာအုပ်အမည်ကို ရယူပါ။

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

 Function GetWorkbookName() As String
GetWorkbookName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, " . ") - 1)
End Function

ထို့နောက် ကျွန်ုပ်တို့သည် လုပ်ဆောင်နေသော အလုပ်စာအုပ်အမည်ကို ရယူရန် ဆဲလ် A1 တွင် အောက်ပါဖော်မြူလာကို ရိုက်ထည့်နိုင်သည်-

 =GetWorkbookName()

အောက်ဖော်ပြပါ ဖန်သားပြင်ဓာတ်ပုံသည် ဤဖော်မြူလာကို လက်တွေ့တွင် အသုံးပြုနည်းကို ပြသသည်-

ဖော်မြူလာသည် .xlsm တိုးချဲ့မှုမပါဘဲ လက်ရှိအသုံးပြုနေသော အလုပ်စာအုပ်၏ အမည်ဖြစ်သည့် my_vba_workbook ကို ပြန်ပေးကြောင်း ကျွန်ုပ်တို့ တွေ့နိုင်ပါသည်။

မှတ်ချက် – Left နှင့် Instr လုပ်ဆောင်ချက်များကို အသုံးပြု၍ စာလုံးအားလုံးကို workbook အမည်မှ အစက်၏ဘယ်ဘက်သို့ ထုတ်ယူနိုင်ပါသည်။

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

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

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