QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 6561|回复: 2
打印 上一主题 下一主题

如何利用VBA记录哪些用户曾打开某excel文档?

[复制链接]
字体大小: 正常 放大
数学者 实名认证       

170

主题

10

听众

3232

积分

该用户从未签到

新人进步奖 发帖功臣 最具活力勋章

跳转到指定楼层
1#
发表于 2010-3-5 11:55 |只看该作者 |倒序浏览
|招呼Ta 关注Ta |邮箱已经成功绑定
利用VB或VBA记录(获取)哪些用户曾经打开过某excel文档,如:ip为172.36.254.22的用户在2010-03-02曾打开过“D:\book1.xls”,现在要记录以下三个信息:: X* ~& U; U9 C- ]( x8 S
      172.36.254.22 ;
* K& Y, V0 W/ u3 T/ j& j      2010-03-02 ;3 V% E" o4 c; g! D2 P/ J  ~
      D:\book1.xls。
, M$ N9 `% |. y请问该如何来实现呢?请各位高手帮忙解决一下  C: Y, h" S# o% r
谢谢~~
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
挽弓当挽强,用箭当用长!

30

主题

3

听众

2324

积分

升级  10.8%

  • TA的每日心情
    奋斗
    2023-6-21 14:13
  • 签到天数: 17 天

    [LV.4]偶尔看看III

    自我介绍
    200 字节以内<br />
    不支持自定义 Discuz! 代码

    邮箱绑定达人 新人进步奖 元老勋章 原创写作奖

    这个问题我没处理过,但是有种方法可以解决,到图书馆把VB所有的书都找出来,一本一本的翻,有几本比较厚的书很管用,书名忘了,好像是叫什么明日科技编的
    回复

    使用道具 举报

    数学者 实名认证       

    170

    主题

    10

    听众

    3232

    积分

    该用户从未签到

    新人进步奖 发帖功臣 最具活力勋章

    搞定它了,呵呵~
    ) d0 g3 G8 Z3 B3 _代码也弄出来,在Excel的VB编辑器里执行8 @6 l2 m# }3 W" m( s) |
    制作环境为office2003
    ) n% }& ^/ G" `& R: wPublic Sub getIpAndPcnameAndUsername()
    $ p0 T+ ]* d% J# B5 `- W) ^; J, P+ m( \, B5 k  R& c! [
        Dim myIp, pcName, userName As String1 @( r* `3 |  O* C0 u
        Dim objWMIService, IPConfigSet, sysInfm As Object
    0 O% S- \" I1 ~2 W' o   
    " _( N  t) o& H$ d% Z" Y: f    Set objWMIService = GetObject("winmgmts:")
    " G2 W% i+ u$ ^    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
    ( H8 t1 y. M' X+ A3 d    Set sysInfm = CreateObject("WScript.Network"); ^, v) j, _; A8 s; V2 |( I
       
    " ?5 v/ w6 G# j$ l/ H% Y+ y$ O    pcName = sysInfm.computername  '获取本机计算机名/ B- m* R# B; K; y- l
        userName = sysInfm.userName    '获取本机已登录的用户名  A- a8 v* z; \: `0 \* k
       
    # @3 r; M& j5 [9 j    '获取本机ip地址
    1 Z9 p) R" y* \! R: \* q    For Each ipconfig In IPConfigSet1 o# D- \, A0 U+ E
        ) [" O/ `/ V5 P+ t: p# V
            If Not IsNull(ipconfig.IPAddress) Then
    9 {8 p: L! c/ }% t& ^+ L            myIp = Join(ipconfig.IPAddress)
    - s6 g0 G# Y" {) {. ]        End If
    ( |7 j( R9 `: a& N/ K9 n; u        7 Q+ V5 C" n! O6 ?. H2 n1 u
            If myIp <> "0.0.0.0" Then; ~/ L8 A% c" F$ K: J/ I6 `4 Q' L  R
                MsgBox "IP Address: " & myI3 [+ i3 K9 o% K6 y$ R4 O" ~
         End If
    8 s% U# B+ q' k6 G4 _- F        2 S* V+ Q( ]3 X1 K
        Next  w0 P% Z+ \, n
    End Sub
    挽弓当挽强,用箭当用长!
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2026-5-31 02:29 , Processed in 0.452025 second(s), 61 queries .

    回顶部