Vba: วิธีคัดลอกไฟล์จากที่หนึ่งไปยังอีกที่หนึ่ง

คุณสามารถใช้วิธี CopyFile ใน VBA เพื่อคัดลอกไฟล์จากโฟลเดอร์หนึ่งไปยังอีกโฟลเดอร์หนึ่งได้

นี่เป็นวิธีทั่วไปในการใช้วิธีนี้ในทางปฏิบัติ:

 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

ตัวอย่างต่อไปนี้แสดงวิธีใช้ไวยากรณ์นี้ในทางปฏิบัติ

ตัวอย่าง: วิธีคัดลอกไฟล์โดยใช้ VBA

สมมติว่าเรามีไฟล์ข้อความชื่อ soccer_data.txt อยู่ในโฟลเดอร์ชื่อ Some_Data_1 บนเดสก์ท็อปของเรา:

ตอนนี้ สมมติว่าเราต้องการใช้ VBA เพื่อคัดลอกไฟล์ข้อความนี้ไปยังโฟลเดอร์อื่นชื่อ Some_Data_2 บนเดสก์ท็อปของเรา ซึ่งปัจจุบันมีไฟล์ข้อความสองไฟล์:

ก่อนที่จะใช้ VBA เพื่อคัดลอกไฟล์นี้ เราต้องเปิดใช้งาน Microsoft Scripting Runtime ในตัวแก้ไข VB ก่อน

ในการดำเนินการนี้ ให้เปิดตัวแก้ไข VB จากนั้นคลิก Tools จากนั้นคลิก References :

ในหน้าต่างใหม่ที่ปรากฏขึ้น ให้เลื่อนลงจนกว่าคุณจะเห็น Microsoft Scripting Runtime และทำเครื่องหมายที่ช่องถัดจากนั้น จากนั้นคลิก ตกลง

จากนั้นเราสามารถสร้างมาโครต่อไปนี้เพื่อคัดลอกไฟล์:

 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
วิธีลบไฟล์โดยใช้ VBA