Vba ကို အသုံးပြု၍ ဖိုင်များကို ဖျက်နည်း (ဥပမာများဖြင့်)
သီးခြားဖိုင်တွဲတစ်ခုရှိ Excel ဖိုင်တစ်ခုကို ဖျက်ရန် VBA တွင် Kill ထုတ်ပြန်ချက်ကို အသုံးပြုနိုင်သည်။
ဤဖော်ပြချက်ကို လက်တွေ့တွင် အသုံးပြုရန် ဘုံနည်းလမ်းတစ်ခုဖြစ်သည်။
SubDeleteFile ()
On Error Resume Next
Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"
On Error GoTo 0
End Sub
ဤ Macro သည် အောက်ပါဖိုင်တွဲတွင်ရှိသော soccer_data.xlsx ဟုခေါ်သော Excel ဖိုင်ကို ဖျက်လိုက်သည်-
C:\Users\Bob\Desktop\My_Data
On Error Resume Next line တွင် error တစ်ခုဖြစ်ပွားပြီး ဖိုင်ကိုရှာမတွေ့ပါက error message ကိုပြသသင့်သည်ဟု VBA အားပြောပြသည်။
ထို့နောက် ကျွန်ုပ်တို့သည် အမှားမက်ဆေ့ချ်များကို မူရင်းဆက်တင်များသို့ ပြန်လည်သတ်မှတ်ရန် On Error GoTo 0 ကို အသုံးပြုသည်။
ဖိုင်ကို ရှာမတွေ့ပါက အမှားအယွင်း မက်ဆေ့ချ်ကို ပြသလိုပါက၊ ဤစာကြောင်းနှစ်ခုကို ကုဒ်မှ ဖယ်ရှားလိုက်ပါ။
အောက်ဖော်ပြပါ ဥပမာသည် ဤ syntax ကို လက်တွေ့တွင် မည်သို့အသုံးပြုရမည်ကို ပြသထားသည်။
ဥပမာ- VBA ကိုသုံးပြီး ဖိုင်တစ်ခုကို ဖျက်ပါ။
ကျွန်ုပ်တို့တွင် Excel ဖိုင်သုံးခုပါရှိသော အောက်ပါ folder ရှိသည်ဆိုပါစို့။
soccer_data.xlsx ဟုခေါ်သောဖိုင်ကိုဖျက်ရန် VBA ကိုအသုံးပြုလိုသည်ဆိုပါစို့။
ဒါကိုလုပ်ဖို့ အောက်ပါ macro ကို ဖန်တီးနိုင်ပါတယ်။
SubDeleteFile ()
On Error Resume Next
Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"
On Error GoTo 0
End Sub
ဒီ macro ကို run ပြီး folder ကို ပြန်ဖွင့်ပြီးတာနဲ့ soccer_data.xlsx လို့ခေါ်တဲ့ ဖိုင်ကို ဖျက်လိုက်ပါပြီ-
အခြားဖိုင်အားလုံးသည် ဖိုဒါတွင် ကျန်ရှိနေသည်။
ဖိုင်မရှိပါက error message ကိုပြသလိုပါက အောက်ပါ macro ကို အသုံးပြုနိုင်ပါသည်။
SubDeleteFile ()
Kill "C:\Users\Bob\Desktop\My_Data\soccer_data.xlsx"
End Sub
ဤမက်ခရိုကို ကျွန်ုပ်တို့လုပ်ဆောင်သောအခါ၊ ကျွန်ုပ်တို့သည် အောက်ပါအမှားသတင်းစကားကို လက်ခံရရှိသည်-
soccer_data.xlsx ဖိုင်ကို ဖျက်ပြီးဖြစ်ပြီး ဖိုင်တွဲတွင် မရှိတော့သောကြောင့် ကျွန်ုပ်တို့သည် ဤအမှားသတင်းကို လက်ခံရရှိခြင်းဖြစ်သည်။
မှတ်ချက် ။
ထပ်လောင်းအရင်းအမြစ်များ
အောက်ဖော်ပြပါ သင်ခန်းစာများသည် VBA တွင် အခြားဘုံအလုပ်များကို မည်သို့လုပ်ဆောင်ရမည်ကို ရှင်းပြသည်-
VBA- အလုပ်စာအုပ်တွင် စာရွက်အရေအတွက်ကို ရေတွက်နည်း
VBA- အခြားအလုပ်စာအုပ်မှ ဒေတာကို မည်သို့ထုတ်ယူမည်နည်း။
VBA- အမည်တွင် သီးခြားစာသားပါရှိလျှင် စာရွက်တစ်ရွက်ကို မည်သို့ဖျက်မည်နည်း။