QQ登录

只需要一步,快速开始

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

如何利用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”,现在要记录以下三个信息:, d2 L0 H+ _2 d) c" s
      172.36.254.22 ;
7 P% ?/ b2 V- `6 Q      2010-03-02 ;
; V9 N( u1 P$ f6 e% h/ S      D:\book1.xls。
7 l& D7 ?& ^) W# F  O; k请问该如何来实现呢?请各位高手帮忙解决一下3 S/ T6 j3 w  l; z: Z9 Y3 x1 v, f
谢谢~~
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

    积分

    该用户从未签到

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

    搞定它了,呵呵~0 D& O) `# K: D5 _9 f, L
    代码也弄出来,在Excel的VB编辑器里执行; z3 l6 F+ [8 j# `7 F0 e- V
    制作环境为office2003/ j- x. f* j! m5 e0 y9 M5 U
    Public Sub getIpAndPcnameAndUsername()
    . @& r$ ^, V; m* b/ z5 I1 y; S0 i' H- b
        Dim myIp, pcName, userName As String0 f0 U( \7 [7 u7 U% A
        Dim objWMIService, IPConfigSet, sysInfm As Object" t! i' S1 R& b
        , r: h4 D8 u. O& C: ^5 l
        Set objWMIService = GetObject("winmgmts:")6 X0 x9 u+ I* @
        Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")7 p+ b2 q: T5 ^8 Q8 k
        Set sysInfm = CreateObject("WScript.Network")
    & d# W; B" h; L' \    6 i0 t8 o$ R: c
        pcName = sysInfm.computername  '获取本机计算机名
    5 r4 l7 c: c8 O% ]% X4 B! M; i    userName = sysInfm.userName    '获取本机已登录的用户名8 A0 W2 F$ S' r7 H4 J
        * |( D4 `5 W/ ~$ M1 G8 M
        '获取本机ip地址! k* I1 j; D5 R; q, @4 @( K2 Y+ \
        For Each ipconfig In IPConfigSet+ [3 [* |8 D4 u& a5 \9 t6 l
        " \4 n* `6 B4 Y4 u2 V
            If Not IsNull(ipconfig.IPAddress) Then
    4 @/ K! ?5 A( O5 N            myIp = Join(ipconfig.IPAddress)/ i+ ~' q% S2 e$ ?8 W! _! `
            End If
    3 Q7 K5 H$ ]/ e  ^* S5 ?        ! n4 N5 b6 w* n8 @
            If myIp <> "0.0.0.0" Then
    : F( O; g# V% ~% M2 t) v            MsgBox "IP Address: " & myI
    9 ]1 ?. V7 Y6 P1 J* b     End If
    . f$ c5 U" D+ i, P        % A: K) [. D1 S3 J6 i9 g: u7 s
        Next/ I2 S, K* C$ ]7 P+ ~
    End Sub
    挽弓当挽强,用箭当用长!
    回复

    使用道具 举报

    4#
    无效楼层,该帖已经被删除
    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

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

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

    蒙公网安备 15010502000194号

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

    GMT+8, 2026-9-19 18:14 , Processed in 0.298716 second(s), 69 queries .

    回顶部