จะเปลี่ยนชื่อไฟล์หลาย ๆ โฟลเดอร์ใน Excel ได้อย่างไร?
พวกเราส่วนใหญ่อาจประสบกับปัญหานี้ที่เราต้องเปลี่ยนชื่อไฟล์หลาย ๆ ไฟล์ในโฟลเดอร์การเปลี่ยนชื่อไฟล์ทีละชื่อจะทำให้เราแทบคลั่งหากมีไฟล์หลายร้อยหรือหลายพันไฟล์ในโฟลเดอร์นั้น มีฟังก์ชั่นดีๆให้เราจัดการกับงานนี้หรือไม่?
แสดงชื่อไฟล์ทั้งหมดจากโฟลเดอร์เฉพาะในแผ่นงานด้วย kutools for Excel
เปลี่ยนชื่อไฟล์หลายไฟล์ของโฟลเดอร์ใน Excel ด้วยรหัส VBA
แสดงชื่อไฟล์ทั้งหมดจากโฟลเดอร์เฉพาะในแผ่นงานด้วย kutools for Excel
หากมีไฟล์หลายไฟล์ที่คุณต้องการเปลี่ยนชื่อขั้นแรกคุณสามารถแสดงชื่อไฟล์เก่าในคอลัมน์ของเวิร์กชีตจากนั้นป้อนชื่อไฟล์ใหม่ที่คุณต้องการแทนที่ด้วย หากต้องการแสดงรายการไฟล์ทั้งหมดในแผ่นงานอย่างรวดเร็วคุณสามารถใช้ไฟล์ Kutools สำหรับ Excel's รายการชื่อไฟล์ ประโยชน์
หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้ :( ดาวน์โหลด Kutools for Excel ได้ฟรีทันที )
1. คลิก Kutools พลัส > นำเข้าส่งออก > รายการชื่อไฟล์ดูภาพหน้าจอ:
2. ใน รายการชื่อไฟล์ คลิกตกลง 
เพื่อเลือกโฟลเดอร์ไฟล์ที่คุณต้องการแสดงรายการไฟล์จากนั้นคลิก ไฟล์ทั้งหมด จาก ประเภทไฟล์ดูภาพหน้าจอ:
3. จากนั้นคลิก OK ชื่อไฟล์ทั้งหมดอยู่ในรายการในคอลัมน์ของแผ่นงานใหม่ตลอดจนแอตทริบิวต์ของไฟล์บางอย่างและตอนนี้คุณสามารถลบคอลัมน์ที่ไม่ต้องการอื่น ๆ และปล่อยให้เหลือเพียง ชื่อไฟล์ ดูภาพหน้าจอ:
คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณสมบัติรายการชื่อไฟล์นี้ ...
ดาวน์โหลด Kutools for Excel ได้ฟรีทันที
เปลี่ยนชื่อไฟล์หลายไฟล์ของโฟลเดอร์ใน Excel ด้วยรหัส VBA
หลังจากแสดงชื่อไฟล์ต้นฉบับทั้งหมดในคอลัมน์ A แล้วคุณควรพิมพ์ชื่อไฟล์ใหม่ในคอลัมน์ B ตามภาพหน้าจอต่อไปนี้:
และที่นี่ฉันจะพูดถึงรหัส VBA ซึ่งอาจช่วยให้คุณสามารถแทนที่ชื่อไฟล์เก่าด้วยชื่อไฟล์ใหม่ได้ในครั้งเดียว โปรดทำตามขั้นตอนต่อไปนี้:
1. กด ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic สำหรับแอปพลิเคชัน.
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ หน้าต่างโมดูล.
รหัส VBA: เปลี่ยนชื่อไฟล์หลายไฟล์ในโฟลเดอร์
Sub RenameFiles()
'Updateby20141124
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Application.PathSeparator & "*")
Do Until xFile = ""
xRow = 0
On Error Resume Next
xRow = Application.Match(xFile, Range("A:A"), 0)
If xRow > 0 Then
Name xDir & Application.PathSeparator & xFile As _
xDir & Application.PathSeparator & Cells(xRow, "B").Value
End If
xFile = Dir
Loop
End If
End With
End Sub
3. หลังจากวางรหัสแล้วกรุณากด F5 คีย์เพื่อเรียกใช้รหัสนี้และในไฟล์ หมวดหมู่สินค้า หน้าต่างเลือกโฟลเดอร์ที่คุณต้องการเปลี่ยนชื่อไฟล์ดูภาพหน้าจอ:
4. จากนั้นคลิก OKชื่อไฟล์เก่าทั้งหมดจะถูกแทนที่ด้วยชื่อไฟล์ใหม่ทันที ดูภาพหน้าจอ:
 |
 |
 |
หมายเหตุ:
1. เมื่อคุณแสดงชื่อไฟล์เก่าและใหม่ของคุณต้องรวมนามสกุลไฟล์ไว้ด้วย
2. ในรหัสข้างต้นการอ้างอิง A: A ระบุรายการชื่อไฟล์เก่าที่คุณต้องการเปลี่ยนชื่อและอ้างอิง B มีชื่อไฟล์ใหม่ที่คุณต้องการใช้คุณสามารถเปลี่ยนได้ตามต้องการ
Demo: เปลี่ยนชื่อหลายไฟล์ของโฟลเดอร์ใน Excel
บทความที่เกี่ยวข้อง:
วิธีสร้างแผ่นงานลำดับจากช่วงของเซลล์ใน Excel
วิธีเปลี่ยนชื่อแผ่นงานหลายแผ่นใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
