Зміст
Одне з найбільш вигідних застосувань Excel VBA у нашому повсякденному житті є те, що ми можемо перевірити, чи існує файл на нашому комп'ютері чи ні, використовуючи його. У цій статті я покажу вам, як можна перевірити, чи існує файл чи ні на наших комп'ютерах за допомогою Excel VBA .
Код на VBA для перевірки наявності чи відсутності файлу (Швидкий перегляд)
Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Файл не існує." Else MsgBox "Файл існує." End If End Sub 
Завантажити Практичний посібник
Завантажте цей практичний посібник, щоб потренуватися, поки ви читаєте цю статтю.
VBA Check If a File Exists.xlsmОгляд коду на VBA для перевірки наявності чи відсутності файлу (покроковий розбір)
Отже, без подальших зволікань перейдемо до нашої головної сьогоднішньої дискусії. Ми розберемо VBA код крок за кроком, щоб навчитися перевіряти наявність чи відсутність файлу на наших комп'ютерах.
⧪ Крок 1: Введення необхідних даних
На самому початку коду ми повинні вставити в нього необхідні вхідні дані. У цьому коді є тільки одне необхідне введення, і це ім'я файлу, який ми шукаємо. Вставте повне ім'я файлу (разом з пов'язаним каталогом).
Ім'я_файлу = "C:\ExcelWIKI\Book1.xlsm" 
⧪ Крок 2: Витягнення імені файлу за допомогою функції VBA Dir
Далі ми використаємо невелику хитрість. Ми використаємо VBA Функція Dir Щоб витягти ім'я файлу, якщо такого файлу не існує, слід натиснути кнопку Функція Dir поверне нульовий рядок.
Ім'я_файлу = Dir(Ім'я_файлу) ⧪ Крок 3: Перевірка існування файлу за допомогою блоку If
Це найважливіший крок. Раніше ми говорили про те, що якщо файл з таким іменем не існує, то функція Dir повертає нульовий рядок. Ми будемо використовувати цю властивість в межах коду If-блок щоб перевірити, чи існує файл чи ні.
If Ім'я_файлу = "" Then MsgBox "Файл не існує." Else MsgBox "Файл існує." End If 
Таким чином, повна VBA код буде:
⧭ Код VBA:
Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Файл не існує." Else MsgBox "Файл існує." End If End Sub
⧭ Виходьте:
Запускаю код, на моєму комп'ютері з'являється вікно з повідомленням, "Файл існує" тому що він дійсно існує на моєму комп'ютері.
На вашому комп'ютері висновок може відрізнятися залежно від того, чи існує файл чи ні.
Читати далі: Excel VBA: перевірка наявності аркуша (2 простих способи)
Розробка макросу для перевірки наявності або відсутності діапазону файлів засобами Excel VBA
У нас є набір даних на аркуші Excel, який містить імена деяких файлів разом з каталогами в діапазоні B4:B8 .
Наша мета - розробити макрос, який буде писати Існує / не існує навпроти кожного з них після перевірки наявності чи відсутності їх на комп'ютері.
⧪ Крок 1: Відкриття вікна VBA
Преса ALT + F11 на клавіатурі, щоб відкрити Visual Basic вікно.
⧪ Крок 2: Вставка нового модуля
Перейдіть до Вставка> Модуль на панелі інструментів. Натисніть на Модуль Новий модуль під назвою Модуль 1 (або щось інше, залежно від вашої минулої історії) відкриється.
⧪ Крок 3: Розміщення коду VBA
Це найважливіший крок. Вставте наступне VBA код в модулі.
⧭ Код VBA:
Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = "" Then Rng.Cells(i, 2) = "Не існує" Else Rng.Cells(i, 2) = "Існує" End If Next i End Sub 
⧪ Крок 5: Запуск коду
Натисніть на кнопку Виконати Sub / UserForm на панелі інструментів вище.
Код запуститься. І ти отримаєш "Існує" для файлів, які існують, та "Не існує" для файлів, яких не існує.
Читати далі: Як перевірити наявність значення в діапазоні в Excel (8 способів)
Висновок
Тому саме цей процес і є процесом розробки Макрос відправити Email з Excel з вкладенням. Залишилися питання - задавайте їх нам. І не забувайте заглядати на наш сайт ExcelWIKI для отримання додаткової інформації та оновлень.
