Excel ping IP地址

yu4700111 · 发表于 2015-12-22 13:36

Excel中列有IP地址，一个个ping，并在对应后面单元格中标注未ping通（任意标志都可以）

yu4700111 · 发表于 2015-12-22 13:38

如图，请大神帮帮忙

yu4700111 · 发表于 2015-12-22 15:03

这就沉了？没人？

liulang0808 · 发表于 2015-12-22 15:17

建议楼主上传个带ip地址的附件吧

liulang0808 · 发表于 2015-12-22 15:26

Sub 按钮1_Click()
Application.ScreenUpdating = False
Set wsh = CreateObject("Wscript.shell")
arr = Application.Intersect(Columns(1), ActiveSheet.UsedRange)
For j = 1 To UBound(arr)
str1 = "ping " & arr(j, 1)
Cells(j, 2) = wsh.exec("cmd.exe /c " & str1).StdOut.ReadAll
Next j

Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2015-12-22 15:27

具体见附件内容，ping的结果建议楼主根据需求自行处理吧，不同的电脑返回的信息有出入

yu4700111 · 发表于 2015-12-22 15:41

liulang0808 发表于 2015-12-22 15:17
建议楼主上传个带ip地址的附件吧

好的，马上

yu4700111 · 发表于 2015-12-22 15:42

你要的附件

liulang0808 · 发表于 2015-12-22 15:48

yu4700111 发表于 2015-12-22 15:42
你要的附件

见六楼的模拟反馈附件吧

cnzh10000 · 发表于 2024-10-23 22:50

刚好需要下来看看

		自动登录	找回密码
密码			免费注册

[求助] Excel ping IP地址

评分

评分