Есть ли условный фактор для проверки имен файлов с буквами только затем выполнить код?

Question

Я работаю над кодом, который будет делать следующее: 1. Создайте папку на основе имени файла Excel в той же корневой папке 2. Переместите файл Excel во вновь созданную папку с тем же именем

У меня проблема с настройкой кода, который будет проверять файлы Excel в папке, так как она содержит другие файлы Excel, которые я хочу пропустить. Разница между именами файлов заключается в том, что я хочу исключить имена файлов с датой в начале имени файла.

Вот что у меня есть

Sub Create_Folder()

Dim ParentFolder As String

ParentFolder = ThisWorkbook.Path

myFile = Dir(ParentFolder)

Do While myFile <> "Australia Formatting" 'Or "20*"
    Debug.Print myFile
    Debug.Print Left(myFile, InStr(1, myFile, "_") - 1)
    MkDir (ParentFolder & Left(myFile, InStr(1, myFile, "_") - 1))
    Name ParentFolder & myFile As ParentFolder & Left(myFile, InStr(1, myFile, "_") - 1) & "\" & myFile
    myFile = Dir
Loop
End Sub

Answer 1

Sub Create_Folder()

Dim ParentFolder As String
dim s as string

ParentFolder = ThisWorkbook.Path & "\"

myFile = Dir(ParentFolder & "*.xl??") 'only want to look at excel files

Do While myFile <> "" 'keep looking until all files have been checked
    if myfile ="Australia Formatting" Or isdate(left(myfile,8)) then
          'skip
    else
       s=Left(myFile, InStr(1, myFile, "_") - 1)
       MkDir (ParentFolder & s)
       Name ParentFolder & myFile As ParentFolder & s & "\" & myFile
   end if
    myFile = Dir()
Loop
End Sub

'сделано на моем телефоне, поэтому я не могу проверить это - возможно, опечатки