VBA复制当前路径的所有文件到指定文件夹
Sub XCOPY()
'开始计时
t = Timer
Dim 当前路径 As String, 目标路径 As String
当前路径 = ThisWorkbook.Path & "\*.*" '如果只复制xls则把 "*.*" 改成 "*.xls"
目标路径 = "C:\汇总数据\" '目标路径
'调用shell命令
Shell Environ("comspec") & " /c xcopy " & 当前路径 & " " & 目标路径, vbHide
MsgBox Format(Timer - t, "0.0000")
End Sub