VBA获取您的电脑硬件信息

yes363001640 · 发表于 2019-10-14 19:44

留个足迹，下次好找

rio123 · 发表于 2020-3-9 08:11

太强大了，如何只获取ip地址，并写入到指定单元格中呢？

rio123 · 发表于 2020-3-9 08:31

andysky 发表于 2009-2-11 12:36

运行报错，如何实现只将IP地址写入指定单元格呢，

Tomchenxun · 发表于 2020-3-9 09:17

可以，做个记号，用得上的时候来看看

andysky · 发表于 2020-3-9 09:22

rio123 发表于 2020-3-9 08:31
运行报错，如何实现只将IP地址写入指定单元格呢，

MsgBox IP, 64, "IP地址"

改成 range("a1")=IP

rio123 · 发表于 2020-3-9 18:25

andysky 发表于 2020-3-9 09:22
MsgBox IP, 64, "IP地址"

改成 range("a1")=IP

谢谢回复，运行时提示缺少函数和变量，win10 64位系统 Ashampoo_Snap_2020.03.09_18h24m42s_017_.png

andysky · 发表于 2020-3-9 18:53

rio123 发表于 2020-3-9 18:25
谢谢回复，运行时提示缺少函数和变量，win10 64位系统

引号必须是半角状态的

rio123 · 发表于 2020-3-10 09:01

andysky 发表于 2020-3-9 18:53
引号必须是半角状态的

全部是半角状态，直接复制代码下来，运行时也是显示IP缺少函数或变量，我是 64位 win10 Excel2016的，会不会是“引用”里面少量了什么 Ashampoo_Snap_2020.03.10_08h57m55s_019_.png

andysky · 发表于 2020-3-10 09:33

rio123 发表于 2020-3-10 09:01
全部是半角状态，直接复制代码下来，运行时也是显示IP缺少函数或变量，我是 64位 win10 Excel2016的，会 ...

前面加一句试试
dim ip

rio123 · 发表于 2020-3-10 10:10

andysky 发表于 2020-3-10 09:33
前面加一句试试
dim ip

谢谢大师，
增量代码是能显示，但是会显示其它的IPV4之列的地址，如何只显示和写入1P地址？

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

[分享] VBA获取您的电脑硬件信息