Описание функции
Формула =ФАЙЛСУЩ(ПУТЬ) определяет имеется ли файл по заданному пути или нет. Если файл существует и доступен, то формула вернет значение ИСТИНА, если нет — ЛОЖЬ. Функция имеет только один аргумент:
- ПУТЬ — полный путь к файлу, существование которого необходимо проверить
Пример
Пример проверки наличия файла по заданному пути
Функция поиска файлов (vba check file)
Все больше замечаю, что многие люди в VBA пользуются конструкцией On Error для проверки ошибок, в частности с оператором GoTo. Я очень не люблю данный оператор, т.к. он затрудняет чтение кода и отладку, да и прыжки в программе не благодарное дело… Поэтому я расскажу, как проверить существование файла (vba check file) более цивилизованными методами.
Функция Dir$( , ) — где в качестве первого параметра передаем путь директории или файла, а второго — параметры поиска файлов.
res = FileExist("объект_т" + MyName + ".xls")
Function FileExist(filename As String) As Boolean
On Error Resume Next
If Err.Number <> 0 Then FileExist = False
On Error GoTo 0
‘http://bbs.vbstreets.ru/viewtopic.php?f=1&t=17961
Public Function bFileExists(sFile As String) As Boolean
‘Проверка наличия файла.
‘Подключить References -> Microsoft Scripting Runtime
Dim f As New Scripting.FileSystemObject
If f.FileExists(sFile) = True Then
bFileExists = True
Else
bFileExists = False
End If
End Function
Public Function bFileExists(sFile As String) As Boolean
If Dir$(sFile) <> "" Then bFileExists = True Else _
bFileExists = False
End Function
Dim fso As New FileSystemObject
Set fso = New FileSystemObject