UC知道Excel VBA复制文件，为何不成功！急急急！
来源：百度知道 编辑：UC知道 时间：2024/06/08 16:29:20
If Dir("c:\windows\system32\1MSCAL.OCX") = "" Then '如果文件不存在
FileCopy ThisWorkbook.Path & "/新系统注册控 件/"& "MSCAL.OCX", "c:\windows\system32\MSCAL.OCX"
end if
程序运行时出错：拒绝的权限。
请大家帮忙看看，我在VB里就是这么写的，就没有问题。
FileCopy ThisWorkbook.Path & "/新系统注册控 件/"& "MSCAL.OCX", "c:\windows\system32\MSCAL.OCX"
end if
程序运行时出错：拒绝的权限。
请大家帮忙看看，我在VB里就是这么写的，就没有问题。
楼主,您好.
1. 您的FileCopy用法没错. 但注意您的源路径中间的斜杠,
ThisWorkbook.Path & "/新系统注册控 件/"& "MSCAL.OCX"
不是"/" 而该是"\"
2. system32是系统目录,检查当前用户有无权限写入该目录.
就该是这两点.