Excel宏从单元格ping IP

dpiehjr4 于 2023-11-20 发布在其他

关注(0)|答案(2)|浏览(374)

我已经创建了我所有网络设备的Excel清单，我想做的是有一个宏，允许我用一个单击ping这些设备的IP。我得到了一些接近这个脚本：
Sub RunCommand（）Dim cmd As String cmd =“ping“Call Shell（“xml. exe/c“& cmd，vbNormalFocus）End Sub
问题是，我正在寻找一种方法，让宏将所选单元格的值作为ping的地址添加进去，所以最后的命令应该是“ping [cell value]”，但我不知道如何实现。
创建并测试了JavaScript脚本

Sub RunCommand()
    Dim cmd As String
    cmd = "ping "
    Call Shell("cmd.exe /c " & cmd, vbNormalFocus)
End Sub

字符串
它可以工作，但需要逐个手动输入每个单元格值。
尝试过这个剧本的变体

Sub RunCommand()
    Dim cmd As String
    Var = Range("b2").Value
    cmd = "ping "
    Call Shell("cmd.exe /c " & cmd, vbNormalFocus)
End Sub

型
但是没能成功

excel

来源：https://stackoverflow.com/questions/77418090/excel-macro-to-ping-ip-from-a-cell

2条答案

按热度按时间

evrscar21#

你可以这样做：

Sub PingCheck()
    Dim resp As String, c As Range, v
    
    For Each c In ActiveSheet.Range("A2:A10")
        v = Trim(c.Value)
        If Len(v) > 0 Then
            resp = ExecShellCmd("ping " & v)
            c.Offset(0, 1).Value = resp
        End If
    Next c
End Sub
Public Function ExecShellCmd(FuncExec As String) As String
    ExecShellCmd = VBA.CreateObject("WScript.Shell") _
                    .exec("cmd.exe /c " & FuncExec).stdout.readall
End Function

字符串
EDIT：使用事件触发ping

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim v
    
    If Target.Column <> 1 Then Exit Sub 'restrict to (eg) Col A...
    v = Target.Value
    If Len(v) > 0 Then
        Target.Offset(0, 1).Value = ExecShellCmd("ping " & v)
        Cancel = True   'don't enter edit mode
    End If
End Sub

型

展开查看全部

赞(0）回复(0）举报 2023-11-20

f0ofjuux2#

我可以通过使用这个来让它工作：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim IP As String
    IP = Target.Value
    If IP Like "*.*.*.*" Then
        Shell "cmd.exe /k ping " & IP, vbNormalFocus
    End If
End Sub

字符串
它会查看所选单元格中的文本是否与IPv4地址匹配，然后运行ping。再次感谢您的帮助！

赞(0）回复(0）举报 2023-11-20

我来回答

Excel宏从单元格ping IP

2条答案

相关问题

热门标签

最新问答