Excel 文件目录怎么制作？这么做 再也不用担心文件找不到了

前言

办公文档越多，查找越方便，于是有一种解决办法，可以提高查找效率。

如果把所有的文件归类整理，也是不错的方法。

那么，如何建立一个Excel、Word文件目录来管理呢？

这里有一个例子，符合一些文件目录管理应用。

做这小工具的时候，想了好久，用不同的方法来实现。

最终完成了这个功能，虽不是十分完善，但用着方便为原则。

本例有两种建目录方式：一种是自动建目录，另一种是选择文件夹建立目录。

两种方法其核心代码都一样，唯一不同的是对文件夹选择方式不同。

建立效果如下图

新建目录

自动建立一键完成，傻瓜式建立，根本鼠标没弹起来，目录已经建立完成。

感觉我在这里解释，显得有些多余。

看下下手动建立方式吧。

单击手动建立目录按钮，会弹出下面这个图片来，其功能是让选择要建立目录的文件。

相对来说有一定的自主性，想要谁就要谁。

哦...感觉像翻牌。

就这么个意思吧！

这里有一张代码图，就是那个自动建目录的按钮代码，好像代码不多。

其实也没几条代码，其工作方式就是打开一个文件选择器，然后选择文件目录和名称到一个数组里，然后对这个数组值进行处理，得到文件名，再把文件名赋给相应的单元格。

这个思路感觉绕了山路十八弯，如果没记错可能有个方法直接得到文件名，但我不记得了，也懒得去找那个函数，或许vba里就没有这个函数，也许在PHP里有那个函数，反正我不记得。

代码

这个代码没注释，感觉注释太浪费编辑时间，当然了，不写注释也不是一个好习惯。

通常还还是会认真地写一下注释的，不然反回头来，自己也是一头雾水。

不过，这个代码虽然有山路十八弯，但逻辑还是十分简单的，为什么要浪费时间来写呢！

这大概就一种十分乐观的想像，也许某一天再看它的时候，我也会迷路，十分有可能。

Private Sub CommandButton3_Click()Dim FileName As Variant FileName = Application.GetOpenFilename(Title:="选择文件夹", MultiSelect:=True) Dim i As Integer Dim xFiles, xFile As String If IsArray(FileName) Then Me.Range("C2:C" & Me.Range("C65535").End(xlUp).Row).Clear For i = 1 To UBound(FileName) xFiles = VBA.Split(FileName(i), "") xFile = xFiles(UBound(xFiles)) Me.Range("C" & i + 1).Value = xFile Me.Hyperlinks.Add Me.Range("C" & i + 1), FileName(i) Next i End If With Me.Range("C1") .Value = "文件名" .Interior.Color = RGB(120, 201, 122) .Borders.LineStyle = 1 .HorizontalAlignment = 3 End WithEnd Sub