VBA Excel 文件系统对象答案

【问题标题】：VBA Excel File System ObjectVBA Excel 文件系统对象
【发布时间】：2012-04-09 20:11:05
【问题描述】：

我正在尝试开发一些 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 脚本运行时参考，但这仍然不起作用。有任何想法吗？我是否缺少其他必需的参考资料？

提前致谢亚历克斯

【问题讨论】：

标签： excel scripting runtime vba

【解决方案1】：

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

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

【讨论】：