用于探索驱动器的开源代码VBA

Question

我有一个vba代码，用户需要在其中提供文件的路径。我知道客户端需要使用许多文件，键入路径效率不高，可能会引入错误。我想知道是否有人知道我在哪里可以找到一个vba代码，它将打开一个窗口（面板或whateever），用户可以在其中指向正确的文件（就像我们在90％的应用程序中打开文件一样） 谢谢你的帮助

Answer 1

你可以;

Dim file As String
With Application.FileDialog(3)
    .InitialFileName = "c:\xxx\"
    .Filters.Add "Text Files", "*.txt", 1
    .Show
    If (.SelectedItems.Count) Then
        file = .SelectedItems(1)
    End If
End With

MsgBox file