วิธีเปลี่ยนชื่อไฟล์โดยใช้ vba (พร้อมตัวอย่าง)

คุณสามารถใช้คำสั่ง Name ใน VBA เพื่อเปลี่ยนชื่อไฟล์ Excel ได้

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

 SubRenameFile ()

Name "C:\Users\bob\Documents\current_data\my_old_file.xlsx" As _
    "C:\Users\bob\Documents\current_data\my_new_file.xlsx"

End Sub

มาโครนี้จะเปลี่ยนชื่อไฟล์ชื่อ my_old_file.xlsx เป็น my_new_file.xlsx

หมายเหตุ : คุณสามารถเขียนทั้งสองพาธของไฟล์ในบรรทัดเดียวกันได้ แต่เราใช้ขีดล่าง ( _ ) เพื่อเขียนโค้ดต่อในบรรทัดถัดไปเพื่อให้อ่านง่ายขึ้น

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

ตัวอย่าง: เปลี่ยนชื่อไฟล์โดยใช้ VBA

สมมติว่าเรามีโฟลเดอร์อยู่ในตำแหน่งต่อไปนี้:

C:\Users\bob\Documents\current_data

โฟลเดอร์นี้มีไฟล์ Excel สามไฟล์:

สมมติว่าเราต้องการใช้ VBA เพื่อเปลี่ยนชื่อไฟล์ชื่อ soccer_data.xlsx เป็น soccer_data_new.xlsx แทน

เราสามารถสร้างมาโครต่อไปนี้เพื่อทำสิ่งนี้:

 SubRenameFile ()

Name "C:\Users\bob\Documents\current_data\soccer_data.xlsx" As _
    "C:\Users\bob\Documents\current_data\soccer_data_new.xlsx"

End Sub

เมื่อดำเนินการแมโครนี้แล้ว ไฟล์ที่เราระบุจะถูกเปลี่ยนชื่อ

เราสามารถนำทางไปยังตำแหน่งโฟลเดอร์และตรวจสอบว่า soccer_data.xlsx ถูกเปลี่ยนชื่อ เป็น soccer_data_new_.xlsx :

เราจะเห็นว่าไฟล์นั้นถูกเปลี่ยนชื่อจริง ๆ และไฟล์อื่น ๆ ทั้งหมดในโฟลเดอร์ยังคงไม่เปลี่ยนแปลง

หมายเหตุ : คุณสามารถค้นหาเอกสารประกอบที่สมบูรณ์สำหรับคำสั่ง Name ใน VBA ได้ที่นี่

แหล่งข้อมูลเพิ่มเติม

บทช่วยสอนต่อไปนี้จะอธิบายวิธีการทำงานทั่วไปอื่นๆ ใน VBA:

วิธีสร้างโฟลเดอร์โดยใช้ VBA
วิธีลบโฟลเดอร์โดยใช้ VBA
วิธีลบไฟล์โดยใช้ VBA
วิธีตรวจสอบว่ามีไฟล์อยู่โดยใช้ VBA หรือไม่