[DEM]

Ситуация следующая, в одной из ячеек хранится полный путь и имя файла, надо чтобы другая ячейка изменяла цвет при наличии файла.

[KronSerg]

Самое простое написать такую функцию:

Function forDEM(путь As String) As String Dim f As Boolean Dim cel As Object On Error Resume Next Open путь For Input As #1 If Err Then f = False Else f = True Close #1 End If If f Then forDEM = "файл есть" Else forDEM = "файла нет" End Function

И использовать условное форматирование

[gomer]

Зачем файл открывать?

Код:

[Выделить все]

Function FindFile(filespec As String) As Variant

    Dim fso
    Dim Result As Boolean

    Set fso = CreateObject("Scripting.FileSystemObject")
    Result = fso.FileExists(filespec)
    Set fso = Nothing
    If Result Then
      FindFile = filespec
    Else
      FindFile = Result
    End If

End Function

Sub TestFindFileFunction()

  If FindFile("c:\test.txt") Then
    MsgBox "File exist"
    Else
     MsgBox "File does not exist"
  End If
  
End Sub

Надеюсь подсвечивать ячейки вы умеете...

[KronSerg]

gomer, тот код не открывает файл.

[Кулик Алексей aka kpblc]

Ага, а теперь представьте - в файле листов этак 200, в каждом - хотя бы по 1000 строк. 200 000 операций обращения к FSO? Легче повеситься

[gomer]

Сообщение от Кулик Алексей aka kpblc Ага, а теперь представьте - в файле листов этак 200, в каждом - хотя бы по 1000 строк. 200 000 операций обращения к FSO? Легче повеситься

Намек понят, но представим себе реальность такой ситуации... Особенно на старых машинах...
Такое количество файлов на диске называется мусором...

[DEM]

Вы не много не так меня поняли.
Вот файл, надо чтобы в столбце Е отображалось есть файл или его нету.

[KronSerg]

Дамир, мы тебя правильно поняли, лови.

[DEM]

KronSerg
Пасиб....
Буду пробовать.
Блин, давно программированием не занимался, уж 1,5-2 года как прекратил на Делфях и на Лиспе баловаться.
На до бы вспомнить молодость.....