什么是Excel中Microsoft Word Quick部件的等效功能

Question

我想在Excel中的单元格中自动显示“上次保存日期”。编写VBA代码可能不可行，因为创建Excel工作表的人可能不熟悉编写VBA代码。

Answer 1

好吧，他们不必编写这段代码，如果你把它打包成插件 - 但你/他们将不得不使用宏 - 没有别的方法可以做到这一点。

Public Function LastSaveTime() As Variant
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(ActiveWorkbook.FullName)
    'you can delete the debug.print, it's just for debug ;)
    Debug.Print "Modified: " & f.DateLastModified
    LastSaveTime = f.DateLastModified
End Function

改编自excel-help，寻找DateLastModified。

将其保存在一个模块中，然后按照“作为加载项分配”的方式进行操作。

现在，如果我没有发生任何基本错误，这应该为任何工作簿提供一个新的工作表函数=LastSaveTime()，它返回活动工作簿的DateLastModified。可能有一个问题，因为活动工作簿 - 使用application.caller构造时，使用它作为加载项可能更安全。