GetOpenFilename

时间:2016-06-10 12:05:12

标签: vba excel-vba excel

我希望在GetOpenFilename中设置默认文件名。我使用的是GetOpenFilename,因为它是使用UNC路径(我需要)的一个示例,而且从我读过的内容来看,ChDir或{{1}无法做到这一点使用ChDrive。是否存在允许预设文件名并使用UNC路径的任何内容?

我已尝试将文件名粘贴到FileDialog的{​​{1}}部分,但这不起作用。从我发现它看起来可能不可能,但我对VBA的有限知识可能也是问题。

我坚持使用UNC,因为数据位于网络上,而不是每个人都将它映射到同一个驱动器,甚至根本不映射它。

1 个答案:

答案 0 :(得分:2)

在Excel中查看Application.Dialogs(),您将找到Excel中使用的一长串预定义对话框,您可以调用它们。 GetOpenFilename是相同的情况,因为它是预定义的,自定义选项是最小的。

要使用通用文件对话框(即不在Excel中自定义),您可以使用Application.FileDialog(msoFileDialogOpen),这将允许进一​​步自定义,包括初始文件名文本。

Public Sub Sample()
Dim Dlg As FileDialog

Set Dlg = Application.FileDialog(msoFileDialogOpen)
    Dlg.InitialFileName = "Sample"
    Dlg.Show
Set Dlg = Nothing

End Sub