你的本身就没有啊
For Each objItem In colItems
If colItems <> "00:D0:59:D8:D5:26" Then
Call KillThisWorkbook
Else
ThisWorkbooks.Open.Filename
End If
next '在这加上next 就行了
For Each objItem In colItems
If colItems <> "00:D0:59:D8:D5:26" Then
Call KillThisWorkbook
Else
ThisWorkbooks.Open.Filename
End If
next ' 此处少了一个next
End Sub