FileDialog

[yura613]

Добрый день.
Можно ли сделать как-нить чтобы при вызове файл диалога в нем отображались только файлы с экселевским расширением?

Пробовал сделать так:

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


Set myFD = Application.FileDialog(msoFileDialogFilePicker)

with myFD
.Filters.Clear
.Filters.Add "Файлы Excel", "*.xls,1
end with


не работает

[KL]

У меня это работает без проблем:

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

Sub Test1()
    Dim FD As FileDialog

    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        With .Filters
            .Clear
            .Add "Файлы Excel 97-2003 & 2007", "*.xls*"
        End With
        If .Show = False Then Exit Sub Else MsgBox .SelectedItems(1)
    End With
End Sub