如何创建更自动更新的文件夹目录vba代码

打开EXCEL,新建空白工作薄。ALT+F11或者依次点击视图→宏→查看宏→输入宏名ml→创建

请点击输入图片描述

请点击输入图片描述

粘贴以下代码到右侧代码窗口

Sub ml()

On Error Resume Next

zzml = "请选择要制作目录的文件夹"

Set mlzz = CreateObject("shell.Application").BrowseForFolder(0, zzml, &H1)

lj = mlzz.Self.Path

Cells(1, 1) = "序号"

Cells(1, 2) = "文件名称"

Cells(1, 3) = "文件类型"

Dim wj As String

wj = Dir(lj &"*.*")

Do

Cells(([A65536].End(xlUp).Row + 1), 1) = [A65536].End(xlUp).Row

Cells(([C65536].End(xlUp).Row + 1), 3).FormulaR1C1 = "=MID(RC[-1],FIND(""."",RC[-1])+1,LEN(RC[-1]) - FIND(""."",RC[-1]))"

Cells(([B65536].End(xlUp).Row + 1), 2).SelectActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wj, TextToDisplay:=wj

wj = Dir

Loop Until Len(wj) = 0

Columns("A:C").Select

Columns("A:C").EntireColumn.AutoFit

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

Cells(1, 1).Select

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=lj &"" &mlzz.Self.Name &"目录.xls"

ActiveWindow.Close

Application.DisplayAlerts = True

Workbooks.Add

End Sub

请点击输入图片描述

关闭宏窗口，回到工作薄。ALT+F8或者依次点击视图→宏→查看宏→ml→执行

请点击输入图片描述

选择所需要制作目录的文件夹

请点击输入图片描述

请点击输入图片描述

在所选文件夹下就会生成一个目录

请点击输入图片描述

请点击输入图片描述

1、打开事先准备好的Excel文件

2、工具栏/开发工具/Visual Basic，打开Microsoft Visual Basic,也可使用快捷键Alt+F11，

3、然后，选择VBAProject/Microsoft Excel 对象/sheet1（sheet1），在右边窗口输入以下程序：

Sub 根据工作表创建目录()

Dim i As Integer, Biao As Worksheet

i = 2

For Each Biao In Worksheets

Cells(i, "A") = Biao.Name

i = i + 1

Next Biao

End Sub

程序已经编制完成！

4、最后，工具栏/开发工具/宏（快捷键Alt+F8），查看宏，选择已编制好的宏“根据工作表创建目录”，执行，就会根据工作表创建对应目录。也可直接在Microsoft Visual Basic中执行，工具栏/运行/运行子过程/用户窗体，或者直接点击菜单栏中类似于三角形的按键。

虽然可以通过宏来实现，但是因为安全性的限制，在你电脑上可以执行，到别人电脑上就玩不转了

excel不适用于这种处理场景

你可以用tree命令来生成目录并导出到文件中

例如：tree

>

list.text

---