Vba- အလုပ်စာအုပ်ကို ဖွင့်ထားခြင်း ရှိမရှိ စစ်ဆေးပါ (ဥပမာနှင့်အတူ)

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

 SubCheckWorkbookOpen ()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox “Workbook is open”
Else
MsgBox “Workbook is not open”
End If
    
End Sub

ဤ macro ကို run သောအခါ၊ အသုံးပြုသူသည် Excel အလုပ်စာအုပ်၏ အမည်ကို ရိုက်ထည့်နိုင်သော အကွက်တစ်ခု ပေါ်လာမည်ဖြစ်ပြီး macro သည် အောက်ပါရလဒ်များအနက်မှ တစ်ခုပါရှိသော မက်ဆေ့ဘောက်စ်ကို ထုတ်ပေးလိမ့်မည်-

• “ ဖိုင်ဖွင့်ထားပါတယ်”
• “ ဖိုင်က မဖွင့်ဘူး”

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

ဥပမာ- VBA ကို အသုံးပြု၍ workbook ကိုဖွင့်ထားခြင်းရှိမရှိ စစ်ဆေးနည်း

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

• my_workbook1.xlsx
• my_workbook2.xlsx

my_workbook1.xlsx ဟုခေါ်သော အလုပ်စာအုပ်သည် လောလောဆယ်ဖွင့်ထားခြင်းရှိမရှိ စစ်ဆေးလိုသည်ဆိုကြပါစို့။

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

 SubCheckWorkbookOpen ()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox “Workbook is open”
Else
MsgBox “Workbook is not open”
End If
    
End Sub

ဒီ macro ကို run ပြီးတာနဲ့၊ input box ထဲကို my_workbook1.xlsx ကို ရိုက်ထည့်နိုင်တဲ့ box တစ်ခု ပေါ်လာပါလိမ့်မယ်။

ငါ OK ကိုနှိပ်ပြီးသည်နှင့် Macro သည်အောက်ပါမက်ဆေ့ခ်ျဘောက်စ်ပေါ်လာလိမ့်မည်။

ထိုအမည်ပါသော အလုပ်စာအုပ်ကို လက်ရှိဖွင့်ထားကြောင်း ညွှန်ပြရန်အတွက် မက်ခရိုသည် “ Workbook is open” ကို မှန်ကန်စွာပြသသည်။

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

ငါ OK ကိုနှိပ်ပြီးသည်နှင့် Macro သည်အောက်ပါမက်ဆေ့ခ်ျဘောက်စ်ပေါ်လာလိမ့်မည်။

မက်ခရိုသည် ၎င်းအမည်ပါသော အလုပ်စာအုပ်ကို လောလောဆယ် မဖွင့်ရသေးကြောင်း ညွှန်ပြရန် “ Workbook is not open” ကို မှန်ကန်စွာပြသသည်။

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

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

VBA- အလုပ်စာအုပ်တွင် စာရွက်အရေအတွက်ကို ရေတွက်နည်း
VBA- ကော်လံများစွာကို ထည့်သွင်းနည်း
VBA- လိုင်းများစွာကို ထည့်သွင်းနည်း