Sub Импорт_2017()
    Dim FSO As Object
    Dim SourceFolder As Object
    Dim FileItem As Object
    Dim bDate As Date
    Dim strDay As Variant
    Dim strMonth As Variant
    Dim strYear As Variant

    bDate = VBA.Date
    strYear = DatePart("yyyy", bDate)
    strMonth = Format(DatePart("m", bDate), "00")
    strDay = Format(DatePart("d", bDate), "00")
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = FSO.GetFolder("D:\Документы\Входящие\")

    For Each FileItem In SourceFolder.Files
        If FileItem.Name = strDay & "." & strMonth & "." & strYear & ".xls*" Then
                ' всякая разная обработка
        End If
    Next FileItem
End Sub