Excel VBA CopyFile运行时错误53（找到文件注释）

我目前有一个vba脚本错误，试图修复它，但仍然给出一个错误，如标题中所列

脚本的目的是根据工作表中的输入表单复制文件名，然后将其复制到目标，并在名称中保存当前日期

    Set FSO = CreateObject("scripting.filesystemobject")
    FILE = Sheet1.Range("G3").Value
    FILE2 = Sheet1.Range("G4").Value
    SourceFile = Source & "\" & FILE & ".xls"
    DestFile = DestPath & "\" & FILE & " " & ShortDate & ".csv"
    SourceFile2 = Source & "\" & FILE2 & ".xls"
    DestFile2 = DestPath & "\" & FILE2 & " " & ShortDate & ".csv"

    'Setsup Flag File
    Dim oFile As Object
    Set oFile = FSO.CreateTextFile(DestPath & "\OIS.FLAG")
    oFile.WriteLine Format(Sheets("Sheet1").Range("C7").Value, "yyyy/mm/dd")
    oFile.Close
    FSO.CopyFile SourceFile, DestFile
    FSO.CopyFile SourceFile2, DestFile2

Source刚刚设置为“C:\Users\Data” DestPath只是“C:\Users\updates”

当我运行脚本时，第一个副本起作用，因此会复制SourceFile，但第二个副本SourceFile2会出现运行时错误，但我已检查多次，并且SourceFile2存在

有什么提示吗，或者我遗漏了什么？还检查了其他类似的线程，这不是因为字符串太长吗

---

如果我输入SourceFile2的全名，即“C:\Users\Data\file2.xls”，那么它可以工作，但我已经检查了无数次语法，似乎还可以，也许一双新眼睛会有所帮助，任何建议都将不胜感激：）

您是否完成了

debug.print source

和

file2

？

C:\Users\\Data

必须是

C:\Users\Data

（删除\）@PaulOgilvie，这意味着

sourcefile

也将打破它没有的部分。我认为Paul是正确的，您可能需要在我的想法之后删除反斜杠。由于copyfile SourceFile可以工作，但copyfile SourceFile2不能工作，这是FILE2中引入的一个问题。我会检查文件是否存在（通过一些检查提出问题）。我还将检查是否有任何文件处于打开状态（源文件或目标文件），以及目标文件是否具有任何类型的写保护。是否已完成

debug.print source

和

file2

？

C:\Users\\Data

必须是

C:\Users\Data

（删除\）@Paulogilvi这意味着

sourcefile

也会破坏它没有破坏的文件。我认为Paul是正确的，您可能需要在我的想法之后删除一个反斜杠。由于copyfile SourceFile可以工作，但copyfile SourceFile2不能工作，这是FILE2中引入的一个问题。我会检查文件是否存在（通过一些检查提出问题）。我还将检查是否有任何文件是开放的（源文件或目标文件），以及目标文件上是否有任何类型的写保护。