Проверка существования файла

У Джона есть столбец номеров счетов на листе. У него есть каталог в сети, в котором сотрудники сохраняют PDF-файл с фактическим счетом-фактурой и называют его тем же номером счета, который указан в рабочем листе. Каждый номер счета-фактуры на листе должен иметь соответствующий PDF-файл в каталоге в сети. Джон ищет способ в Excel проверить и убедиться, что PDF-файл действительно существует для каждого номера счета-фактуры.

Невозможно сделать это с помощью встроенных команд Excel. Однако вы можете создать макрос, который будет выполнять проверку за вас. Например, рассмотрим следующую простую пользовательскую функцию:

Функция FileExists1 (sPath As String) FileExists = Dir (sPath) «» Конечная функция

подпрограмма просто возвращает значение True или False в зависимости от того, существует ли указанный файл. Значение, которое передается в функцию, должно включать полный путь и имя файла. Например, если спецификация файла (включая путь) была в ячейке A1, вы могли бы использовать в ячейке следующее:

= FileExists1 (A1)

You однако может не захотеть помещать в ячейку полное имя пути. В этом случае вы можете указать его в фактической формуле следующим образом:

= FileExists1 («c: your path here » & A1 & «.pdf»)

Конечно, вместо этого вы можете указать путь в пользовательской функции:

Function FileExists2 (sFile As String) sPath = «c: your path here «& sFile &» .pdf «FileExists = Dir (sPath) » «End Function

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

= IF (FileExists2 (A1), «», «Missing Invoice»)

Источник: frestage.ru

Бытовой вопрос