Question

我目前在使用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

源只是设置为“C：\ Users \ Data” DestPath只是“C：\ Users \ updates”

当我运行脚本时，第一个副本正常工作，因此复制了SourceFile，但是第二个SourceFile2发生了运行时错误，但我已多次检查并且SourceFile2存在......

任何提示，或者我缺少的东西？还检查了其他类似的线程，这不是因为字符串太长了吗？

如果我输入SourceFile2的全名，即“C：\ Users \ Data \ file2.xls”，那么它可以工作，但我已经检查了一百万次的语法，似乎很好，也许一双新的眼睛会帮助，任何建议将受到大力赞赏：）

Excel-VBA CopyFile运行时错误53（找到文件说明）

0 个答案: