เนื้อหา

• คำสั่ง
• การสร้างมาโคร
• การใช้มาโคร
• การเตือน

Microsoft Excel ไม่ได้เป็นเพียงข้อมูลเกี่ยวกับตารางการคำนวณและการจัดการข้อมูล ผู้ใช้ตัวยงใด ๆ สามารถเปลี่ยน Excel เป็นเครื่องมือที่มีประสิทธิภาพสำหรับการจัดการโฟลเดอร์จัดระเบียบไฟล์และติดตามงาน คุณสามารถสร้างแมโครที่ใช้วัตถุ VBA FileDialog เพื่อสแกนไดเรกทอรีอย่างรวดเร็วและแสดงรายการเนื้อหาในแผ่นงาน หลังจากเรียกใช้งานมาโครนี้จะแจ้งให้ผู้ใช้เลือกโฟลเดอร์จากนั้นจะแสดงรายการชื่อเนื้อหาในคอลัมน์เดียวในภายหลัง

คำสั่ง

สร้างแก้ไขลบตรวจสอบและย้ายโฟลเดอร์จากคอมพิวเตอร์ของคุณด้วย Excel VBA (เทคโนโลยี Hemera / Photos.com / รูปภาพ Getty)

การสร้างมาโคร

1. เริ่ม Microsoft Excel กด "CTRL + O" เลือกสมุดงานแล้วคลิก "เปิด" หากต้องการสร้างสมุดงานใหม่ให้กด "CTRL + N"

2. กด "ALT + F8" เพื่อเปิดกล่องโต้ตอบแมโคร พิมพ์ "GetFolderContents" ในกล่องชื่อแมโครแล้วคลิก "สร้าง"

3. พิมพ์รหัสต่อไปนี้ในเครื่องมือแก้ไข VBA:

   ย่อย GetFolderContents () Dim xDir, xFilename, f, fso เป็นชุดวัตถุ fso = CreateObject ("" Scripting.FileSystemObject ") ด้วย Application.FileDialog (msoFileDialogFolderPicker) รายการไฟล์จาก ".AllowMultiSelect = False .Show If .SelectedItems.Count <> 0 จากนั้น xDir = .SelectedItems (1) &" "สิ้นสุดหากลงท้ายด้วย If (MsgBox (Prompt: =" คุณต้องการรวมชื่อโฟลเดอร์ย่อย) ? ", _ Buttons: = vbYesNo, Title: =" รวมโฟลเดอร์ย่อย ") = vbYes) จากนั้น GoTo ListFolders GoTo ListFiles Else GoTo ListFiles สิ้นสุดหาก ListFolders: สำหรับแต่ละ f ใน fso.GetFolder (xDir) .FileName ActiveCell.Offset (1, 0) เลือกถัดไป f ListFiles: สำหรับแต่ละ f ใน fso.GetFolder (xDir) .Files ActiveCell.Value = f.Name ActiveCell.Offset (1, 0) ถัดไป f ตั้งค่า fso = ไม่มีส่วนย่อยสิ้นสุด

   
   

4. กด "ALT + Q" เพื่อปิดตัวแก้ไข VBA และกลับไปที่สมุดงาน

การใช้มาโคร

1. เลือกเซลล์แผ่นงาน กดปุ่ม "ALT + I" และ "C" เพื่อสร้างคอลัมน์ว่าง เลือกเซลล์แรกของคอลัมน์ใหม่ หากคุณต้องการแสดงรายการในแผ่นงานใหม่ให้กด "SHIFT + F11"

2. กด "ALT + F8" เพื่อเปิดกล่องโต้ตอบแมโคร เลือก "GetFolderContents" จากนั้นคลิก "Run"

3. เลือกโฟลเดอร์หรือไดเรกทอรีที่คุณต้องการแสดงเนื้อหา คลิก "ตกลง"

4. คลิก "ใช่" หากคุณต้องการให้แมโครแสดงรายการชื่อโฟลเดอร์ย่อยหรือคลิก "ไม่" เพื่อแสดงรายการเฉพาะไฟล์ รอให้ Excel กรอกคอลัมน์ใหม่ด้วยเนื้อหาของโฟลเดอร์ที่เลือก

การเตือน

• โดยค่าเริ่มต้นแมโครถูกปิดใช้งานใน Microsoft Excel หากต้องการเปิดใช้งานให้คลิกปุ่ม Microsoft Office แล้วไปที่ "ตัวเลือกของ Excel" ตรวจสอบให้แน่ใจว่าได้เลือก "แสดงแท็บผู้พัฒนา" ไปที่ "ศูนย์ความเชื่อถือ" จากนั้นคลิกที่ "การตั้งค่าศูนย์ความเชื่อถือ" ไปที่ "การตั้งค่ามาโคร" จากนั้นเลือก "เปิดใช้งานมาโครทั้งหมด" คลิก "ตกลง" บนทั้งสองหน้าต่างบันทึกโฟลเดอร์งานที่เปิดอยู่ทั้งหมดแล้วเริ่ม Excel ใหม่