Прескочи на основното съдържание

 Как да проверя дали даден файл съществува в определена папка?

Автор: Xiaoyang Последна промяна: 2020-11-19

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

Проверете дали файлът съществува в конкретна папка с VBA код


стрелка син десен балон Проверете дали файлът съществува в конкретна папка с VBA код

За да проверите дали даден файл съществува в конкретна папка или не в работен лист на Excel, можете да приложите следния VBA код, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.

VBA код: Проверете дали файлът съществува в конкретна папка:

Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim FilePath As String
    FilePath = ""
    On Error Resume Next
    FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
    On Error GoTo 0
    If FilePath = "" Then
        MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "File exist", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = False
End Sub

Забележка: В горния код трябва да промените пътя и името на файла C:\Users\DT168\Desktop\Test folder\Book2.xlsx" за вашите нужди.

3. След като поставите кода, моля, натиснете F5 ключ за изпълнение на този код:

(1.) Ако файлът съществува, ще получите следната екранна снимка:

doc ако файлът съществува 1

(2.) Ако файлът не съществува, ще получите следното предупреждение:

doc ако файлът съществува 2

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
como puedo hacer esto mismo pero que lo busque en la nube
This comment was minimized by the moderator on the site
como puedo hacer esto mismo pero que lo busque en la nube
This comment was minimized by the moderator on the site
Shouldn't line 14 be Application.ScreenUpdating = True ?
This comment was minimized by the moderator on the site
Na verdade nem faz diferença, vc pode desabilitar o screenupdate no inicio do código e nem mencionar novamente no final que dá certo do mesmo jeito e não faz diferença nenhuma no projeto
This comment was minimized by the moderator on the site
Yes, it should
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations