excel - VBA Excel 文件系统对象

Question

我正在尝试开发一些 VBA 来检查文件上的日期修改部分。我在网上找到了一些使用 FileSystemObject 来执行此操作的代码，但我在 VBA 中遇到了“类型不匹配”错误，希望有人可以提供帮助..

Sub test()
Dim FileLastModified As Variant
MsgBox FileLastModified("S:\FILEPATHISHERE.xls")
End Sub

(当然我已经在那里输入了实际的文件路径!)

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

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

s = UCase(strFullFileName) & vbCrLf
s = s & "Last Modified: " & f.DateLastModified
FileLastModified = s

Set fs = Nothing: Set f = Nothing
End Function

我刚刚添加了 Microsoft Scripting Runtime Reference，但这仍然不起作用。有任何想法吗？我是否缺少其他必需的引用资料？

提前致谢亚历克斯

Answer 1

问题在于您在测试过程中声明了一个变量 FileLastModified，该变量与您要调用的函数同名。如果删除该行，它应该可以工作:

Sub test()
    MsgBox FileLastModified("S:\FILEPATHISHERE.xls")
End Sub