从共享文件夹复制文件失败

kdsea

从共享文件夹复制文件失败，请指导，谢谢！ 详见附件

3190496160

FileCopy是把文件拷贝到一个新的路径下，是不能改变文件名称的，而你的代码中改变文件名称，肯定是要出错的
可以使用，name    as    试试看看

LIUZHU

FileCopy可以改变文件名称

LIUZHU

这里两个斜杠？改成一个试试

kdsea

LIUZHU 发表于 2023-1-10 09:53
这里两个斜杠？改成一个试试

运行时错误，76’:路径未找到

LIUZHU

kdsea 发表于 2023-1-10 10:02
运行时错误，76’:路径未找到

请问，这个共享文件夹是本地的，还是网络的？

kdsea

LIUZHU 发表于 2023-1-10 10:07
请问，这个共享文件夹是本地的，还是网络的？

本地局域网，可以从一台电脑从 桌面上的 “网络” 打开另一台电脑 的共享文件，也可以复制

fzxba

语句看来没问题，应是权限的问题，可能要设置共享文件夹的权限。

aman1516

试试：

1. Sub 复制文件()
   
2.     Dim fso
   
3.     Set fso = CreateObject("Scripting.FileSystemObject")
   
4.     fso.CopyFile "\\LKJ\Users\Public\SQL\2023年出入库.xlsm", "D:"
   
5. End Sub
   

复制代码

文件路径最好在文件夹路径栏中直接复制

kdsea

aman1516 发表于 2023-1-10 15:28
试试：

文件路径最好在文件夹路径栏中直接复制

谢谢，还是不行      
运行时错误，70’:拒绝的权限