vba调用powershell复制文件，有时不能成功。求高手帮忙

jacksgq

工作中，需要将excel中的链接文件重命名，然后复制到粘贴板，然后通过微信发给同事。使用的语句如下：



Command_Shell = Shell("powershell copy-item D:\Job\new\pdf\425071552.pdf -destination D:\Job\new\temp\2023-03-16_付标书费500元.pdf", vbNormalFocus)
Command_Shell = Shell("powershell set-clipboard -path D:\Job\new\temp\2023-03-16_付标书费500元.pdf"，vbnormalfocus)


有时能成功执行，能粘贴到微信中，有时不能。
请高手指点指点。谢谢！