同楼上答案一样addr = "192.168.1.100"set obj = createobject("WScript.Shell")obj.run "c:\windows\cmd.exe /c ping " & addr & '后面我不知道怎么写，需要查cmd命令
vba 调用 DOS命令
弄错了~！抱歉抱歉
