По умолчанию Filename для GetOpenFilename

Question

Я ищу, чтобы установить имя файла по умолчанию в GetOpenFilename. Я использую GetOpenFilename, потому что это было в примере использования UNC-путей (что мне нужно), и из того, что я читал, вы не можете сделать это с помощью ChDir или ChDrive, используя FileDialog. Существует ли что-либо, что позволит предустановить имя файла и работать с UNC-путями?

Я пробовал приклеить имя файла в FileFilter разделе GetOpenFilename, и это не сработает. Из того, что я нашел, похоже, что это может быть невозможно, но мое ограниченное знание VBA также может быть проблемой.

Я застрял в использовании UNC, потому что данные находятся в сети, и не все сопоставляют его с одним и тем же диском или даже сопоставляют его вообще.

Answer 1

В 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