Excel VBA - 阅读和阅读输出故障排除

Question

我编写了这个简单的代码，将文件从“ALL”文件夹移动到“MPD41”，列表为excel电子表格。代码将读取列表，获取匹配的文件并将这些文件移动到另一个文件夹。我认为逻辑上应该可以工作，但它不会读取文件＆amp;不起作用。你能看一下这段代码并指出我做错了什么吗？谢谢！

Option Explicit
Sub Move_Files()

    Dim FSO As Object
    Dim sFromDir As String
    Dim sToDir As String
    Dim sFile As String
    Dim rSearch As Range
    Dim rFound As Range

    sFromDir = "C:\Users\Desktop\ALL"
    sToDir = "C:\Users\Desktop\MPD41"
    Set FSO = CreateObject("scripting.filesystemobject")
    Workbooks.Open "C:\Users\Desktop\Book1.xlsx"

    Set rSearch = Range("A2:A" & Range("A1048576").End(xlUp).Row)
    sFile = Dir(sFromDir & "*.xml")

    While sFile > ""
        Set rFound = rSearch.Find(What:=Left(sFile, Len(sFile) - 4), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        If Not rFound Is Nothing Then FSO.CopyFile Source:=sFromDir & sFile, Destination:=sToDir & sFile
        sFile = Dir
    Wend

End Sub