如何在Excel中导入文件夹下的档案名称？ 急!!多谢!!

来源：百度知道 编辑：UC知道 时间：2024/09/23 14:28:20
比如说：我在某个文件夹中有很多个档案，我想把这些档案在Excel中做一个目录，怎麼才能不用一个一个的输档案名，就能达到这个目的？
能不能举例说明一下详细步骤，不胜感激!

四楼的兄弟：这办法用是能用，可是生成的目录里包含了档案大小，还有档案的日期都在里面，做一个目录，这些东西不需要啊，有没有其它的办法？ 多谢了！

开始-》运行-》输入cmd-》输入下面的命令在c盘生成文本文件“目录.txt”:
dir 某个文件夹 >c:\目录.txt

用excel打开这个文件再编辑即可。

======================
不要其他信息，只要文件名的话就加上/b，如下：
dir /b 某个文件夹 >c:\目录.txt

开始-》运行-》输入cmd-》使用dir /b显示这个文件夹中的所有文件，再把输出的信息复制到Excel表格里。

不能

这个可以用代码来自动完成，很快的，100个文件也就1分钟不到吧
Sub 文件目录()
Dim myDialog As FileDialog, oFile As Object, strName As String
Dim FSO As Object, myFolder As Object, myFiles As Object
Set myDialog = Application.FileDialog(msoFileDialogFolderPicker)
With myDialog: N = [A65536].End(xlUp).Row +1
If .Show <> -1 Then Exit Sub
Set FSO = CreateObject("Scripting.FileSystemObject") '这是文件夹选择,点选到你存放文件的那个文件夹
Set myFolder = FSO.GetFolder(.InitialFileName)
Set myFiles = myFolder.Files
For Each oFile In myFiles '下面写入
fn = myFolder & "\" & oFile.Name
Cells(N, 1) = fn
Cells(N, 1).Select '下面是添加超链接，点击就可打开文件
ActiveSheet.Hy