Note: The other languages of the website are Google-translated. Back to English

จะแสดงรายการไฟล์ทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยลงในแผ่นงานได้อย่างไร?

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

แสดงชื่อไฟล์ทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยด้วยรหัส VBA

แสดงชื่อไฟล์ทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยอย่างรวดเร็วและง่ายดายด้วย Kutools for Excel


โดยปกติ Excel ไม่มีคุณสมบัติในการจัดการกับงานนี้ แต่คุณสามารถใช้รหัส VBA ต่อไปนี้เพื่อแก้ปัญหานี้ให้เสร็จสิ้น

1. เปิดใช้งานแผ่นงานใหม่ซึ่งจะแสดงรายการชื่อไฟล์

2. กด ALT + F11 ใน Excel และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

รหัส VBA: แสดงชื่อไฟล์ทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อย

Sub MainList()
'Updateby Extendoffice
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub
Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub
Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

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

ไฟล์รายการ doc ในโฟลเดอร์ย่อยของโฟลเดอร์ 1

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

ไฟล์รายการ doc ในโฟลเดอร์ย่อยของโฟลเดอร์ 2

6. หลังจากระบุโฟลเดอร์แล้วคลิก OK และชื่อไฟล์ทั้งหมดในโฟลเดอร์และโฟลเดอร์ย่อยได้รับการระบุไว้ในแผ่นงานปัจจุบันจากเซลล์ A2 ดูภาพหน้าจอ:

ไฟล์รายการ doc ในโฟลเดอร์ย่อยของโฟลเดอร์ 3
1
ไฟล์รายการ doc ในโฟลเดอร์ย่อยของโฟลเดอร์ 4

ด้วยรหัสด้านบนคุณสามารถแสดงชื่อไฟล์ได้บางครั้งคุณต้องแสดงรายการคุณลักษณะอื่น ๆ เช่นขนาดไฟล์ประเภทไฟล์เวลาที่สร้างขึ้นมีโฟลเดอร์และอื่น ๆ Kutools สำหรับ Excel มีฟังก์ชันที่มีประโยชน์ - รายการชื่อไฟล์ด้วยคุณสมบัตินี้คุณสามารถแสดงรายการชื่อไฟล์ทั้งหมดหรือบางประเภทในโฟลเดอร์และโฟลเดอร์ย่อยได้อย่างรวดเร็ว

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน.

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามขั้นตอนต่อไปนี้:

1. คลิก Enterprise > นำเข้าส่งออก > รายการชื่อไฟล์ดูภาพหน้าจอ:

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

Aคลิกที่นี่ ไฟล์รายการ doc ในโฟลเดอร์ย่อยของโฟลเดอร์ 7ปุ่มเพื่อเลือกโฟลเดอร์ที่คุณต้องการแสดงชื่อไฟล์

B: ระบุประเภทไฟล์ที่คุณต้องการแสดงรายการจากไฟล์ ประเภทไฟล์ มาตรา;

C: เลือกหนึ่งหน่วยขนาดไฟล์ที่คุณต้องการแสดงจากไฟล์ หน่วยขนาดไฟล์ มาตรา.

หมายเหตุ: หากต้องการแสดงชื่อไฟล์จากโฟลเดอร์ย่อยโปรดตรวจสอบ รวมไฟล์ในไดเรกทอรีย่อยคุณยังสามารถตรวจสอบไฟล์ รวมไฟล์และโฟลเดอร์ที่ซ่อนอยู่ ตามที่คุณต้องการ หากคุณตรวจสอบ สร้างไฮเปอร์ลิงก์ มันจะสร้างไฮเปอร์ลิงค์สำหรับแต่ละชื่อไฟล์และโฟลเดอร์

ดาวน์โหลดและทดลองใช้ฟรีทันที!

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

ไฟล์รายการ doc ในโฟลเดอร์ย่อยของโฟลเดอร์ 8

คลิกเพื่อทราบรายละเอียดเพิ่มเติมเกี่ยวกับยูทิลิตี้ชื่อไฟล์นี้

ดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (20)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณบทความดีๆ :D
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ที่รัก ขอบคุณสำหรับยูทิลิตี้ที่ยอดเยี่ยมนี้.....!!! อนิลกุมาร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
วิธีทำให้แบบสอบถามนี้ทำงานเพื่อรับชื่อไฟล์จากเซลล์ B2 แทนที่จะเป็น A2
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี คุณ Satish
รหัสต่อไปนี้สามารถช่วยให้คุณใส่ชื่อไฟล์ไปยังเซลล์ที่คุณเลือกได้ โปรดลองใช้:

รายการย่อยหลัก()
เกี่ยวกับข้อผิดพลาดต่อไป
Set xRg = Application.InputBox("โปรดเลือกเซลล์ที่จะใส่ชื่อไฟล์:", "KuTools For Excel", Selection.Address, , , , , 8)
ถ้า xRg ไม่มีอะไร ให้ออกจาก Sub
ตั้งค่า xRg = xRg(1)
ตั้งค่าโฟลเดอร์ = Application.FileDialog(msoFileDialogFolderPicker)
ถ้า Folder.Show <> -1 แล้วออกจาก Sub
xDir = โฟลเดอร์ SelectedItems(1)
โทร ListFilesInFolder(xRg, xDir, True)
ย่อยสิ้นสุด
รายการย่อยFilesInFolder (ByVal xRg เป็นช่วง, ByVal xFolderName เป็นสตริง, ByVal xIsSubfolders เป็นบูลีน)
Dim xFileSystemObject เป็นวัตถุ
Dim xFolder เป็นวัตถุ
Dim xSubFolder เป็นวัตถุ
Dim xFile เป็นวัตถุ
ดัชนีแถวสลัวตราบนานเท่านาน
ตั้งค่า xFileSystemObject = CreateObject("Scripting.FileSystemObject")
ตั้งค่า xFolder = xFileSystemObject.GetFolder(xFolderName)
ดัชนีแถว = 1
สำหรับแต่ละ xFile ใน xFolder.Files
xRg.Formula = xFile.Name
ตั้งค่า xRg = xRg.Offset(rowIndex)
ดัชนีแถว = 1
ถัดไป xFile
ถ้า xIsSubfolders แล้ว
สำหรับแต่ละ xSubFolder ใน xFolder.SubFolders
ListFilesInFolder xRg, xSubFolder.Path, จริง
xSubFolder ถัดไป
End If
ตั้งค่า xFile = Nothing
ตั้งค่า xFolder = Nothing
ตั้งค่า xFileSystemObject = Nothing
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยอดเยี่ยม!!! รักมัน ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่แน่ใจ..แต่จะถือว่าโฟลเดอร์ยาวไหม ฉันเขียนโค้ดที่คล้ายกันและล้มเหลวเมื่อพาธของโฟลเดอร์/ไฟล์เกิน 256 อักขระ ? ขอความคิด ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมากสำหรับบทความที่มีประโยชน์!
ฉันจะอัปเดตรายการและระบุการเปลี่ยนแปลงโดยอัตโนมัติได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สิ่งนี้ช่วยให้ฉันแปลงรหัสของฉันเพื่อรับการเรียกซ้ำ แต่ฉันสงสัยเกี่ยวกับวิธีการใช้วัตถุของคุณ ฉันชอบที่จะกำหนดออบเจกต์ของฉันตามที่มันเป็น ไม่ว่าจะเป็นเวิร์กบุ๊ก เวิร์กชีต หรือออบเจกต์ระบบไฟล์ (เช่น wbDest หรี่แสงเป็น excel.workbook, หรี่ wsDest เป็น excel.worksheet เป็นต้น วิธีนี้ทำให้ฉันไม่ต้องกังวลว่าแผ่นงานที่ใช้งานอยู่คืออะไร

ฉันยังสงสัยเกี่ยวกับการใช้ .show - if.show <>-1 และอดไม่ได้ที่จะรู้สึกว่าผู้คนจะเข้าใจได้ง่ายขึ้นหากคุณใช้ if.show = false แทน

และในแง่ของการเขียนถึงจุดหมายปลายทาง รู้สึกว่าการใช้เซลล์และสูตรนั้นดูจะยาวไกล

ดังนั้นในรหัสของฉันฉันมีตัวอย่างเช่น
wsDest.Range("B" & CurRow) = fil.name
(CurRow = แถวปัจจุบัน)

ฉันไม่ได้วิพากษ์วิจารณ์แค่สงสัยว่าคุณทำแบบนี้ด้วยเหตุผลอื่นนอกเหนือจากความชอบส่วนตัวหรือไม่ - เต็มใจที่จะเรียนรู้เสมอ


แต่นอกเหนือจากนั้นขอบคุณสำหรับความช่วยเหลือ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับรหัสนี้ที่ช่วยฉันในการของาน ​​ตอนนี้ฉันสามารถนำเข้าผลลัพธ์เหล่านี้ไปยัง Access เพื่อการแปลงเพิ่มเติมได้ ขอขอบคุณมัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่ได้ใช้ย่อย "GetFileOwner()" ในโค้ดด้านบน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณจั๊มพ์
โค้ดด้านบนทำงานได้ดีใน Excel ของฉัน คุณใช้ Excel เวอร์ชันใด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สุดยอดความสง่างาม este codigo!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
จุดประสงค์ของพารามิเตอร์ ByVal xIsSubfolders As Boolean คืออะไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
VBA ของฉันกำลังบอกว่าไม่ได้กำหนดโฟลเดอร์ตัวแปร ใครรู้บ้างว่าทำไมถึงเป็นแบบนี้?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใหม่จริงๆสำหรับ VBA ฉันจะใช้โค้ดด้านบนนี้ได้อย่างไร แต่มีพาธของไฟล์อยู่ในนั้นด้วย ดังนั้นฉันจึงไม่ต้องค้นหามันทุกครั้ง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่ ถ้าฉันต้องแยกส่วนขยายออกจากรายการทั้งหมด ฉันควรเปลี่ยนแปลงที่ใด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันทำงานบน MAC ด้วยหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้แก้ไขรหัสของคุณเพื่อให้มันรีไซเคิลและเรียกใช้กล่องโต้ตอบของโฟลเดอร์ใหม่อย่างต่อเนื่องจนกว่าคุณจะกดยกเลิก มันสร้างข้อผิดพลาดบางอย่างขึ้น หากโฟลเดอร์ย่อยเกี่ยวข้องกับโฟลเดอร์ที่เลือก โฟลเดอร์ถัดไปที่เลือกจะไม่อยู่ในลำดับตัวเลข1. หากโฟลเดอร์ย่อยเกี่ยวข้องกับโฟลเดอร์ที่เลือก ปุ่มยกเลิกจะต้องทำซ้ำและทำซ้ำ ขึ้นอยู่กับจำนวนโฟลเดอร์ที่คุณเพิ่ม
รหัส:
รายการย่อยหลัก()
'Updateby Extendoffice
ตั้งค่าโฟลเดอร์ = Application.FileDialog(msoFileDialogFolderPicker)
ถ้า folder.Show <> -1 แล้วออกจาก Sub
xDir = โฟลเดอร์ SelectedItems(1)
โทร ListFilesInFolder(xDir, True)
End SubSub ListFilesInFolder (ByVal xFolderName เป็นสตริง, ByVal xIsSubfolders เป็นบูลีน)
Dim xFileSystemObject เป็นวัตถุ
Dim xFolder เป็นวัตถุ
Dim xSubFolder เป็นวัตถุ
Dim xFile เป็นวัตถุ
ดัชนีแถวสลัวตราบนานเท่านาน
ตั้งค่า xFileSystemObject = CreateObject("Scripting.FileSystemObject")
ตั้งค่า xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536")).End(xlUp).Row + 1
สำหรับแต่ละ xFile ใน xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = แถวดัชนี + 1
ถัดไป xFile
ถ้า xIsSubfolders แล้ว
สำหรับแต่ละ xSubFolder ใน xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, จริง
xSubFolder ถัดไป
End If
ตั้งค่า xFile = Nothing
ตั้งค่า xFolder = Nothing
ตั้งค่า xFileSystemObject = Nothing
ย่อยสิ้นสุด

ความคิดใด ๆ ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขออภัย... ฉันให้รหัสผิดกับคุณ (ด้านล่าง) นี่คือรหัสที่ฉันแก้ไข..
รหัส:
รายการย่อยหลัก()
เกี่ยวกับข้อผิดพลาดต่อไป
Dim xFileSystemObject เป็นวัตถุ
Dim xFolder เป็นวัตถุ
Dim xSubFolder เป็นวัตถุ
Dim xFile เป็นวัตถุ
ดัชนีแถวสลัวตราบนานเท่านาน
คำตอบติ่มซำ เป็น Variant
ตอบ = เท็จ
ด้วย Application.FileDialog(msoFileDialogFolderPicker)
.Title = "เลือกโฟลเดอร์"
.AllowMultiSelect = เท็จ
ตั้งค่าโฟลเดอร์ = Application.FileDialog(msoFileDialogFolderPicker)
ถ้า folder.Show = -1 แล้ว
xDir = โฟลเดอร์ SelectedItems(1)
อื่น
ออกจาก Sub
End If
จบด้วย

โทร ListFilesInFolder(xDir, True)
ย่อยสิ้นสุด

รายการย่อยFilesInFolder (ByVal xFolderName เป็นสตริง, ByVal xIsSubfolders เป็นบูลีน)
ตั้งค่า xFileSystemObject = CreateObject("Scripting.FileSystemObject")
ตั้งค่า xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536")).End(xlUp).Row + 1

' เพิ่มช่องว่างแล้วตามด้วยชื่อโฟลเดอร์ในแผ่นงาน
rowIndex = แถวดัชนี + 1
ด้วย Application.ActiveSheet.Cells(rowIndex, 1)
.Value = xFolder.Name
.Font.Size = 12
.Font.FontStyle = "ตัวเอียงหนา"
จบด้วย
rowIndex = แถวดัชนี + 1

สำหรับแต่ละ xFile ใน xFolder.Files
Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Name
rowIndex = แถวดัชนี + 1
ถัดไป xFile
ถ้า xIsSubfolders แล้ว
สำหรับแต่ละ xSubFolder ใน xFolder.SubFolders
ListFilesInFolder xSubFolder.Path, จริง
xSubFolder ถัดไป
rowIndex = แถวดัชนี + 1
End If

ตั้งค่า xFile = Nothing
ตั้งค่า xFolder = Nothing
ตั้งค่า xFileSystemObject = Nothing

โทรรายการหลัก
ย่อยสิ้นสุด


ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
งานดีตรงที่ฉันพยายามสร้าง แต่นี่ดีกว่า 1000%
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL