заявление о том, чтобы предотвратить открытие определенных файлов?

Question

У меня есть Dir файлов; большинство из них уникальны, но некоторые являются вариациями других, например Hires Month 1, Hires Month 2 et c .... Я хочу пропустить их при открытии файлов, поэтому я сделал оператор Case с оператором like, но это не похоже на работу.

    Dim BasePath As String: BasePath = "\\All Data\" & strFolderName & "\"
Dim filename As String: filename = Dir(BasePath & "\*.xlsx")
Dim wb As Workbook
    i = 0
    Do While filename <> ""
        Select Case True
            Case filename Like "Store*"
            Case filename Like "Hires Month*"
            Case filename Like "Current - Store*"
            Case filename Like "Terms Month*"
            Case Else
            Set wb = Workbooks.Open(BasePath & "\" & filename)
            i = i + 1
                With wb.Worksheets("Sheet1")
                    .UsedRange.Copy Destination:=wbTemplate.Worksheets(varWsName(i)).Cells(1, 1)
                End With
            wb.Close
            filename = Dir
        End Select
    Loop

Что может стать причиной того, что лог c не будет применяться при предположительно срабатывании?

Answer 1

Переверни, таким образом

Select Case True
       Case filename Like "Store*", filename Like "Hires Month*", filename Like "Current - Store*", filename Like "Terms Month*"