引言

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

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

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

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

excel怎么显示文件路径,excel更换文件路径找不到文件

做这个vba功能的时候，想了好久用不同的方法来实现。

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

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

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

建立效果如下图

excel怎么显示文件路径,excel更换文件路径找不到文件

建立文件目录

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

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

我们看一下手动建立方式吧。

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

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

哦...感觉像翻牌。

就这么个意思吧！

excel怎么显示文件路径,excel更换文件路径找不到文件

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

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

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

excel怎么显示文件路径,excel更换文件路径找不到文件

代码

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

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

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

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

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 With
End Sub

喜欢这篇文章，收藏关注江觅

更多Excel vba办公文档模版

excel更换文件路径找不到文件 (excel表中制作文件目录的方法)

引言

建立文件目录

代码