如何<em>excel</em>自动生成文件夹目录的设置？-excel 文件目录,excel表格

1、打开员工信息表，要将员工姓名这一列排列整齐，可以百设置为居中、左对齐、右对度齐等。

2、在B1输入="md "&A1，然后向下拖拽填充完成。专

3、新建一个属txt文本文档，打开以后将刚才在Excel复制的数据粘贴过来，然后保存。

4、可以看到批量生成对应员工姓名的n个文件夹，是不是很酷。

用VBA需要时间编写，写好附上

可以参考我的经验

怎样批量提取文件夹下文件名

用公式7a64e4b893e5b19e366自定义名称 就可以做，给你写个简单的宏：

  Sub xxx()
i = 0
Set fs = CreateObject("Scripting.FileSystemObject")
spath = ThisWorkbook.Path
sfilename = Dir(spath & "\*")
    Do While sfilename <> "" And sfilename <> ThisWorkbook.Name
     i = i + 1
     Str3 = StrReverse(sfilename)
      h = InStr(1, Str3, ".")
        ActiveSheet.Cells(i, 1).Select
        ActiveSheet.Hyperlinks.add anchor:=Selection, Address:=spath & "\" & sfilename, _
TextToDisplay:=Left(sfilename, Len(sfilename) - h)
        Set f = fs.GetFile(spath & "\" & sfilename) '返回指定路径文件所对应的 File 对象
        ActiveSheet.Cells(i, 2) = f.DateCreated
        sfilename = Dir()
     Loop
     ActiveSheet.Columns("A:B").AutoFit
End Sub

有两种方法：
1、用宏函数取出各工来作表的名称，方法：

Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)

确定

2、用HYPERLINK函数批量源插入连接，方法：

在目录工作表（一般为第一个sheet）的A2单元格输zd入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))

将公式向下填充，直到没有数据为止，目录就生成了 。