软件:2010
请问各位，我在网络上找到用 VBA 抓网络卡编号如下：
Sub 网络卡()
Dim IPConfigSet
Set IPConfigSet = _
GetObject("winmgmts:").ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where ((IPEnabled =
TRUE) And (MacAddress != NULL) And (SettingID != NULL))")
For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
MsgBox IPConfig.MACAddress
End If
Next
End Sub
但是若执行当下没有开网络，不会发生任何事，连警告也不会有，
我想让它在没有网络时跳出警告视窗然后自动关闭 Excel，
请问该怎么修改？

如以Win32_PingStatus，ping个外网，循环内再以statuscode判断是否为isnull或不为0

请S大神明示，小弟功力浅，这一串我几乎都看不太懂~~~

https://imgur.com/zvUIn37 类似这样

感谢Soyoso大大 m(＿ ＿)m

想到的是判定IPConfigSet的Count不等于0但这样只能判定有作用中的网卡，不代表有连线原PO很努力找资料，给个推，加油！