问如何仅通过比较文件名来打开特定的excel文件？

EN

Sub ProcessFilesBasedOnFnamePriority()
    Dim filenames, fname As Variant
    Dim maxRowNum, nRowNum, i As Long
    Dim strFilePrefix, strCellPrio As String

    maxRowNum = 1
    filenames = listfiles("c:\temp\lots_of_files")

    ' make an assumption that all filenames begin with the same
    ' single-char prefix character.
    strFilePrefix = Left(filenames(1), 1)

    For Each fname In filenames
        Dim dotpos, suffixLen As Integer
        Dim strCellAddr, strFnamePrio

        dotpos = InStr(1, fname, ".")
        suffixLen = Len(Mid(fname, dotpos))
        ' assume priority is specified by a single char in fname
        strFnamePrio = LCase(Mid(fname, dotpos - 1, 1))
        strCellAddr = Left(fname, Len(fname) - (suffixLen + 1)) ' "+1" to account for priority char
        strCellPrio = Range(strCellAddr)
        If (Trim(strCellPrio) = "") Then
            Range(strCellAddr) = strFnamePrio  ' store first prio occurrence
        Else
            ' assume filename prio characters (e.g., [a-z]) sort lexicographically
            If strFnamePrio > strCellPrio Then
                Range(strCellAddr) = strFnamePrio
            End If
        End If
        nRowNum = CLng(Mid(strCellAddr, 2))
        If nRowNum > maxRowNum Then
            maxRowNum = nRowNum
        End If
    Next

    For i = 1 To maxRowNum
        strCellPrio = Trim(Range(strFilePrefix & CStr(i)))
        If strCellPrio <> "" Then
            fname = strFilePrefix & CStr(i) & strCellPrio & ".xlsx"
            Debug.Print fname    ' <-- do analysis on fname
        End If
    Next i
End Sub

myArray = [ 1c, 2b]

ForEach partialName in myArray 
  ForEach file in myDirectory
    If InStr(fileName, partialName) Then
      // Do something interesting
    End If
  Next file
Next partialName