单元格值 = 来自超链接路径的 lastmodifieddate

Question

很难解释，但我的图片会很清楚。

我的 Excel 工作表在 a 列中有超链接，链接到要打开的文件 但是如何从 l 列中的该文件中获取 lastmodifieddate

示例：a22 链接到文件 vimco，因此该文件的最后修改日期必须在 l22 中

the picture here

也不是 a 列中的所有行都有超链接并且还包含一个空的 或未链接单元格，因此如果是这样，则列中无需显示任何内容 l 如果a为空白或未链接，则必须为空白

它可以做一个公式吗？所以我输入 cell =moddate 然后显示 日期 现在好了

好的，现在得到代码

Function GetDateTime(myCell As Range) As Date
    Dim myHyperlink As Hyperlink
    Dim Filename As String
    Application.Volatile
    On Error Resume Next
        Set myHyperlink = myCell.Hyperlinks(1)
    On Error GoTo 0
    If Not myHyperlink Is Nothing Then
        Filename = myHyperlink.Address
            'If it is a relative address insert this workbook's path
        If Not (Filename Like "\\*" Or Filename Like "[A-Z]:\*") Then
            Filename = ThisWorkbook.path & "\" & Filename
        End If
        If Dir(Filename, vbNormal) <> "" Then
            GetDateTime = FileDateTime(Filename)
        Else
            GetDateTime = ""
        End If
    Else
        GetDateTime = ""
    End If
End Function

但是如果链接发生变化或者我打开我的工作簿或交换表没有更新 getdatetime 的值，那么现在第二件事 - 可以修复吗？

Answer 1

您可以在 VBA 中创建自定义函数，并在 Excel 工作表中使用它。 为此，您需要 VBA 中的 FileDateTime 函数来创建如下内容：

Function GetDateTime(r As Range) As Date
GetDateTime = FileDateTime(r.Hyperlinks(1).Address)
End Function

现在您可以将此函数用作普通 Excel 函数，并以超链接作为参数填充单元格。像这样：=GetDatetime(A1)。如果A1中有超链接，则返回日期。