Как узнать, есть ли примечание в ячейке? - VBA
Формулировка задачи:
и/или например, есть в заданной дирректории файл?
СПАСИБО!
Решение задачи: «Как узнать, есть ли примечание в ячейке?»
textual
Листинг программы
If FSO.FileExists(strPath) Then...'файл существует
Set objFolder = FSO.GetFolder(strFolder)
if objFolder.Files.count>0 then... 'в папке есть файлы
Set FSO = WScript.CreateObject('Scripting.FileSystemObject')
if len(Dir$(strPath)) > 0 Then...'файл существует
If MyCell.Comment is nothing Then 'примечания нет
If Len(dir(PathName))=0 Then 'Директория пустая или вообще отсутствует