nothingwmm 发表于 2011-1-26 08:35

记录文件的修改信息的日志


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)‘用于记录文件最好修改日期
    Open Application.DefaultFilePath & "\excelusage.txt" _
      For Append As #1 ‘再文件末尾追加信息，可用作记录日志文件
    Print #1, "Last Used at" & Now ‘记录最后保存时间
   Print #1, "FileSaved by " & Application.UserName ‘记录用户名称
    Print #1, "File is located at " & Application.DefaultFilePath ‘记录文件的路径
    Close #1
End Sub

附录提示：
**** Hidden Message *****

raulerini 发表于 2011-1-26 09:26

nothingwmm 兄都已经升到硕士研究生啦，可喜可贺！！！

nothingwmm 发表于 2011-1-26 09:28

raulerini 发表于 2011-1-26 09:26 static/image/common/back.gif
nothingwmm 兄都已经升到硕士研究生啦，可喜可贺！！！

呵呵，谢谢乐乐兄的抬举，你的好资料别删除了，都分享上来把，看你的什么函数一本通 我还么看过呢，怪不得你的函数这么厉害，这么多的秘籍都不给我们分享下，害的我的Excel只是这么不全面

学良 发表于 2011-1-26 09:33

也试着学学VBA!

nothingwmm 发表于 2011-1-26 09:45

学良 发表于 2011-1-26 09:33 static/image/common/back.gif
也试着学学VBA!

你这家伙，你这名字，和我的某个人名字一样，一直想找你呢！加你好友吧！;P

地狱男爵 发表于 2011-3-17 21:34

看看。谢谢楼主，加油~！

老糊涂 发表于 2011-3-17 21:44

学习了   

wancheng 发表于 2011-5-1 21:09

{:1_1:}学习看看

foolish2003 发表于 2011-5-3 21:39

vvvvvvvvvvvvvvvvvvvvvv

西安专家 发表于 2011-5-4 13:22

谢谢分享
页: [1] 2 3 4
查看完整版本: 记录文件的修改信息的日志