利用Excel内置的VBA功能获取电脑连接WiFi的IP方法

最新推荐文章于 2026-06-14 12:57:24 发布

原创最新推荐文章于 2026-06-14 12:57:24 发布 · 1.3k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#excel

VBA代码知识区专栏收录该内容

4 篇文章

订阅专栏

文章介绍了如何通过启用Excel的开发者选项卡，使用VBA编写宏来执行命令获取电脑上连接的WiFiIPv4地址，并将结果展示在工作表中。步骤包括打开VBA编辑器，插入模块，编写和运行宏代码。

步骤1：打开Excel，点击“开发者”选项卡。如果你没有看到“开发者”选项卡，请先启用它。可以通过以下步骤启用：
点击“文件”。选择“选项”。在“Excel 选项”对话框中，选择“自定义功能区”。在右侧的列表中，勾选“开发者”选项卡，然后点击“确定”。步骤2：点击“开发者”选项卡下的“Visual Basic”按钮。这将打开VBA编辑器。步骤3：在VBA编辑器中，点击“插入”>“模块”。步骤4：在新模块中粘贴以下代码：

Option Explicit
Sub GetConnectedWiFiIPs()    Dim objShell As Object    Dim objExec As Object    Dim strOutput As String    Dim arrLines As Variant    Dim strLine As Variant    Dim rngOutput As Range        ' 创建一个Shell对象以运行命令    Set objShell = CreateObject("WScript.Shell")        ' 运行"ipconfig"命令并捕获输出    Set objExec = objShell.Exec("ipconfig")    strOutput = objExec.StdOut.ReadAll        ' 将输出按行分割    arrLines = Split(strOutput, vbCrLf)        ' 选择输出单元格    Set rngOutput = ActiveSheet.Range("A1")        ' 遍历每一行    For Each strLine In arrLines        ' 检查该行是否包含IPv4地址        If InStr(strLine, "IPv4") > 0 Then            ' 将IPv4地址写入单元格            rngOutput.Value = Trim(Mid(strLine, InStr(strLine, ":") + 1))            ' 移动到下一个单元格            Set rngOutput = rngOutput.Offset(1, 0)        End If    Next strLineEnd Sub

步骤5：关闭VBA编辑器。
步骤6：在Excel中，点击“开发者”选项卡下的“宏”按钮。在打开的“宏”对话框中，选择“GetConnectedWiFiIPs”并点击“运行”。现在，你的当前工作表中将显示所有连接的WiFi IP地址。请注意，这个示例仅适用于IPv4地址。如需获取IPv6地址，需要稍作修改。