[已解决]如何把当前工作表所在文件夹下的"123"文件夹复制到e盘?

hcy1185 · 发表于 2012-12-6 16:52

如何把当前工作表所在文件夹下的"123"文件夹复制到e盘?

最佳答案

liuguansky

2012-12-7 09:40

CreateObject("Scripting.FileSystemObject").CopyFolder ThisWorkbook.Path & "\123", "e:\123"

复制代码

hwc2ycy · 发表于 2012-12-6 20:38

帮助里杳下COPY函数，很容易的。

liuguansky · 发表于 2012-12-7 09:40

CreateObject("Scripting.FileSystemObject").CopyFolder ThisWorkbook.Path & "\123", "e:\123"

复制代码

hcy1185 · 发表于 2012-12-7 09:44

liuguansky 发表于 2012-12-7 09:40

删除加载宏下面代码对吗?
Shell "cmd /c rd /s/q C:\Documents and Settings\huangcy\Application Data\Microsoft\AddIns\hcycustomUI.xlam"

		自动登录	找回密码
密码			注册