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