Овај Екцел макро вам омогућава да проследите путању датотеке да бисте проценили да ли је датотека тамо. На пример, можда имате процес који манипулише датотеком негде на вашем рачунару. На пример, можда ћете морати да отворите постојећу радну свеску да бисте јој додавали податке на дневној бази. У овом случају, можда ћете морати да тестирате да бисте видели да ли датотека којом треба да манипулишете постоји.
Како функционише макро
Прва ствар коју треба приметити код овог макроа је да је то функција, а не подпроцедура. Ако овај макро учините функцијом, можете да му проследите било коју путању датотеке.
У овом макроу користите функцију Дир, која враћа стринг који представља име датотеке која одговара ономе што јој проследите. Ова функција се може користити на много начина, али овде је користите да бисте проверили да ли постоји путања датотеке коју јој проследите:
Функција ФилеЕкистс (ФПатх као стринг) као Боолеан
'Корак 1: Декларисајте своје променљиве
Дим ФНаме као стринг
„Корак 2: Користите функцију Дир да бисте добили назив датотеке
ФНаме = Дир(ФПатх)
'Корак 3: Ако датотека постоји, вратите Труе; елсе Фалсе
Ако ФНаме <> " Тада ФилеЕкистс = Тачно _
Остало: ФилеЕкистс = Фалсе
Енд Фунцтион
Корак 1 проглашава стринг променљиву која садржи име датотеке које се враћа из функције Дир. ФНаме је име променљиве Стринг.
У кораку 2 покушавате да подесите променљиву ФНаме. Ово радите тако што ћете променљиву ФПатх проследити функцији Дир. Ова ФПатх променљива се прослеђује преко декларација функције (погледајте први ред кода). Ова структура вас спречава да морате чврсто кодирати путању датотеке, прослеђујући је као променљиву.
Ако се променљива ФНаме не може подесити, путања коју сте прошли не постоји. Дакле, променљива ФНаме је празна. Корак 3 само преводи тај резултат у Тачан или Нетачан израз.
Опет, ова функција се може користити за процену било које путање датотеке коју јој проследите. Ово је лепота писања макроа као функције.
Следећи макро показује како се користи ова функција:
Подмакро1()
Ако ФилеЕкистс("Ц:ТемпМиНевБоок.клск") = Тачно Онда
МсгБок "Датотека постоји."
Иначе
МсгБок "Датотека не постоји."
Крај Ако
Енд Суб
Како користити макро
Да бисте имплементирали овај макро, можете копирати и налепити оба дела кода у стандардни модул:
Активирајте Висуал Басиц Едитор притиском на Алт+Ф11.
Кликните десним тастером миша на име пројекта/радне свеске у прозору пројекта.
Изаберите Инсерт→Модуле.
Откуцајте или налепите код у новокреирани модул.