Excel VBA代碼中的腳本超出范圍錯誤

Question

我正在下面的代碼

“超出范圍”

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

Answer 1

您檢查工作表存在的方式是錯誤的。 如果工作表不存在，則它不能使用工作表的名稱，那么它將警告“腳本超出范圍”

你可以試試這個

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