VBA Excel文件系统对象

我试图开发一些VBA，将检查文件上的date修改部分。 我发现一些在线代码使用FileSystemObject来做到这一点，但我遇到了VBA中的“types不匹配”错误，并希望有人可以帮助..

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

（自然，我已经进入了实际的文件path！）

 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脚本运行时参考，但这仍然不起作用。 有任何想法吗？ 我是否缺less其他必需的参考？

在此先感谢亚历克斯

Answer 1

问题是你在你的testing过程中声明了一个variablesFileLastModified ，它和你要调用的函数名称相同。 如果你删除该行，它应该工作：

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