У меня действительно есть решение, которое я нашел, но я не смог найти то, чем я был, после быстрого осмотра, поэтому подумал, что поделюсь и, надеюсь, получу некоторые предложения по улучшению или любые дополнительные полезные функции, которые вы можете придумать для этого Сорт, чтобы сделать его более мощным / удобным для пользователя
Я заставил подстановочные знаки работать, просто вставив звездочку в имя файла, которое я искал, например. "ад *" найдет "hello.pdf" и скопирует его в новый каталог: D
Одна проблема, с которой я столкнулся; не похоже, что наши общие сетевые диски работают, гипотетически в bg могут быть какие-то разрешения, чтобы такие скрипты не наносили ущерба.
Sub moveFilesList()
Dim searchRange As Range
Dim cell As Range
Dim fn As String
Dim myDir As String
Dim newFolder As String
Dim continue As Long
Dim LR As Long
MsgBox ("You have initiated the File Moving Macro!")
myDir = InputBox("Enter the filepath for your Source Directory", "Input DIR")
newFolder = InputBox("Enter the filepath for your Destination Directory", "Output DIR")
continue = MsgBox("All cells in Column A will be searched for!" & vbNewLine & "Continue?", vbOKCancel)
If continue = 2 Then Exit Sub
With ActiveSheet
LR = .Cells(.Rows.Count, "A").End(xlUp).Row
Set searchRange = .Range("A1:A" & LR)
End With
For Each cell In searchRange
fn = Dir(myDir & "\" & cell)
If fn <> "" Then FileCopy myDir & "\" & fn, newFolder & "\" & fn
Next cell
End Sub