excel --vba(批量移动文件）

Sub 移动文件()
    Dim MyPath1 As String, MyPath2 As String, MyName1 As String, MyName2 As String
    MyPath1 = "C:\Users\Administrator\Desktop\建设村地籍表\地籍调查表（使用权）\"  '指定原始文件所在文件夹
    MyPath2 = "C:\Users\Administrator\Desktop\建设村地籍表\1\"    '指定文件新文件夹，需要事先创建该文件夹
    MyName1 = Dir(MyPath1 & "*.xls*")     ' 找寻第一项。
    Do While MyName1 <> ""      ' 开始循环。
        Name MyPath1 & MyName1 As MyPath2 & MyName1   '移动文件
        MyName1 = Dir    ' 查找下一个目录。
    Loop
End Sub