标题: excel中如何取得工作簿上次修改时间和修改者信息？ [打印本页] 作者: shmilyyxc 时间: 2008-1-22 22:10 标题: excel中如何取得工作簿上次修改时间和修改者信息？ excel中如何取得工作簿上次修改时间和修改者信息？即想在每次打开工作薄时，知道上次最后编辑时间是什么，谁更改编辑的；用什么函数或其他办法可以取得这些信息？或者有什么办法能自动纪录每次哪个用户什么时候做了修改？
谢谢作者: pureshadow 时间: 2008-1-23 09:44
Private Sub Workbook_beforeclose()
Range("a65536").End(xlUp).Offset(1, 0) = Now
End Sub
以上是记录时间的，谁修改的很麻烦，如果只是记电脑名还好一点，但实际使用的人与电脑名未必一致。
[ 本帖最后由 pureshadow 于 2008-1-23 09:49 编辑 ]作者: liwen 时间: 2008-1-23 12:32
Function ShowFileAccessInfo(filespec)
filespec=thisworkbook.fullname
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(filespec) & vbCrLf
s = s & "Created: " & f.DateCreated & vbCrLf
s = s & "Last Accessed: " & f.DateLastAccessed & vbCrLf
s = s & "Last Modified: " & f.DateLastModified & vbCrLf
MsgBox s, 0, "File Access Info"
End Function