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

步骤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地址，需要稍作修改。

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

Excel：利用Excel内置功能实现对某列表格按照条件进行升降序排列
Excel:利用Excel内置功能实现对某列表格按照条件进行升降序排列目录实现功能实现方法实现功能利用Excel内置功能实现对某列表格按照设置条件进行升降序排列实现方法
计算机磁盘读取信息,VBA如何获取电脑磁盘信息，这个方法一定要知道
No.1 磁盘信息在电脑操作中是一个十分重要的内容,在很多编程语言中都有相应的语法. 同样VBA编程中也不例外,给我们预置了一些对象,可对计算机磁盘进行访问操作. 本节介绍如何获取磁盘信息,或者说是磁 ...
VBA与Excel内置的函数
了解VBA与Excel内置的函数,能够使我们处理起任务来事半功倍.这些函数不仅使用方便,而且效率一般都比较高(有些是例外的,特别是某些工作表函数),比我们自己写的要高效的多. VBA内置的函数 VBA ...
excel自带有vba手册吗_使用VAB打开Excel内置对话框
步骤2中"Application.Dialogs(1).Show"括号中的参数可以变化,根据参数的不同,运行程序之后会打开不同的Excel内置对话框,在此就不逐一示例了,常用参数对 ...
极客日报：吉利回应收购魅族手机传闻；苹果要求App必须内置账号删除功能；英特尔斥资千亿美元打造全球最大芯片基地
一分钟速览新闻点! 吉利回应收购魅族手机传闻泰国AreuOK队赢得华为科技挑战赛金奖华为2022年第一位天才少年诞生微信支付推出虎年限量红包封面,"虎豆妞"送祝福有赞回应裁 ...
利用Windows内置工具winsat测试硬盘速度（SSD机械盘对比）
利用Windows内置工具winsat测试硬盘速度(SSD&机械盘对比) 以下是红色内容是在命令行运行: C:\Users\Administrator>winsat disk Windo ...
flyme7 android彩蛋,Flyme 7内置彩蛋功能：520教你如何脱颖而出
原标题:Flyme 7内置彩蛋功能:520教你如何脱颖而出 5月20日是一个特殊的日子,逐渐演变为"网络情人节",或许有一部分单身伙伴们会遭到暴击伤害,估计朋友圈会被大捧的玫瑰花刷 ...
使用Office内置的VBA编辑器实现WORD文档的批量查找替换
最近同事因为工作原因需要批量修改几百个WORD文档中的内容,并且是批量的重复性工作.如果按一个个文件打开,是一个繁琐.乏味且又容易遗漏出错的事儿,所以他想找一个能提供批量替换操作的工具,百度上有很多类 ...
利用Oracle内置分析函数进行高效统计汇总
利用Oracle内置分析函数进行高效统计汇总分析函数是Oracle从8.1.6开始引入的一个新的概念,为我们分析数据提供了一种简单高效的处理方式.在分析函数出现以前,我们必须使用自联查询,子查询或者 ...

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

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

最新文章

热门文章