Viens no visizdevīgākajiem Excel lietojumiem VBA mūsu ikdienas dzīvē ir tas, ka mēs varam pārbaudīt, vai fails mūsu datorā pastāv vai ne, izmantojot to. Šajā rakstā es jums parādīšu, kā jūs varat pārbaudīt, vai fails pastāv vai ne mūsu datorā, izmantojot Excel. VBA .

VBA kods, lai pārbaudītu, vai fails eksistē vai ne (ātrs skats)

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Faila nav." Else MsgBox "Faili pastāv." End If End Sub 

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

Pārskats par VBA kodu, lai pārbaudītu, vai fails eksistē vai ne (analīze soli pa solim)

Tāpēc bez kavēšanās pievērsīsimies mūsu galvenajai šodienas diskusijai. Mēs sadalīsim. VBA kodu soli pa solim, lai uzzinātu, kā pārbaudīt, vai fails mūsu datoros pastāv vai ne.

⧪ 1. solis: vajadzīgo ievades datu ievietošana

Pašā koda sākumā mums tajā ir jāievada nepieciešamie ievades dati. Šajā kodā ir nepieciešama tikai viena ievades informācija, un tas ir meklējamā faila nosaukums. Ievietojiet pilnu faila nosaukumu (kopā ar saistīto direktoriju).

 Faila_nosaukums = "C:\ExcelWIKI\Book1.xlsm" 

⧪ 2. solis: faila nosaukuma iegūšana ar VBA Dir funkciju

Tālāk mēs izmantosim nelielu triku. Mēs izmantosim VBA Dir funkcija lai iegūtu faila nosaukumu. Ja šāds fails nepastāv, tad Dir funkcija atgriezīs nulles virkni.

 File_Name = Dir(File_Name) 

⧪ 3. solis: pārbaudiet, vai fails pastāv, izmantojot If-bloku

Šis ir vissvarīgākais solis. Jau iepriekš esam teikuši, ka, ja neviens fails ar norādīto nosaukumu neeksistē, Dir funkcija atgriež nulles virkni. Mēs izmantosim šo īpašību iekšā If-block lai pārbaudītu, vai fails eksistē.

 If File_Name = "" Then MsgBox "Faila nav." Else MsgBox "Faili pastāv." End If 

Tātad pilnīga VBA kods būs:

⧭ VBA kods:

 Sub Check_If_a_File_Exists() File_Name = "E:\ExcelWIKI\Book1.xlsm" File_Name = Dir(File_Name) If File_Name = "" Then MsgBox "Faila nav." Else MsgBox "Faili pastāv." End If End Sub 

⧭ Izvades rezultāts:

Palaidiet kodu. Manā datorā tiks parādīts ziņojuma logs, "Failiņš pastāv" , jo tas faktiski pastāv manā datorā.

Jūsu datorā izvades rezultāts var atšķirties atkarībā no tā, vai fails pastāv vai ne.

Lasīt vairāk: Excel VBA: pārbaudiet, vai lapa eksistē (2 vienkāršas metodes)

Makroreakcijas izveide, lai pārbaudītu, vai failu diapazons pastāv vai ne, izmantojot Excel VBA

Šeit mums ir datu kopa Excel darblapā, kas satur dažu failu nosaukumus kopā ar direktorijiem diapazonā. B4:B8 .

Mūsu mērķis ir izstrādāt Makro, kas rakstīs Pastāv / nepastāv blakus katram no tiem pēc tam, kad ir pārbaudīts, vai tie datorā ir vai nav.

⧪ 1. solis: VBA loga atvēršana

Spiediet ALT + F11 uz tastatūras, lai atvērtu Visual Basic logs.

⧪ 2. solis: jauna moduļa ievietošana

Iet uz Ievietot> Modulis instrumentu joslā. Noklikšķiniet uz Modulis . Tiek izveidots jauns modulis ar nosaukumu Modulis1 (vai kāds cits, atkarībā no jūsu iepriekšējās vēstures).

⧪ 3. solis: VBA koda ievietošana

Šis ir vissvarīgākais solis. Ievietojiet šādu informāciju. VBA kods modulī.

⧭ VBA kods:

 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) = "Doesn't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ 5. solis: Koda palaišana

Noklikšķiniet uz Run Sub / UserForm rīks no augšējās rīkjoslas.

Kods tiks palaists. Un jūs saņemsiet "Eksistē" esošajiem failiem un "Neeksistē" failiem, kas neeksistē.

Lasīt vairāk: Kā pārbaudīt, vai vērtība eksistē diapazonā programmā Excel (8 veidi)

Secinājums

Tāpēc šis ir process, lai izstrādātu Makro lai nosūtītu e-pastu no Excel ar pielikumu. Vai jums ir kādi jautājumi? Uzdodiet mums. Un neaizmirstiet apmeklēt mūsu vietni. ExcelWIKI vairāk ziņu un atjauninājumu.