请教大家.当有相同文件时直接覆盖。怎样改宏

先判断目标文件夹是否 Exists 同名文件，有的话先执行 delete 操作，再 move

大概是这样吧
Option Explicit
Sub test()
Dim OldFolderPath As String, NewFolderPath As Strin
Dim MyFSO As Object
Dim MyFile As Strin
OldFolderPath = "C:\123\"
NewFolderPath = "C:\QQ\"
Set MyFSO = CreateObject("Scripting.FileSystemObject")
MyFile = Dir(OldFolderPath & "*.xls"
Do
If MyFSO.FileExists(NewFolderPath & MyFile) Then
MyFSO.DeleteFile NewFolderPath & MyFile, True
MyFSO.MoveFile OldFolderPath & MyFile, NewFolderPath
Else
MyFSO.MoveFile OldFolderPath & MyFile, NewFolderPath
End If
MyFile = Dir
Loop While MyFile <> ""
End Sub