在 VBA 中选择文件或文件夹的相同对话框

Question

我有一个 Excel 工作簿，应该填充文件或文件夹路径以便以后处理它们。 我想做的是使用相同的对话框来选择所需的路径，例如如果选择了文件，则返回其路径，但如果未选择文件，则返回当前文件夹路径。 是否有可能以相对简单的方式做到这一点？ 或者我是否需要在加载浏览窗口之前提示用户是否需要文件或文件夹？

我可以创建一个文件浏览对话框，如： Application.FileDialog(msoFileDialogFilePicker)

或文件夹浏览对话框： Application.FileDialog(msoFileDialogFolderPicker)

但是我怎样才能将它们两者结合起来呢？ 如果有更好的选择，则不强制使用 Application.FileDialog。 谢谢大家！

Answer 1

我会创建一个只有一个输入框的用户表单，当用户点击它时，调用文件对话框并用输出填充它。 但是，如果用户没有单击它，而只是点击“确定”，那么即使使用您的默认位置，也要处理 if textbox = ""。 这需要用户表单的知识。

Answer 2

我设法为我的程序找到了替代方法，在 vba 编辑器中重用了插入超链接窗口。 它会自动添加超链接，因此无需重新设置。

Application.Dialogs(xlDialogInsertHyperlink).Show

然后获取超链接（如果它出现）并做你想做的任何事情：D

If Range(cell).Hyperlinks.Count > 0 Then
        Link = ActiveCell.Hyperlinks(1).Address
        Activecell.Hyperlinks(1).Delete ' Don't forget to unlink :D
End If

优点：

• 将其用于网址
• 将它用于文件
• 将其用于文件夹