我正在尝试从 Excel(VBA)打开一个文件对话框,其中已经选择了特定文件 - 类似于当您右键单击“显示文件夹中的文件”打开 html 下载文件时。
我需要这个的原因是为了让用户可以右键单击并将文件从对话框拖到电子邮件中作为附件,或者打开或复制它以粘贴到另一个文件夹中。
我尝试过滤文件名,但不起作用。显然我们只能过滤扩展名。
Dim fDialog As FileDialog
Set fDialog = Application.FileDialog(msoFileDialogOpen)
fDialog.Title = "Here is Your File"
fDialog.InitialFileName = "C:\Folder With Files\"
fDialog.Filters.Add "Custom PDF Files", "20200730_Xy.pdf", 1 ' Throws error here
fDialog.show