给你一段把文件名写入单元格的代码,至于列表框,你自己琢磨,我反正不喜欢用它:
Dim myFolder As Object
Dim mySubFile As Object
Set myFolder = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
hs = 1
For Each mySubFile In myFolder.Files
Cells(hs, 1) = mySubFile.Name
hs = hs + 1
Next