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

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

复制代码

附录提示：

游客，如果您要查看本帖隐藏内容请回复

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

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

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

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

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

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

也试着学学VBA!

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

学良发表于 2011-1-26 09:33
也试着学学VBA!

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

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

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

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

学习了

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

学习看看

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

vvvvvvvvvvvvvvvvvvvvvv

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

谢谢分享

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

[资料] 记录文件的修改信息的日志