excel - 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。

将其保存在模块中，然后按照“作为加载项分发”-howto。

现在，如果我没有犯任何基本错误，这应该为任何工作簿提供一个新的工作表功能 =LastSaveTime() ，它返回事件工作簿的 DateLastModified。由于事件工作簿的原因，可能会有一个问题 - 使用 application.caller 可能会更省钱。构造，当使用它作为加载项时。