获得修改日期的问题

Question

我有一个名为“Visor Portafolio.xls”的已打开工作簿，我想在我当前的工作簿（运行宏的那个）上将其最后修改日期写入单元格H6。我想把它放在我使用的宏的末尾。

我尝试了很多不同的解决方案，但似乎无法正常工作。任何人都可以帮我这个吗？

Answer 1

如果您在宏观中：

Sub Macro1()
    Range("H6").Select
    ActiveCell.FormulaR1C1 = LastSaveDate()    
End Sub


Function LastSaveDate()
     Application.Volatile True
     LastSaveDate = FileDateTime(ThisWorkbook.FullName)
 End Function

基于：http://answers.microsoft.com/en-us/office/forum/office_2010-excel/insert-the-date-an-excel-workbook-was-last/c0c7335e-fc0d-43c7-b32d-215f84b452cc