文件未找到VBA

Question

我有一个令人沮丧的时间尝试在VBA中创建备份脚本。尝试在打开文件后终止文件时发生错误“文件未找到”，进行备份并将其保存为新名称。

Application.Workbooks.Open Old 
ActiveWorkbook.SaveAs Archive 
ActiveWorkbook.SaveAs New 

'If Len(Dir$(Old)) > 0 Then Kill Old 
If Len(Dir$(Old)) = 0 Then MsgBox ("bleuh") 
'Here is where I get the message "Bleuh" even though Old was just opened a few lines ago.. 

第一行工作正常，但是当我想杀死文件'旧'时，我得到错误。因此，我试图测试文件是否存在。结果是Msg“Bleuh”。所以文件可以打开，但几行后没有找到。任何人都可以解释这个并帮助我吗？

为了完整，整个代码在这里找到。

Sub UpdateAll() 
Dim Afk As String, J As String, NJ As String, Path As String, strFile As String, Old As String, Archive As String, New As String 
'Dim fso As Object 

Path = "C:\Users\Name\OneDrive - Company\Desktop\Testing backup" & "\" 

Year = Year(Date) 
VJ = Year 
NJ = Year + 1 


Application.ScreenUpdating = False 

'test for Afk (I define Afk for some additional functions that are not relevant for this problem) 
Afk = "ABA" 

'filenames 
Old = Path & ("Planning ") & VJ & Space(1) & Afk 
Archive = Path & ("Planning\Archive ") & VJ & Space(1) & Afk 
New = Path & ("Planning ") & NJ & Space(1) & Afk 

Application.Workbooks.Open Old 
ActiveWorkbook.SaveAs Archive 
ActiveWorkbook.SaveAs New 

If Len(Dir$(Oud)) > 0 Then Kill Old 
If Len(Dir$(Oud)) = 0 Then MsgBox ("bleuh") 
'Here is where I get the message "Bleuh" even though Old was just opened a few lines ago.. 

'Also tried 
'fso.CopyFile Old, Archive 'AND 
'FileCopy Old, Archive 

'in combination with: 

'Name Old As New 
' "SSDD" 

'Next 

Application.ScreenUpdating = True 

End Sub 

Answer 1

分析你的代码后，我意识到你不需要打开你的文件（因为你没有得到任何信息）。你只是想要移动它。所以，请尝试以下操作：它

Name Old as Archive 

这应该做的伎俩......