VBA Excel文件系統對象

Question

我想開發一些VBA，它將檢查文件上的日期修改部分。我發現了一個位碼在線的使用FileSystemObject要做到這一點，但我碰上VBA「類型不匹配」的錯誤，並希望有人能幫助..

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

（當然，我已經進入了實際filepath there！）

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