获得修改日期的问题

时间:2014-04-02 21:41:05

标签: excel vba date

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

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

1 个答案:

答案 0 :(得分:0)

如果您在宏观中:

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