Объект файловой системы VBA Excel - PullRequest
Новая
       31

Объект файловой системы VBA Excel

3 голосов
/ 26 марта 2012

Я пытаюсь разработать немного 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, но он все еще не работает. Есть идеи? Я пропускаю другие обязательные ссылки?

Заранее спасибо Alex

1 Ответ

1 голос
/ 26 марта 2012

Проблема в том, что вы объявили переменную FileLastModified в своей тестовой процедуре, имя которой совпадает с именем функции, которую вы хотите вызвать. Если вы удалите эту строку, она должна работать: 

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