请教怎么用代码把xll文件复制到C:\windows\system32，由于权限问题一直不成功

tender888 · 发表于 2024-10-7 19:13

本帖最后由 tender888 于 2024-10-7 19:15 编辑

请教怎么用代码把xll文件复制到C:\windows\system32，由于权限问题一直不成功

lss001 · 发表于 2024-10-7 21:39

本帖最后由 lss001 于 2024-10-7 22:29 编辑

见以下楼代码分析

lss001 · 发表于 2024-10-7 21:40

Sub fileCopy()
Set She = CreateObject("Shell.Application")
wxll = ThisWorkbook.Path & "\xxx.xll"
wsys = "C:\Windows\system32\xxx.xll"
'以管理员权限执行cmd复制命令，注意空格
She.ShellExecute "cmd", " /c Copy """ & wxll & """, """ & wsys & """", , "runas", 1
End Sub

PurpleIdea · 发表于 2024-10-8 12:50

学习！！！！！

tender888 · 发表于 2024-10-8 13:27

lss001 发表于 2024-10-7 21:40
Sub fileCopy()
Set She = CreateObject("Shell.Application")
wxll = ThisWorkbook.Path & "\xxx.xll"

非常感谢！

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

[求助] 请教怎么用代码把xll文件复制到C:\windows\system32，由于权限问题一直不成功

评分