ファイルが見つかりませんでした。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.. 

最初の行はうまく動作しますが、「Old」ファイルを強制終了するときにエラーが発生します。したがって、ファイルが存在するかどうかをテストしようとしました。結果はメッセージ "ブリュウ"でした。したがって、ファイルを開くことはできますが、数行後には見つかりません。誰もがこれを説明し、私を助けることができますか？

完全なコードはここにあります。

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 

これはトリックを行う必要があります...