vba проверить наличие файла

Ответ от
смотри :
dim app_path as String
dim str_line as string
dim agent_split () as string
app_path = "d:1.txt"
On Error Resume Next ' при ошибке продожить выполнение
GetAttr (app_path) ' использование любой стандратной функции для рабоы с файлом (вмсто GetAttr),
' чтобы проверить наличие файла по указанному пути.
' если файл НЕ существует, то возникнет ошибка с кодом "53" -> "file not found"
If ((Err.Number) = 53) Or (FileLen(app_path) = 0) Then
' с помощью функции Err и ее метода Number, получаем код ошибки
' если код ошибки равен "53" ИЛИ длина файла равна "0" (т. е. файл пуст) ,
' то выдаем соответствующее сообщение
MsgBox ("Нет данных")
Else:
file_numb = FreeFile(0) ' задаем номер файла в диапазоне от 1 до 255
Open app_path For Input As # file_numb ' открываем файл для чтения
Do Until EOF( file_numb) ' пока не конец файла
Line Input # file_numb, str_line ' считываем строку в s_line
lvi = lvi + 1 ' количество записей/строк
agent_split = Split(str_line, " ") ' split разбивает строку на подстроки, по разделителю " " и формирует массив строк в agent_split
For j = 0 To n ' с нуля - потому, что ф-ция split индексирует с нуля. n - количество записей в строке, т. е. кол-во столбцов -1
тут разбираешь каждый элемент из массива сплита, так же, тебе нужно преобразовать в Integer, это можно сделать функцией Cint (agent_split(j))
Next j
Loop
Close #file_numb
End If
End Sub

будут вопросы - пиши