VBA-Excel-Dateisystem Objekt

Question

Ich versuche, ein bisschen VBA zu entwickeln, die den Datum geändert Abschnitt auf der Datei überprüfen wird. Ich habe ein Stück Code online zu finden, das das Filesystem verwendet, dies zu tun, aber ich laufe in einen „Type Mismatch“ Fehler in VBA und hoffte, dass jemand helfen könnte ..

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

(natürlich habe ich die tatsächlichen eingegeben Dateipfad dort!)

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 

Ich habe gerade die Microsoft Scripting Runtime-Referenz hinzugefügt, aber das funktioniert immer noch nicht. Irgendwelche Ideen? Fehle ich andere erforderliche Referenzen?

Vielen Dank im Voraus Alex

Answer 1

Das Problem ist, dass Sie eine Variable FileLastModified in Ihrem Testverfahren erklären, die den gleichen Namen wie die Funktion, die Sie anrufen möchten, hat. Wenn Sie diese Zeile löschen, sollte es funktionieren:

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