GetOpenFilename - конкретный фаил

[Sashka23th]

как в типе фаила впесать конкретный фаил

fileToOpen = Application _
.GetOpenFilename("PRN Files (*.prn), *.prn")

если заминить *.prn на abcd12.prn то у меня
будет написано (all files *.*)
я хочу чтоб у меня была только одна возможнасть выбора фаила abcd12.prn

[bi-lya]

Если конкретный файл, зачем тогда диалоговое окно и возможность выбора?
Я думаю, вам нужна функция GetObject

[Sashka23th]

Если конкретный файл, зачем тогда диалоговое окно и возможность выбора?

имя фаила будет изменятся в зависемосте от переменой
к томуже я незнаю где фаил находится, его нада искать

[Pavel55]

Попробуйте так

Код: Выделить всё

Sub Макрос1()
    Application.Dialogs(xlDialogOpen).Show Arg1:="Book.xls"
End Sub

[Sashka23th]

Попробуйте так

Код: Выделить всё

Sub Макрос1()
    Application.Dialogs(xlDialogOpen).Show Arg1:="Book.xls"
End Sub

а нельзя ни как использывать GetOpenFilename дело в том что у меня уже считывает после текстовый фаил