如何在 MSAccess 中使用文件最后保存的時間戳更新字段？

Question

在 MS Access 中構建一個數據歷史庫，從 excel 文件中提取數據，這些文件會定期被新的數據剪切（又名快照）覆蓋。 在數據庫中添加了一個注釋列來保存拍攝快照的時間戳。 尋求使用 excel 文件的最后保存日期/時間戳作為此列的條目。

可能在查詢中的 SQL 中？ 如果沒有，那么 VBA 模塊呢？

Answer 1

您可以使用 FileSystemObject 和 File 對象的 DateLastModified 屬性在 VBA 中執行此操作。

Dim sFileName
Dim objFSO

sFileName = "C:\file.xls" ' Read this value from your database

Set objFSO = CREATEOBJECT("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(sFileName)

此時您可以讀取文件的DateLastModified 屬性：

objFile.DateLastModified

然后，您可以相應地更新您的記錄。

Answer 2

您可以使用下面的自定義 function：

Function FileLastModified(strFullFileName As String)
    Dim fs As Object, f As Object

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(strFullFileName)

    FileLastModified = f.DateLastModified

    Set fs = Nothing
    Set f = Nothing

這是用法：

If FileLastModified("C:\test.txt") > DateAdd("h", -12, Now()) Then <...your update code...>

參考：https://access-programmers.co.uk/forums/showthread.php?t=215588