如何提取文件夹里的文件名到excel里？

yala

请教各位TX，如何才能将文件夹里的文件名提取到excel里？
我问过同事，他们教我用copy 文件名，然后再paste方法粘贴到excel表格里，可文件夹里的文件太多了，是否有办法可以一次搞定？
谢谢了！

李巴

VBA应该可以，这个我也很需要。

laowuwyx

用宏表函数files可以实现，上传个附件吧。

zhangjimfu

DIR函数!

gfs57

原帖由 yala 于 2010-10-13 22:49 发表
请教各位TX，如何才能将文件夹里的文件名提取到excel里？
我问过同事，他们教我用copy 文件名，然后再paste方法粘贴到excel表格里，可文件夹里的文件太多了，是否有办法可以一次搞定？
谢谢了！

文件名列表：
Sub 文件名列表()
MyPath = "X:\某一文件夹\"               '  指定具体的文件夹
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
    If MyName <> "." And MyName <> ".." Then
        If (GetAttr(MyPath & MyName) And vbDirectory) <> vbDirectory Then
        i = i + 1
        Cells(i, 1) = MyName
        End If
    End If
    MyName = Dir
Loop
End Sub

ollomela

在WINDOWS XP的MS DOS程序下运行命令：dir [需要导出的文件所在文件夹地址]/b>[路径]\[文件名].xls
这种命令只会导出总文件夹（即指向文件夹）下文件的名称，但不包括总文件夹下子文件夹里的内容。
示例：dir d:\music/b>d:\music menu.xls
示例说明：将D盘下music文件夹里的所有文件名导入到music menu.xls内

王子花花

如何实现在[3.xls]sheet1！D1输入文件夹中任一excel文件名(1或2.xls)，即可引用1或2.xls中sheet1！A列中的文本?

琳達

有没有详细点的

wycwang257

可以参考一下VBA代码，
'从电脑某个文件中提取该文件下的所有文件名

Sub UseFileDiologOpen()
    Dim Icount As Integer
   
    With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Show
   
    For Icount = 1 To .SelectedItems.Count
    Range("C" & Icount) = .SelectedItems(Icount)
   
        
    Next Icount
    End With
   
   

End Sub

jizewei

学习了，刚好今天用上，提高了效率。