求助

excel20152015 · 发表于 2024-5-25 09:53

有会的吗？

沈默00 · 发表于 2024-5-25 10:02

应该可以的，去VBA咨询吧，，

发哥76 · 发表于 2024-5-25 10:38

Function GetIP() As String
Dim OpSysSet As Object, Op As Object, Ip
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").ExecQuery("SELECT index, IPAddress FROM Win32_NetworkAdapterConfiguration")
For Each Op In OpSysSet
      If Not IsNull(Op.IPAddress) Then
         For Each Ip In Op.IPAddress
            If Ip Like "*.*.*.*" Then
                  GetIP = Ip
                  Exit Function
            End If
         Next
      End If
Next
End Function

沈默00 · 发表于 2024-5-25 10:39

找了一个....

excel20152015 · 发表于 2024-5-25 11:09

excel20152015 · 发表于 2024-5-25 11:13

不是这样
~~~~~~~~~~~~~

excel20152015 · 发表于 2024-5-25 11:14

或者获取外部数据要自动填充到那个格子里。

excel20152015 · 发表于 2024-5-25 13:14

表格实现不了？

excel20152015 · 发表于 2024-5-25 16:12

或者是电脑名也可以。。

excel20152015 · 发表于 2024-5-25 16:40

或者电脑的固定的一些信息。。。

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

[求助] 求助