文件夹名导出为excel

① 如何把一个文件夹里的所有文件名全部导到EXCEL表格里面去

今天工作中遇到一个问题，想把一个文件夹下的所有文件名，导入到excel里，如果一个个复制，工程太大了，搜索了一下，还真有类似的技巧可以实现，分享出来给大家用一个简单的DOS命令就可以实现了!命令格式如下:dir
[drive:][path]
/b
>
[drive:][path]filename应用实例1：把D盘test目录下所有文件名导到temp.xls里,只要在cmd窗口里输入dir
D:\test
/b
>
temp.xls
这样就在你的当前目录生成一个temp.xls的EXCEL文件,打开来就看到D盘test目录下的所有文件名了,并且都带有扩展名的。当你需要导到是txt记事本，那就改成temp.txt啰。如何把多个目录下的所有文件名都导入到temp.xls里，把命令稍作改动就可以了。
命令格式如下：
dir
[drive:][path]
/b
>>
[drive:][path]filename应用实例2:把D盘test目录、mp3目录、E盘music目录下的所有文件名存到temp.xls里，只要在cmd窗口里输入
dir
d:\test
/b
>>
temp.xls
dir
d:\mp3
/b
>>
temp.xls
dir
e:\music
/b
>>
temp.xls
这样就在你的当前目录生成一个temp.xls的EXCEL文件,打开来就看到以上三个目录下的所有文件名了,并且都带有扩展名的。

② 怎么把多个文件名称转成表格

1. 如何将多个文件夹名称导入Excel表格中
举例说明：如果需要把”c:\windows“目录下的百文件夹名转到excel表里度

1、点击“开始——》运行”，输入“cmd”回车，出现问控制台界面；

2、在控制台界面输入DOS命令“dir c:\windows > c:\1.txt"回车，”答c:\windows“目录下版的所有文件名都输出到”c:\1.txt"文本文件中去权了；

3、将”c:\1.txt"文本文件内容复制、粘贴到excel表格中去。

2. 如何将word中多个表格转为excel表格
方法/步骤

1

打开有需要转换工作表的word文档，将鼠标光标移到表格中任意一格。

2

点击表格右下角的“口”字形，就选中了整个表格。

3

然后在表格中任意位置右键单击，在快捷菜单中选择“复制”。

4

打开excel文档，然后在单元上颂肆右键单击，在快捷菜单中选择“选择性粘贴”。

5

在“选择性粘贴”对话框中，粘贴方式选择“文本”。

6

然后点击“确定
3. 一个word文件中有多个表格,如何把它们变成一个表格一个文档,而且
把多个word表格文件转换到一个excel文件里：

1、首先在Word文档中选择“文件→另存为”，在文件类型中选择“*”;

2、打开Excel，选择“数据→导入外部数据→导入数据”，在”选择数据源”对话框中选择刚刚保存的HTM文件；

3、单击“打开”。在“新建Web查询”窗口中点击你要导入的表格数据前面的黄色“箭头”标记；

4、最后选择“导入”，并选择“数据的放置位置”即可。
4. excel怎么把多个文件合并成一个
如果表不算太多的话可以试试这种方法，打开总表（要粘贴的表），打开一个要复制的表，右击要复制的工作表标签，选择移动或复制工作表，建立副本，选择要移动到表（要粘贴的那总表）。这种方法对合并到同一个文件中还是可行的。

但你说的汇总到一张表里就不行了，可以试试用“=”建立链接（要用相对地址），但这种方法对表结构相同或类似的才可以，而且文件名和表名称要有规律。这样会很快汇总到一张表中，稿樱败下面的活儿就是整理一下的工作了，要是要数据的话就把链接改成数据才可以，这种方法好在可以动态更新你的数据。

写代码也可以，但若是工作量很大的话可考虑！

新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁 alt + f11，双击工程资源管理器里面的sheet1(sheet1)，在右侧的代码区粘贴如下代码。运行。等候一会就OK了。

Sub 合并键颤当前目录下所有工作簿的全部工作表（）

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName ""

If MyName AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("A1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num &； "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation， "提示"

End Sub

③ 如何批量提取文件名到EXCEL表

打开EXCEL的数据-查询功能-新建查询-从文件-从文件夹

选择文件夹路径，这样，就有一个窗口显示内文件详细信息，然后容点击加载，你需要的文件名等信息就会导入到EXCEL表里了。

比起用BAT文件来说这样更快，效率更高，更便捷，不要记住那么繁琐的bat命令行。

④ 批量提取文件名到excel

任意命名一个文件,重点是将文件的后缀改为bat的脚本文件。鼠标右击选择编辑,在文件中输入命令dir /b > name.csv。双击运行这个文件,你会发现多了一个叫name.csv的文件。打开name.csv这个文件发现这个些文件名就已经导入到Excel里了，详细步骤：

1、打开需要提取文件名的目录。