Утврдите да ли постоји радна свеска помоћу ВБА у програму Мицрософт Екцел

Преглед садржаја

У Мицрософт Екцел -у можемо проверити да ли датотека постоји на одређеној локацији помоћу ВБА кода. Макро ће приказати статус у облику оквира за поруку. У овом чланку ћемо помоћу ВБА кода утврдити да ли постоји статус одређене датотеке или не. Помоћу функције Дир можемо да проверимо да ли датотека постоји на локацији помоћу програма Екцел ВБА.

Помоћу овог програма можемо проверити да ли постоји датотека која већ постоји на истој локацији. Дакле, можемо избрисати или преименовати стару датотеку.

Питање: Када стварамо макро за аутоматизацију задатка, излазну датотеку генерално чувамо на локацији. Желео бих да имам макро за проверу и заузврат да покаже да је датотека доступна или није на одређеној путањи.

За илустрацију овог примера сачуваћемо датотеку „Сампле.клск“ на путањи „Д: \ Име фасцикле \ Сампле.клск“

Да бисмо утврдили да ли постоји радна свеска, морамо да следимо кораке у наставку да бисмо покренули ВБ едитор:

  • Кликните на картицу Девелопер
  • Из групе кодова изаберите Висуал Басиц

  • Притисните Уметни па Модул
  • Ово ће створити нови модул
  • Унесите следећи код у стандардни модул
 Суб ФилеЕкистс () Дим ФилеПатх Ас Стринг Дим ТестСтр Ас Стринг ФилеПатх = "Д: \ ФолдерНаме \ Сампле.клск" ТестСтр = "" Он Еррор Ресуме Нект ТестСтр = Дир (ФилеПатх) Он Еррор ГоТо 0 Иф ТестСтр = "" Онда МсгБок " Датотека не постоји "Елсе Воркбоокс.Опен" Д: \ ФолдерНаме \ Сампле.клск "Енд Иф Енд Суб 

  • Сада је макро спреман за покретање, користићемо тастер пречице Ф5 и отвориће се датотека „Узорак“

  • Ако датотека није доступна на унапред дефинисаној путањи, приказаће се следеће поље за поруку

Закључак: На овај начин можемо лако препознати да ли одређена датотека постоји или не на одређеној путањи помоћу ВБА кода.

Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.

Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште

Ви ће помоћи развој сајта, дељење страницу са пријатељима

wave wave wave wave wave