vba - 基于单元格复制文件夹

Question

是否可以使用EXCEL-VBA将文件夹复制到另一个文件夹？

这里是例子

如果我在 D9 中输入示例中的 v 并在 E3 中填写目标路径，那么它将把 E:\DATABASE2012Data2012 中的文件夹沿着里面的文件复制到目标文件夹 F:\Workdata

所以基本上我需要的是在E3中输入目标路径，只需要在D7或/和/到D9中插入v

可以用VBA来做到这一点吗？

Answer 1

您可以使用命令解释器 XCOPY 命令来执行此老派风格:

' VBA Code to open a command window and run XCOPY
Shell Environ("comspec") & " /k xcopy " & Range("E9").text & " " & Range("F9").text & " /s /e /i"

这样做的作用是打开一个命令窗口，然后执行 XCOPY 命令将范围 E9 中的文件夹复制到 F9 中指定的新目录。

/k - 这将使命令窗口保持打开状态 - 对于测试很有用

/c - 完成后将关闭命令窗口。

有许多开关可以与 XCOPY 一起使用，详细信息请参见 Microsoft - XCOPY Switches

或者，您可以使用 FILECOPY，如 Ron De Bruin: VBA FileCopy 上详细说明。和 Ron De Bruin: VBA FolderCopy

如果您有 Excel 2010-2013，则可以使用新的 CopyFolder method

还有一个选择是使用 FILESYSTEMOBJECT - CopyFolder method (例如:FileSystemObject.CopyFolder“c:\mydocuments\letters*”、“c:\tempfolder\”)

HTH

菲利普