我试图在 excel 表中显示最后一个访问 excel 文件和时间的人，但文件名每天都在变化（文件名包含日期）。
我目前的代码给了我没有找到我试过两种文件的错误ActiveWorkbook.path和Application.ActiveWorkbook.Path。
Sub Main()
'Setting Summary Report
Dim sAuthor As String
sAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
'Last modified person & time
Dim fileModDate As String
Dim fs
Dim f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(Application.ActiveWorkbook.Path)
fileModDate = f.DateLastModified
Worksheets("Sheet1").Range("A2") = sAuthor & " " & fileModDate
End Sub
我可以将文件重新保存为统一名称，例如 test 或其他名称，但我不确定是否可以修改代码以使其正常工作，因此我不必重新保存文件。
猜猜我会发布一个答案只是为了关闭这个答案
Sub Main()
'Setting Summary Report
'Last author
Dim sAuthor As String
sAuthor = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
'Last modified time
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim file As Object
Set file = fso.GetFile(ActiveWorkbook.FullName)
Dim fileModDate As String
fileModDate = file.DateLastModified
'Updating range to last author and modified time
Worksheets("Sheet1").Range("A2").Value2 = sAuthor & " " & fileModDate
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句