Vba- ဖိုင်တစ်ခုကို တစ်နေရာမှ အခြားတစ်နေရာသို့ ကူးယူနည်း

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

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

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

ဤအထူးသဖြင့် macro သည် soccer_data.txt ဟုခေါ်သော ဖိုင်ကို Some_Data_1 ဟုခေါ်သော ဖိုဒါတစ်ခုမှ Some_Data_2 ဟုခေါ်သော ဖိုင်တွဲတစ်ခုသို့ ကူးယူသည်။

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

ဥပမာ- VBA သုံးပြီး ဖိုင်တွေကို ဘယ်လိုကူးမလဲ။

ကျွန်ုပ်တို့၏ဒက်စ်တော့တွင် Some_Data_1 ဟုခေါ်သော ဖိုဒါတစ်ခုတွင် soccer_data.txt ဟုခေါ်သော စာသားဖိုင်တစ်ခုရှိသည် ဆိုကြပါစို့။

ယခုလက်ရှိတွင် စာသားဖိုင်နှစ်ခုပါရှိသော ကျွန်ုပ်တို့၏ desktop ရှိ Some_Data_2 ဟုခေါ်သော အခြားဖိုင်တွဲသို့ ဤစာသားဖိုင်ကို ကူးယူရန် VBA ကို အသုံးပြုလိုသည်ဆိုကြပါစို့။

ဤဖိုင်ကိုကူးယူရန် VBA ကိုအသုံးမပြုမီ၊ VB တည်းဖြတ်မှုတွင် Microsoft Scripting Runtime ကို ဦးစွာဖွင့်ရပါမည်။

ဒါကိုလုပ်ဖို့၊ VB editor ကိုဖွင့်ပြီး Tools ကိုနှိပ်ပြီး References ကို နှိပ်ပါ။

ပေါ်လာသည့်ဝင်းဒိုးအသစ်တွင်၊ Microsoft Scripting Runtime ကို တွေ့သည်အထိ အောက်သို့ဆင်းကာ ၎င်းဘေးရှိ ဘောက်စ်ကို အမှန်ခြစ်ပေးပါ။ ထို့နောက် OK ကိုနှိပ်ပါ။

ထို့နောက် ဖိုင်ကိုကူးယူရန် အောက်ပါ macro ကို ဖန်တီးနိုင်သည် ။

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

ဤမက်ခရိုကို လုပ်ဆောင်ပြီးသည်နှင့်၊ soccer_data.txt အမည်ရှိ ဖိုင်ကို Some_Data_1 ဖိုဒါမှ Some_Data_2 ဖိုင်တွဲသို့ ကူးယူသွားပါမည်-

မူရင်း soccer_data.txt ဖိုင်သည် Some_Data_1 ဖိုင်တွဲတွင် ရှိနေလိမ့်မည်-

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

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

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

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