Диалоговое окно для выбора файлов Excell , Отображать файлы с несколькими масками по имени но с одним расширением

[Ростислав]

В FileDialog параметр .InitialFileName допускает только одну маску по имению Как сделать список масок?

[Akina]

With Application.FileDialog(msoFileDialogOpen)
    .Filters.Clear
    .Filters.Add "both xls and xlsx", "*.xls,*.xlsx"
    .Filters.Add "xls only", "*.xls"
    .Filters.Add "xlsx only", "*.xlsx"
    .Show
    For i = 1 To .SelectedItems.Count
        MsgBox .SelectedItems(i)
    Next i
End With

Сообщение отредактировано: Akina - 17.04.18, 11:21

[Ростислав]

Например, "G*,P* и т.д

Добавлено 17.04.18, 11:37
В том том то и дело: .InitialFileName = (Mask1 & "*.xlsm") выводится только одна маска по имени, а надо список с разными (конкретными) именами

[Akina]

Я вот не понимаю, чё ты упёрся в это InitialFileName? тем более что тебе надо не ОДИН файл, а аж по списку. И это при том, что везде, куда не плюнь, пишут одно и то же:

Цитата

FileDialog.InitialFileName Property

Set or returns a String representing the path or file name that is initially displayed in a file dialog box.

Видишь? File. А ни хрена не Files.

Надо несколько? увы, только на выходе.

[Ростислав]

А как все-таки вывести список из масок файлов типа Mask1, Mask2 и т.д ?

[Akina]

Я ж даже пример дал...

[Ростислав]

Уважаемый Akina !
Конструкция типа
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "П ", "*.xlsm "
.Filters.Add "М ", "*.xlsm"
.Show
For i = 1 To .SelectedItems.Count
MsgBox .SelectedItems(i)
Next i
End With
Выводит только первый фильтр,а надо чтобы вывелись файлы с начальными буквами "П " и "М " типа
П алка
М ама

[Akina]

.Filters.Clear
.Filters.Add "Всё подряд", "*.xlsm "
.Filters.Add "Только П* и М*", "П*.xlsm,М*.xlsm"

[Ростислав]

Уважаемый Akina ! попробовал:
Private Sub Image1()
With Application.FileDialog(msoFileDialogOpen)
.Filters.Clear
.Filters.Add "все", "*.xlsm "
.Filters.Add "только П* и М *", "П*.xlsm,М*.xlsm"

.Show
For i = 1 To .SelectedItems.Count
MsgBox .SelectedItems(i)
Next i
End With
End Sub
Ругается (ошибка №5) как раз на
.Filters.Add "только П* и М *", "П*.xlsm,М*.xlsm"

[Akina]

Error 5 - это "Access denied" (доступ запрещён). Это ошибка исполнения, с синтаксисом не связанная.

[Ростислав]

Спасибо ! Но мне от этого не легче
как все-таки жить? С одним фильтром - доступ есть, причем ко всем файламю

[Old Bat]

M

Ростислав
Используем тег [code] для добавления текста программы в пост! Устное предупреждение! Читаем правила!

Сообщение отредактировано: Old Bat - 18.04.18, 06:29

[Akina]

Ростислав
Да, проверил... тебе не повезло. Фильтр - это фильтр исключительно по расширению, маски имён ему не нравятся категорически, ему в начале "*." обязательно подавай. А те маски, что удаётся пропихнуть мимо логики (вариантов, кстати, куча нарылась), работают неверно.
Значит, рисуй свою собственную форму.