excel - 输入框中的浏览按钮查找文件 Excel2007 Vba

Question

我需要输入框中的浏览按钮来查找文件 - VB A - EXCEL 宏][1]

需要通过浏览按钮而不是在输入框中输入来查找文件夹路径是否可能？

|-------------------|

|-------------------| 通过单击应要求文件浏览的单元格进行浏览。不应手动编辑。我的意思是，我想锁定特定的单元格。并且只能通过宏进行编辑。

Answer 1

交替：

Sub tgr()

    Dim strFilePath As String

    strFilePath = Application.GetOpenFilename
    If strFilePath = "False" Then Exit Sub  'Pressed cancel

    MsgBox strFilePath

End Sub

Answer 2

您可以使用它来查找文件。如果需要，请修改过滤器。该变量fldr将包含您的数据。然后您可以将您的文本框设置为该值。

Sub File_Picker()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Clear
        .Filters.Add "Text", "*.txt", 1
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count = 0 Then GoTo 1
        fldr = .SelectedItems(1)
    End With
End Sub

或者：

Sub Folder_Picker()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = ActiveWorkbook.Path & "\"
        .Show
        If .SelectedItems.Count = 0 Then GoTo 1
        fldr = .SelectedItems(1)
    End With
End Sub

我在My GitHub 上有更多类似的有用代码