(Отредактировано) VBA Выбор файлов со специальными буквами и нумерация из идентичных имен с добавленным изменением

Question

Я начинаю работать с макросами, и у меня есть список из более чем 100 файлов для открытия в VBA с такими именами, как: Mark001. xls Mark_001_initial.xls Mark001_improvement.xls Mark002.xls Mark002_initial. Marc002_Improvement.xls Pol001.xls ...

Sub Macro1() 
Dim FilesToOpen 

FilesToOpen = Application.GetOpenFilename _ 
    (FileFilter:="EXLS Files(*.xls), *.xls," & "Mark??? Files (Mark???.xls), Mark???.xls", MultiSelect:=True, Title:="EXLS Files To Open") 

End Sub 

Это открывает окно выбора файлов, однако нет никаких файлов для выбора, он не идентифицирует их

Есть также одинаковые файлы в формате .txt, но мне нужно только открыть те, которые имеют тип Mark001.xls, более крупные имена не имеют значения.

Также мне нужно скопировать их в другую папку. Я пытался использовать приложения OpenFile, SerchFile и selectFile, но не имел успеха.

спасибо!

Answer 1

Для Application.GetOpenFilename подстановочные работают только для расширения файла, как в

FileFilter:="Excel files (*.xl*)," & "*.xl*" 

Это будет возвращать все * .xls и * .xlsx файлы

Другие опции:

Application.FileDialog (msoFileDialogOpen Or msoFileDialogFilePicker) 

.

Sub openWildFile()  'use params to make it generic: "ByVal partialName As String" 

    Const partialName As String = "*Mark_" 
    Const partialExt As String = "*.xl*" 

    Dim selectedFile As String, dlg As Object  'A 3rd option is to use APIs 

    Set dlg = Application.FileDialog(msoFileDialogOpen) 'Or (msoFileDialogFilePicker) 

    With dlg 

     .Title = "Select " & partialName & " File" 

     With .Filters 
      .Clear 
      .Add partialName & " Files", partialExt 
     End With 

     .AllowMultiSelect = True 
     .InitialFileName = partialName & partialExt 

     If (.Show <> 0) Then selectedFile = Trim(.SelectedItems.Item(1)) 

    End With 
End Sub 

.

Чтобы скопировать файлы с помощью этого:

FileCopy SourceFile, DestinationFile ' Copy source file to target