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

yala · 发表于 2010-10-13 22:49

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

李巴 · 发表于 2010-10-13 22:54

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

laowuwyx · 发表于 2010-10-13 22:58

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

zhangjimfu · 发表于 2010-10-13 23:04

DIR函数!

gfs57 · 发表于 2010-10-13 23:14

原帖由 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 · 发表于 2010-10-14 16:47

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

王子花花 · 发表于 2010-10-16 09:16

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

琳達 · 发表于 2010-11-9 16:20

有没有详细点的

wycwang257 · 发表于 2010-11-19 10:57

可以参考一下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 · 发表于 2013-12-19 17:06

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

		自动登录	找回密码
密码			免费注册

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

最新热点 /1