QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 6696|回复: 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”,现在要记录以下三个信息:
! {8 k" k* l. E      172.36.254.22 ;
5 @/ I( O0 }# |0 \3 C      2010-03-02 ;$ S" A( P8 n% K# ^$ U
      D:\book1.xls。
6 \/ ^( h. j4 ]请问该如何来实现呢?请各位高手帮忙解决一下
% S7 H* ]" T, N6 ~谢谢~~
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

    积分

    该用户从未签到

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

    搞定它了,呵呵~
    8 @& u. d. s/ h# N" _6 K/ _代码也弄出来,在Excel的VB编辑器里执行  P: G3 X% L& ]
    制作环境为office2003
    0 l. A5 a+ X, L7 k* DPublic Sub getIpAndPcnameAndUsername(); w. O( E. g8 K/ w( y3 K

    3 a, A# m1 e; o2 P' Q    Dim myIp, pcName, userName As String
      k+ J! ^9 g& a$ }" b    Dim objWMIService, IPConfigSet, sysInfm As Object
    # T- y) u; O; Z+ A   
    " @$ Q/ m. l* m9 v3 a4 b' m    Set objWMIService = GetObject("winmgmts:")
    2 G+ i+ Y$ _- S* J/ K5 ?& V    Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")! q5 P2 i% h5 q' \; `3 Z+ x$ H8 W
        Set sysInfm = CreateObject("WScript.Network")7 s- U, F- l" W! ^5 k) m
        2 W! X" I; L  q& d0 y4 O6 r# h
        pcName = sysInfm.computername  '获取本机计算机名
    " f( \" J; K6 Q6 ~& g- ~( X    userName = sysInfm.userName    '获取本机已登录的用户名
    2 _, Y9 ]* w0 l% F! j& v( O    ; J/ n2 v' [8 u, ?& x: m2 \
        '获取本机ip地址
    # I* I6 f  k4 |- K9 a% `    For Each ipconfig In IPConfigSet! N" l% S8 C$ y' Z; x2 L
       
    & x. F, Q, }8 h( x' E8 Z3 S        If Not IsNull(ipconfig.IPAddress) Then
    " q6 O# W. o; h& e            myIp = Join(ipconfig.IPAddress)
    " s( \9 ^3 N/ J        End If
    5 U. s9 ~/ j- W+ G        0 W* u  q/ h+ K( }% P
            If myIp <> "0.0.0.0" Then
    % R9 g: W* c6 {% Y3 n            MsgBox "IP Address: " & myI
    9 z9 f5 b) r0 M& I3 g* K     End If
    : M8 ?% A) R9 y& E. n        
    . O" y) Q1 v8 {# R8 L" H    Next
    ' o  V6 z5 C6 v$ Y+ ~; D1 AEnd Sub
    挽弓当挽强,用箭当用长!
    回复

    使用道具 举报

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

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-9-19 20:47 , Processed in 0.430338 second(s), 61 queries .

    回顶部