VBA ต่อไปนี้สามารถช่วยให้คุณนับไฟล์ประเภทใดประเภทหนึ่งในโฟลเดอร์หนึ่ง ๆ ได้อย่างง่ายดายเช่นนับไฟล์. xlsx ทั้งหมดในโฟลเดอร์ โปรดดำเนินการดังนี้:

1 กด อื่น ๆ + F11 คีย์พร้อมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลการเปิด

VBA: นับไฟล์เฉพาะในโฟลเดอร์หนึ่ง ๆ

Sub CountFiles()
Dim xFolder As String
Dim xPath As String
Dim xCount As Long
Dim xFiDialog As FileDialog
Dim xFile As String
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xFolder = xFiDialog.SelectedItems(1)
End If
If xFolder = "" Then Exit Sub
xPath = xFolder & "\*.xlsx"
xFile = Dir(xPath)
Do While xFile <> ""
xCount = xCount + 1
xFile = Dir()
Loop
MsgBox xCount & " files found"
End Sub

หมายเหตุ: รหัส VBA ด้านบนจะนับไฟล์ .xlsx ไฟล์ในบางโฟลเดอร์ สำหรับการนับไฟล์ประเภทอื่น ๆ โปรดดู xPath = xFolder & "\ *. xlsx"และเปลี่ยน .xlsx เป็นนามสกุลไฟล์อื่น ๆ ตามความต้องการของคุณ

3 กด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้รหัส VBA นี้

4. ในกล่องโต้ตอบเรียกดูเปิดให้เลือกโฟลเดอร์ที่คุณจะนับประเภทไฟล์ที่ต้องการแล้วคลิกไฟล์ OK ปุ่ม

5. ตอนนี้กล่องโต้ตอบจะปรากฏขึ้นและแสดงให้คุณเห็นว่ามีไฟล์ประเภทใดอยู่ในโฟลเดอร์นั้น เพียงแค่ปิดกล่องโต้ตอบ

รวมไฟล์เวิร์กชีต / เวิร์กบุ๊ก / ไฟล์ CSV หลายไฟล์ไว้ในแผ่นงาน / สมุดงาน

อาจเป็นเรื่องน่าเบื่อที่จะรวมแผ่นงานหลายสิบแผ่นจากสมุดงานต่างๆไว้ในแผ่นงานเดียว แต่ด้วย Kutools for Excel's รวม (แผ่นงานและสมุดงาน) ยูทิลิตี้คุณสามารถทำได้ด้วยการคลิกเพียงไม่กี่ครั้ง!

หากคุณเปิดโฟลเดอร์โดยปกติคุณจะได้รับจำนวนไฟล์ทั้งหมดที่ด้านล่างของโฟลเดอร์นี้ วิธีนี้จะแนะนำ Kutools for Excel's เปิดโฟลเดอร์ที่เก็บ ยูทิลิตี้เพื่อเปิดโฟลเดอร์ที่มีสมุดงานปัจจุบันจากนั้นรับจำนวนไฟล์ในโฟลเดอร์นี้

1 คลิก Kutools พลัส > สมุดงาน > เปิดโฟลเดอร์ที่เก็บ. ดูภาพหน้าจอ:

2. ตอนนี้โฟลเดอร์ที่มีสมุดงานปัจจุบันกำลังเปิดขึ้น

ยกเลิกการเลือกไฟล์ใด ๆ ในโฟลเดอร์เปิดและคุณจะเห็นจำนวนไฟล์ทั้งหมดที่ด้านล่างของโฟลเดอร์นี้ตามภาพด้านล่างที่แสดง:

หมายเหตุ: เปิดโฟลเดอร์ที่เก็บ ยูทิลิตี้จะไม่ถูกต้องหากคุณไม่เคยบันทึกสมุดงานปัจจุบันมาก่อน

บางครั้งคุณอาจต้องการนับไฟล์หลายประเภทในโฟลเดอร์และโฟลเดอร์ย่อย จริงๆแล้ว Kutools for Excel มีอีก รายการชื่อไฟล์ ยูทิลิตี้เพื่อแก้ปัญหาได้อย่างง่ายดาย

1 คลิก Kutools พลัส > นำเข้าส่งออก > รายการชื่อไฟล์ เพื่อเปิดกล่องโต้ตอบรายการชื่อไฟล์

2. ในกล่องโต้ตอบเปิดรายการชื่อไฟล์โปรดดำเนินการดังนี้:

3 คลิกที่ Ok ในกล่องโต้ตอบรายการชื่อไฟล์

4. ตอนนี้ไฟล์ทุกประเภทที่ระบุอยู่ในแผ่นงานใหม่ เพียงเลือกคอลัมน์แรกโดยไม่มีส่วนหัวของคอลัมน์คุณจะได้รับจำนวนไฟล์ในแถบสถานะดังภาพด้านล่าง: