Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 如果文件已打开,则授予权限的FileCopy被拒绝。如何复制正在使用的文件?_Vba_Permissions - Fatal编程技术网

Vba 如果文件已打开,则授予权限的FileCopy被拒绝。如何复制正在使用的文件?

Vba 如果文件已打开,则授予权限的FileCopy被拒绝。如何复制正在使用的文件?,vba,permissions,Vba,Permissions,我已经连续四个月每天每两小时运行一次这段代码 今天早上我犯了一个“权限被拒绝”的错误。一旦我让用户关闭文件,VBA就会运行 即使有人在使用文件,也有办法复制它吗 Public Sub SaveCL() Dim SourcePath As String Dim DestinationPath As String SourcePath = "\\CCX.ABC.com\Reporting\CL.xlsx" DestinationPath = "C:\Users\Pu

我已经连续四个月每天每两小时运行一次这段代码

今天早上我犯了一个“权限被拒绝”的错误。一旦我让用户关闭文件,VBA就会运行

即使有人在使用文件,也有办法复制它吗

Public Sub SaveCL()
    Dim SourcePath As String
    Dim DestinationPath As String

    SourcePath = "\\CCX.ABC.com\Reporting\CL.xlsx"
    DestinationPath = "C:\Users\Public\Sources\CL1.xlsx"

    FileCopy SourcePath, DestinationPath

End Sub

我将尝试以下链接中的脚本编写方法-saw注释:“与另一个使用FileCopy的简单解决方案相比,此解决方案似乎具有这样的优势,即在源文件打开时(例如,通过MS Access),即在其为“只读”时,也可以复制源文件。”“谢谢:)

这是否回答了您的问题?