Question

如何将文件夹的名字导入到Excel表格中

文件夹的名字为abc，该文件夹中有文件夹1a，2b，3c，4d……多个文件夹，将1a，2b，3c，4d……的文件夹的名字导入到一个Excel表格中。Excel的内容为1a,2b,3c,4d……

Answer 1

1、首先在需要提取文件夹名称的文件夹中新建一个文本文档。

2、双击打开文档并在其中输入一组字符：dir>tp.txt，输入后直接将文档进行保存操作。

3、然后将文本文档的扩展名从原本的“txt”更改为“bat”。

4、双击该bat程序并等待片刻，即可在文件夹中生成一个提取文件夹名称的文本文档，将其中需要的内容选中并复制。

5、打开excel表格，在其中按下CTRL+V将复制的内容粘贴到表格中即可完成提取。

Answer 2

1.点开始菜单，就能看到上面的界面，选择“运行”！点了运行程序后，在里面输入“cmd”点击确定会进入命令提示符串口。

2.打个比方说，文件在C盘里面的111文件夹，要读取里面的文件的文件名字。

3.利用cd命令到达要读取文件名的文件夹，用法是这样的：命令为“cd c:\111”。

4.然后会看到下面的这个情况：

5.然后输入命令“dir /b>d:1.xls”然后回车。

6.到D盘就能看到一个名称为1.xls的文件。

7.打开就是了。

Answer 3

在资源管理器中进入该文件夹，右击，右键菜单中选择“新建”——再选择“Microsoft Excel工作簿”，就会创建一个新的空白Excel工作簿文件，将其重命名一个文件名，如“文件目录.xlsx"，双击打开。
在工作簿中，定义一个名称，如FilesName，引用中输入：
=FILES("文件夹路径\*.*")&T(NOW())
确定，关闭名称管理。其中文件夹路径可以通过在资源管理器中按Shift加鼠标右键，选择”复制为路径“快速准确都得到，再在定义名称时粘贴即可。
在A1中输入公式：
=IFERROR(INDEX(FilesName,ROW(A1)),"")
下拉至出现空白单元格时，就得到该文件夹下所有文件名列表
也可以A1中输入公式：
=IFERROR(HYPERLINK("文件夹路径\"&INDEX(FilesName,ROW(A1)),INDEX(FilesName,ROW(A1))),"")
下拉到出现空白，不仅得到文件名列表，而且还建立了超级链接，点击文件名，会根据文件类型关联的应用程序自动打开文件。可根据需要自己选择哪种方式。
PS：名称定义时，*.*可根据需要把后面的*改为想只列出的某类文件，如只要列出Excel文件，就是*.xls*，或包含某个（某些）特定字符的文件，如“2016年*.*”则列出以“2016年”开头的文件名。
名称的中NOW()起刷新作用，即当文件夹中的文件发生了变化时，能在打开文件目录这个工作簿时自动刷新。
测试和打字花了半个小时，追加悬赏分吧。

Answer 4

可以先用命令把这些文件夹存储到本地，然后再复制到Excel中。假如你的文件夹abc在C盘根目录，命令如下：

dir C:\abc /B /A:D > C:\Temp.txt

这样，abc中所有目录的名字就都保存到C盘下的Temp.txt文件中了，再复制到Excel即可。

附注：

/B 只显示名字

/A:D 只显示文件夹

追问

提示拒绝访问是怎么回事？我用的是Win 7，文件夹的名字我只是举个例子，实际上是有数字和A-Z的任何字母的

追答

直接打开那个文件夹，能打开不？还有，如果文件夹的路径有空格，要用引号：

dir "C:\Program Files" /B /A:D > C:\Temp.txt

前提是保证你有权限访问，如果没有权限，可以百度一下添加权限的方法，或者百度两个命令：

　　takeown

　　icacls

Answer 5

可以利用VBA
例如将C:\123文件夹中的文件名导入到Excel表格中，主要代码部分：
f=dir("C:\123\*.*")
do while f<>""
k=k+1
cells(k,1)=f
f=dir
loop