GetOpenFilename

Программирование на Visual Basic for Applications
Stella
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 07.09.2004 (Вт) 6:56

GetOpenFilename

Сообщение Stella » 08.07.2005 (Пт) 6:55

Хочу представить пользователю для выбора файлы по маске
СhDir (dir_out)
fil_nam = Application _
.GetOpenFilename("Сводки (sv*.xls),sv*.xls", , _
"Выберите файл")
If fil_nam = False Then
Exit Sub
End If
Но в окне "выберите файл" в графе "Тип файла" вижу стандартное "Все файлы (*.*)" Т е я могу использовать для выбора с помощью GetOpenFilename только стандартные маски Excel'я "*.*", "*.dbf" и т д Использовать ОреnDialog? Как?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 08.07.2005 (Пт) 7:46

Задай FilterIndex=2
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 85

    TopList