Question

急求高手指点用VB在excel编辑中出现 编译错误，For没有Next 是咋回事

具体如下
Sub mm()
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select SerialNumber From Win32_BIOS")

Set colItems = objWMIService.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
For Each objItem In colItems
If colItems <> "00：D0：59：D8：D5：26" Then
Call KillThisWorkbook
Else
ThisWorkbooks.Open.Filename

End If
End Sub

Answer 1

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

Answer 2

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