我正在尝试提示用户打开文件，但标题显示的内容不是“打开”。我知道存在 MsgBox 和一个提示打开的功能（我不熟悉）。我想知道是否存在 MsgBox 和该函数的某种组合，以便我可以插入自己的指令，而不是打开提示上的打开标题。从此函数收集的文件将被收集以供以后使用。
我试图避免为打开提示插入 MsgBox 和另一个函数。如果这是可能的，任何帮助表示赞赏，如果不是，无论如何谢谢你。
【问题讨论】：
MsgBox 和内置文件选择器都不能让您满意，您可以制作自己的用户表单。有关如何使用文件选择器功能的信息，请参阅：msdn.microsoft.com/en-us/vba/excel-vba/articles/…
根据 John 的评论，我相信您正在寻找 FileDialog。
下面的示例将显示一个 FileDialog 并返回所选文件的路径。如果对话框被取消，返回值为vbNullString。
您可以将默认路径作为参数传递给函数以及过滤器的文件扩展名。
Public Function OpenFileDialogToString() As String
On Error GoTo Trap
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "Dialog Title"
.InitialFileName = "Dialog start-up path"
.Filters.Clear
.Filters.Add "Text Documents (*.txt)", "*.txt", 1
.ButtonName = " Open "
.AllowMultiSelect = False
End With
If fd.Show <> 0 Then OpenFileDialogToString = fd.SelectedItems(1)
Leave:
Set fd = Nothing
On Error GoTo 0
Exit Function
Trap:
MsgBox Err.Description, vbCritical
Resume Leave
End Function
称呼它：
Dim path As String
path = OpenFileDialogToString()
If path <> vbNullString Then Debug.Print path
【讨论】：
Workbooks.Open(path)。