vba如何获取文件路径填写到单元格？

在vba代码里，如何在一段动作内加入一段代码可以获取到需要用的文件路径，然后把路径，填写到指定的单元格里。 [图片] 如图，有两个选文件的按钮，用这个…

关注者

被浏览

15,544

登录后你可以

不限量看优质回答私信答主深度交流精彩内容一键收藏

查看全部 5 个回答

对于文件的管理，目前市面上也有很多成熟的商业方案可以使用。在此，仅提供一种轻量级的使用EXCEL管理文件的思路。毕竟EXCEL使用起来要更为简单一些。

以下是详细步骤：

一、建立界面表格

1、创建工作表，将自己所需的项目添加进去，如下图。

2、在该工作表中插入一个Active X按钮控件，然后在该控件click事件下写入如下代码：

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim path As String
    Dim ext() As String
    If [A2] = "" Then   '判断一下表内容是否为空，主要目的是防止End(xldown)溢出错误
        i = 2
        i = [A1].End(xlDown).Row + 1
    End If
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
     If .Show Then path = .SelectedItems(1) Else Exit Sub
    End With
    If Right(path, 1) <> "\" Then   '给获取的路径添加尾部的斜杠“\"
        path = path & "\"
    End If
    file = Dir(path)     '获取路径下文件目录名称列表
    Do Until file = ""   '在工作表循环写入文件名
      Cells(i, 1).Value = file
      Cells(i, 2).Hyperlinks.Add Anchor:=Cells(i, 2), Address:=path & file, TextToDisplay:=file
      Cells(i, 3).Hyperlinks.Add Anchor:=Cells(i, 3), Address:=path, TextToDisplay:=path