Nosakiet, vai darbgrāmata pastāv, izmantojot Microsoft Excel VBA

Anonim

Programmā Microsoft Excel mēs varam pārbaudīt, vai fails pastāv noteiktā vietā, izmantojot VBA kodu. Makro parādīs statusu ziņojumu lodziņa veidā. Šajā rakstā mēs ar VBA koda palīdzību noteiksim, vai pastāv kāda konkrēta faila statuss. Mēs varam izmantot funkciju Dir, lai pārbaudītu, vai fails pastāv atrašanās vietā, izmantojot Excel VBA.

Izmantojot šo programmu, mēs varam pārbaudīt, vai tajā pašā vietā jau ir kāds fails. Tātad, lai mēs varētu izdzēst vai pārdēvēt veco failu.

Jautājums: Kad mēs veidojam makro, lai automatizētu uzdevumu, mēs parasti saglabājam izvades failu vietā. Es vēlos, lai būtu pārbaudāms makro un pretī parādītu, vai fails ir pieejams vai nav atrodams konkrētajā ceļā.

Lai ilustrētu šo piemēru, mēs saglabāsim failu “Sample.xlsx” ceļā “D: \ FolderName \ Sample.xlsx”.

Lai noteiktu, vai darbgrāmata pastāv, mums ir jāveic šādas darbības, lai palaistu VB redaktoru:

  • Noklikšķiniet uz cilnes Izstrādātājs
  • Kodu grupā atlasiet Visual Basic

  • Noklikšķiniet uz Ievietot, pēc tam uz moduļa
  • Tādējādi tiks izveidots jauns modulis
  • Standarta modulī ievadiet šādu kodu
 Apakš FileExists () Dim FilePath kā ​​virkne Dim TestStr kā virkne Fails nepastāv "Citas darbgrāmatas. Atveriet" D: \ FolderName \ Sample.xlsx "Beigt, ja beigas 

  • Tagad makro ir iestatīts darbam, mēs izmantosim F5 īsinājumtaustiņu un tiks atvērts “Parauga” fails

  • Ja fails nav pieejams iepriekš definētajā ceļā, tiks parādīts šāds ziņojumu lodziņš

Secinājums: Tādā veidā mēs varam viegli atpazīt, vai konkrēts fails pastāv vai nav noteiktā ceļā, izmantojot VBA kodu.

Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.

Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē