Определете дали съществува работна книга с помощта на VBA в Microsoft Excel

Anonim

В Microsoft Excel можем да проверим дали файлът съществува на определено място с помощта на VBA код. Макросът ще покаже състоянието под формата на поле за съобщение. В тази статия ще идентифицираме, ако състоянието на всеки конкретен файл съществува или не, с помощта на VBA код. Можем да използваме функцията Dir, за да проверим дали файлът съществува на място с помощта на Excel VBA.

С помощта на тази програма можем да проверим дали има файл, който вече съществува на същото място. Така че можем да изтрием или преименуваме стария файл.

Въпрос: Когато създаваме макрос за автоматизиране на задачата, обикновено запазваме изходния файл на място. Бих искал да имам макрос за проверка и в замяна да покажа, че файлът е наличен или не по конкретния път.

За да илюстрираме този пример, ще запазим файла „Sample.xlsx“ в пътя „D: \ Име на папката \ Sample.xlsx“

За да установим дали работната книга съществува, трябва да следваме стъпките по -долу, за да стартираме VB редактор:

  • Кликнете върху раздела Разработчик
  • От групата кодове изберете Visual Basic

  • Кликнете върху Вмъкване, след това Модул
  • Това ще създаде нов модул
  • Въведете следния код в стандартния модул
 Sub FileExists () Dim FilePath As String Dim TestStr As String FilePath = "D: \ Име на папката \ Sample.xlsx" TestStr = "" При възобновяване на грешка Следващ TestStr = Dir (FilePath) При грешка GoTo 0 If TestStr = "" Тогава MsgBox " Файлът не съществува „Else Workbooks.Open“ D: \ FolderName \ Sample.xlsx „End If End Sub

  • Сега макросът е готов за изпълнение, ще използваме клавиша за бърз достъп F5 и ще се отвори файл „Пример“

  • Ако файлът не е наличен по предварително дефинирания път, следното поле за съобщение ще се покаже

Заключение: По този начин лесно можем да разпознаем дали конкретен файл съществува или не по определен път, използвайки VBA код.

Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.

Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта