Script fuori field Errore nel codice excel vba

Sto ottenendo il seguente codice

"SCRIPT OUT OF GAMES"

Workbooks.Open Filename:="XXX/XXXXX/XXXX/XX.xlsx" det =DateAdd("d",-1,da) dst =Format(det,"dM-YYYY") if(Worksheets(dst).Name <> "") then msgbox("Worksheet Exists!") else msgbox("Worksheet Dosent Exist!") End if 

Il modo in cui eseguirai il foglio di lavoro è sbagliato. Se il foglio non esiste allora non può prendere il nome del foglio di lavoro, quindi avverte "script fuori gamma"

Puoi provare questo

 Dim ws As Worksheet On Error Resume Next Set ws = Worksheets(dst) If Not ws Is Nothing Then MsgBox ("Worksheet Exists!") Else MsgBox ("Worksheet Dosent Exist!") End If Dim ws come foglio di lavoro Dim ws As Worksheet On Error Resume Next Set ws = Worksheets(dst) If Not ws Is Nothing Then MsgBox ("Worksheet Exists!") Else MsgBox ("Worksheet Dosent Exist!") End If Su errore riprendere successivo Dim ws As Worksheet On Error Resume Next Set ws = Worksheets(dst) If Not ws Is Nothing Then MsgBox ("Worksheet Exists!") Else MsgBox ("Worksheet Dosent Exist!") End If Se non è niente allora Dim ws As Worksheet On Error Resume Next Set ws = Worksheets(dst) If Not ws Is Nothing Then MsgBox ("Worksheet Exists!") Else MsgBox ("Worksheet Dosent Exist!") End If