Макрос - Открытие найденого файла по части имени

[sova1303]

Сообщение от Казанский

Выражайтесь конкретнее, приведите кусок кода - что дальше происходит с переменной файл?
Сама функция Dir не может вызвать сообщение об ошибке открытия файла, т.к. не открывает файл.
И проверьте, не в песочнице ли Вы

г-н Казанский - проверил. Нет.
В любом случае - большое спасибо, заставили думать в верном направлении.

[Fat_Willy]

Сообщение от EducatedFool

Код будет выглядеть так:

Sub test()
    Dim coll As Collection, ПутьКПапке As String
    ПутьКПапке = "D:\Forma_1\"
    ' считываем в колекцию coll нужные имена файлов
    Set coll = FilenamesCollection(ПутьКПапке, "1 форма ?? 10.xls")
    If coll.Count = 0 Then MsgBox "Файл `1 форма` не найден", vbCritical: Exit Sub    ' нет подходящего файла
    If coll.Count > 1 Then MsgBox "Найдено НЕСКОЛЬКО файлов `1 форма`", vbExclamation: Exit Sub   ' Найдено НЕСКОЛЬКО файлов

    Dim wb As Workbook: Set wb = Workbooks.Open(coll(1))    ' открываем найденный файл
    wb.Worksheets(1).[d5] = "текст"    ' пишем текст в ячейку d5
    wb.Close True    ' закрываем файл с сохранением изменений
End Sub

Здравствуйте!
Написал код согласно Вашему примеру, немного изменив его, но при попытке выполнения макрос выдает ошибку Compile error: Sub or Function not defined, указывая на строку с Set coll = FilenamesCollection(folder, "*.xlsx").
Как думаете, в чем проблема?

Sub Journal_Ya()
'
' Journal_Ya Макрос
'
' Сочетание клавиш: Ctrl+j
'
    Dim coll As Collection, folder As String, i As Long
    folder = "C:\Users\DNS-shop\Desktop\АВТОЖУРНАЛ\"
    Set coll = FilenamesCollection(folder, "*.xlsx")
    If coll.Count = 0 Then MsgBox "Файл 'Журнал по сварке №' не найден", vbCritical: Exit Sub
    If coll.Count > 1 Then MsgBox "Найдено НЕСКОЛЬКО файлов 'Журнал по сварке №'", vbExclamation: Exit Sub
    For i = 1 To coll.Count
    Dim wb As Workbook: Set wb = Workbooks.Open(coll(1))
    wb.Worksheets(1).[a1] = "ПРОВЕРКА"
    wb.Close True
    Next i
End Sub

[Hugo121]

Проблема в отсутсвии наличия кода FilenamesCollection() - посмторите там на сайте.

[IgorGO]

лично я считаю, что
Проблема в наличии отсутствия текста функции FilenamesCollection() в Вашем модуле