如何创建更自动更新的文件夹目录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→执行

请点击输入图片描述

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

请点击输入图片描述

请点击输入图片描述

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

请点击输入图片描述

请点击输入图片描述

用dos即可实现，不是很难。

首先新建一个文本文档（注意，要是txt格式）

再打开输入以下内胡埋容 “dir/s/n>目录.txt”

再点选另存为，“文件名”栏改为“目录.bat”这时注意要去掉txt后缀，文件滚友类型改为所有就可以了。双击运行。然后就可以移动到任何文件夹生成了。

文件目录是指：为实现“按名存取裤备蚂”，必须建立文件名与辅存空间中物理地址的对应关系，体现这种对应关系的数据结构称为文件目录。

1、新建一个文本文档（txt格式）

2、打开输入 以下 内容

“dir /s /n >目录.txt”

注意不要 引号 →另存为→“文件名”栏改为“目录.bat”，文件 类型 改为所有→碧亮双击运行→生成新的文档→打开新文档即可看到。

注：可以将生成的毕慧扒这个手昌生成目录的小程序移动到任何文件夹。

---