การรวบรวมชื่อไฟล์ทั้งหมดในเวิร์กชีตมีความสำคัญต่องานของคุณมาก ในบทความนี้เราจะแนะนำวิธีการป้อนชื่อไฟล์ทั้งหมดลงในแผ่นงานโดยใช้มาโคร VBA
ในบทความก่อนหน้านี้ 2 วิธีในการคัดลอกรายการชื่อไฟล์ทั้งหมดในโฟลเดอร์ลงในแผ่นงาน Excel ของคุณเราได้แนะนำสองวิธีในการแสดงชื่อไฟล์ทั้งหมดในโฟลเดอร์ลงในแผ่นงาน และตอนนี้เราได้พบวิธีอื่นแล้ว คุณยังสามารถใช้มาโคร VBA เพื่อทำงานนี้ให้เสร็จได้ ทำตามขั้นตอนด้านล่างและดูวิธีการใช้งาน
คัดลอกรายการชื่อไฟล์ทั้งหมดในโฟลเดอร์
- เปิดสมุดงานที่คุณต้องใส่ชื่อไฟล์
- จากนั้นกดแป้นพิมพ์ลัด“ Alt + F11” บนแป้นพิมพ์เพื่อเปิดโปรแกรมแก้ไข Visual Basic
- หลังจากนั้นคลิกแท็บ“ แทรก” ในแถบเครื่องมือ
- จากนั้นเลือกตัวเลือก“ โมดูล” ในรายการแบบเลื่อนลง ดังนั้นคุณได้แทรกโมดูลใหม่ในตัวแก้ไข
- ในขั้นตอนนี้ให้คัดลอกรหัสต่อไปนี้ลงในโมดูลใหม่:
Sub ListAllFileNames() Dim strTargetFolder As String, strFileName As String, nCountItem As Integer ' Initialization nCountItem = 1 strTargetFolder = "C:\Users\Sample\Desktop\Sales Volume" & "\" strFileName = Dir(strTargetFolder, vbDirectory) ' Get the file name Do While strFileName <> "" If strFileName <> "." And strFileName <> ".." Then Cells(nCountItem, 1) = strFileName nCountItem = nCountItem + 1 End If strFileName = Dir Loop End Sub
ในมาโครนี้ คุณต้องเปลี่ยนโฟลเดอร์เป้าหมายตามความต้องการจริงของคุณ และเราจะป้อนชื่อไฟล์ลงในคอลัมน์ A ในเวิร์กชีต หากคุณต้องการป้อนชื่อไฟล์ลงในช่วงอื่น คุณสามารถแก้ไขโค้ดได้เช่นกัน
- หลังจากนั้นให้เรียกใช้แมโครนี้ คุณสามารถคลิกปุ่ม“ Run Sub” ในแถบเครื่องมือหรือกดปุ่ม“ F5” บนแป้นพิมพ์เพื่อเรียกใช้มาโครนี้
- ถัดไปกลับมาที่แผ่นงาน คุณจะพบว่าชื่อไฟล์ทั้งหมดในโฟลเดอร์นั้นปรากฏในคอลัมน์ A แล้ว
เปรียบเทียบกับอีกสองวิธีในบทความ 2 วิธีในการคัดลอกรายการชื่อไฟล์ทั้งหมดในโฟลเดอร์ลงในแผ่นงาน Excel ของคุณคุณจะเห็นว่าการใช้มาโคร VBA นั้นสะดวกมาก อย่างไรก็ตามในทางกลับกันหากคุณไม่คุ้นเคยกับ Excel VBA คุณจะพบกับข้อผิดพลาดเมื่อแก้ไขโค้ด ดังนั้นคุณสามารถใช้หนึ่งในสามวิธีตามความต้องการที่แท้จริงของคุณ
ให้ความสำคัญกับซอฟต์แวร์ที่เป็นอันตราย
แน่นอนคุณจะติดตั้งซอฟต์แวร์จำนวนมากในคอมพิวเตอร์ของคุณ และแอปพลิเคชันเหล่านั้นสามารถช่วยคุณได้มากในการทำงาน อย่างไรก็ตามบางส่วนเป็นแอปพลิเคชันที่อันตราย เมื่อคุณติดตั้งลงในคอมพิวเตอร์ของคุณแล้วพวกเขาจะรวบรวมข้อมูลส่วนบุคคลของคุณ ที่แย่ไปกว่านั้นไฟล์ Excel ของคุณก็จะเสียหายด้วยเช่นกัน ในขณะนี้ให้ถอนการติดตั้งซอฟต์แวร์อันตรายทันที นอกจากนี้คุณยังต้องใช้เครื่องมือการกู้คืนเพื่อ ซ่อมแซมไฟล์ xlsx ที่เสียหาย. ดังนั้นคุณสามารถมั่นใจได้ว่าไฟล์ Excel ของคุณปลอดภัย
บทนำผู้เขียน:
Anna Ma เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซมปัญหาไฟล์ Word docx และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.