怎么把EXCEL里面一列的数据转换成一个个文件夹的名字（如图），反之怎么把一堆文件夹名字转换在表格里

Question

有什么快捷方法吗？请详细点

Answer 1

这个是有简单方法的，只是好像技术难度有点大。

一、表变文件夹的方法：

在表里面增加一列，使用公式，转换为建立文件夹的命令，如下图：

文本公式是：

="MD """&A1&""""

这样D列就是建立文件夹的命令，在命令提示符窗口下，粘贴B列结果，就能产生这些文件夹，命令提示符窗口的样子是这样的：

执行完毕后，文件夹就有了，见下图：

二、文件夹清单获取方法：

输入命令：

DIR /AD/B > 1.TXT

如下图：

这样1.TXT文件里面就有所有的文件夹，如下图：

粘贴到EXCEL里面即可。

Answer 2

第一个问题，把EXCEL数据转换成文件夹：
在数据前面加上'MD '(MD加空格)，即在另一列输入=“MD ”&A1，下拉得到结果，将结果列另存为AA.BAT文件，格是如下:
MD 黑龙江中医学大学
MD 黑龙江职业学院
…………
开始--所有程序--附件--命令提示符。在c:>下输入cd\你要建立文件夹的目录名
输入AA.BAT

第二问题，把文件夹名转换成excel数据：
开始--所有程序--附件--命令提示符。在c:>下输入cd\你的所有文件夹所在目录名
输入DIR>AA.TXT
退出命令提示符状态，EXCEL打开AA.TXT进行编辑。

Answer 3

Sub text()
Dim i, j, k

For i = 1 To Sheet6.Range("a65536").End(3).Row

MkDir ("d:/" & Sheet6.Range("a" & i))
Next

End Sub

Sub 提取文件夹名称()
Dim fs As Object, f As Object, fd As Object, n
n = 1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("d:\")
For Each fd In f.subfolders
Sheet6.Cells(n, 1) = fd.Name
n = n + 1
Next
Set f = Nothing
Set fs = Nothing
End Sub