VBA复制当前路径的所有文件到指定文件夹

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