Question

我需要输入框中的浏览按钮才能找到文件 - VB A - EXCEL Macro] [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

提供了更多有用的代码

在输入框中浏览按钮，找到Excel2007 Vba文件

2 个答案: