Не работает трафаретный символ

[balanenko]

Уважаемые форумчане!
Подскажите, пожалуйста, почему в макросе не работает звездочка (*)
Пишу код:

Sub откр()
Workbooks.Open Filename:="D:\магазины\154_16.04.10 \15420100415_KRO.xls"
End Sub

Файл отрывается без проблем, а если вставляю "*" вместо "15420100415" уже не работает:

Sub откр()
Workbooks.Open Filename:="D:\магазины\154_16.04.10 \*_KRO.xls"
End Sub

Может существует какой-то иной способ замены символов в VBA?

[EducatedFool]

Подскажите, пожалуйста, почему в макросе не работает звездочка (*)

Встречный вопрос - а почему она должна работать?

Метод Workbooks.Open принимает в качестве параметра имя файла.


вот это - "D:\магазины\154_16.04.10 \15420100415_KRO.xls" - является именем файла
а это - "D:\магазины\154_16.04.10 \*_KRO.xls" - не имя файла, а маска для поиска файлов.
Чувстуете разницу?

Может существует какой-то иной способ замены символов в VBA?

Существует.
Что именно надо сделать?
Открыть файл, подходящий под маску "D:\магазины\154_16.04.10 \*_KRO.xls"?
А что делать в том случае, если подходящих файлов 2 или больше? Который из них открывать?

Можно попробовать так:

Sub откр()
    Папка = "D:\магазины\154_16.04.10\"
    ИмяФайла = Dir(Папка & "*_KRO.xls")
    If ИмяФайла = "" Then Exit Sub    ' выход, если нет подходящего файла
    Workbooks.Open Папка & ИмяФайла
End Sub

[Alex_ST]

В справке вроде бы написано, что при обнаружении в заданной директории (папке) нескольких файлов, соответствующих маске (трафарету), Dir возвращает имя первого подходящего (Dir returns the first file name that matches pathname).
Но при этом далее указано, что Dir возвращает имена не по порядку (Tip Because file names are retrieved in no particular order, you may want to store returned file names in an array, and then sort the array).
Так какое же имя будет возвращено? Первое, указанное в FAT?

[SAS888]

Так какое же имя будет возвращено?

А что Вы понимаете под "порядком" файлов в папке. Файлы в папке могут располагаться по разному, в зависимости от того, что выбрал пользователь в качестве "упорядочения". Это только отображение. Файлы в папке никто не перемещает. Организуйте цикл с перебором всех файлов в указанной папке по маске и добавьте еще одно сравнение получаемого файла с тем, что Вам нужно.
Интересно узнать, а зачем Вам это нужно? Это имеет смысл, когда требуется выбрать несколько файлов. Если же нужно выбрать конкретный (известный) файл, то использование маски ни к чему. А если имя файла полностью не известно, и файлов, удовлетворяющих маске несколько, то с чем сравнивать?