excel - 案例声明以防止打开某些文件？

Question

我有一个文件目录；大多数都是独一无二的，但有些是其他的变体，例如Hires Month 1，Hires Month 2等等。我想在打开文件时跳过这些，所以我用like操作员做了一个 Case 语句，但它似乎不起作用。

    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

什么可能导致逻辑在被触发时不适用？

标签： excelvba

Answer 1

转一圈，这样

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