Kā pārbaudīt, vai datorā pastāv fails vai mape, izmantojot programmu Excel VBA?

Šodienas Office automatizācijas apmācība ir vērsta uz to, lai uzzinātu, kā pārbaudīt, vai fails pastāv kādā no jūsu datora direktorijiem.

Sagatavošana

Ja esat iesācējs kodēšanas jomā, pārliecinieties, vai ir iespējota Microsoft Office Excel izstrādes cilne un esat iepazinies ar dažiem pamata Excel VBA .

Pārbauda, ​​vai fails pastāv, izmantojot Excel VBA

Šis kods izmanto ievades lodziņus, lai tvertu ceļu uz failu, kā arī paša faila nosaukumu no lietotāja.

Pēc tam tas izmanto Dir metodi, lai pārbaudītu, vai faila ceļš patiešām pastāv.

Visbeidzot, lietotājam tiek parādīts ziņojuma lodziņš ar pārbaudes rezultātu.

Sub Check_file_exists()

Dim NameDir As String
Dim NameFile As String

'Capture the file path and name from the users
NameDir = InputBox("Enter file directory")
NameFile = InputBox("Enter file name")

'Check whether the file exists
If (Dir(NameDir & NameFile)) = "" Then
    MsgBox ("File doesn't exist")

    Else
    
    MsgBox ("File exists")
    End If
End Sub

Pārbaudiet, vai mape pastāv

Līdzīgā veidā varat pārbaudīt, vai jūsu operētājsistēmā ir noteikta mape. Arī šeit mēs izmantojam Dir metodi, bet ar parametru vbDirectory .

Sub Check_folder_exists()

Dim NameDir As String

NameDir = InputBox("Enter file directory")


If (Dir(NameDir, vbDirectory)) = "" Then
    MsgBox ("Folder doesn't exist")

    Else
    
    MsgBox ("Folder exists")
    End If
End Sub

Izmantojot kodu

  • Atveriet Microsoft Excel un pārejiet uz savu darbgrāmatu.
  • Noklikšķiniet uz Izstrādātājs un pēc tam noklikšķiniet uz Visual Basic.
  • Kopējiet un ielīmējiet kodu no augšas kā apakšprogrammu noteiktā VBA moduļa lapā.
  • Palaidiet (F5) kodu.
  • Saglabājiet savu darbgrāmatu.

Iespējamie pagarinājumi

Iepriekš norādītais katla plāksnes kods ir jāpaplašina šādiem lietošanas gadījumiem:

  • Izveidojiet mapi/failu, ja tas vēl neeksistē.
  • Izdzēsiet mapes failu, ja tie atrodas jūsu operētājsistēmas failu direktorijā.
  • Meklējiet failus/mapes, izmantojot aizstājējzīmi.

Atstājiet komentāru

Bezpeļņas organizācijas gada pārskata PowerPoint veidne: bezmaksas lejupielādes iespējas un slaidu kontrolsaraksts

Bezpeļņas organizācijas gada pārskata PowerPoint veidne: bezmaksas lejupielādes iespējas un slaidu kontrolsaraksts

Izveidojiet skaidru bezpeļņas organizācijas gada pārskatu programmā PowerPoint, izmantojot bezmaksas veidni, praktisku slaidu struktūru, ietekmes rādītājus, finanšu datus un ziedotājiem gatavus prezentācijas padomus.

Minimālistiska investoru prezentācijas PowerPoint veidne tehnoloģiju jaunuzņēmumiem: ko iekļaut un ko izlaist

Minimālistiska investoru prezentācijas PowerPoint veidne tehnoloģiju jaunuzņēmumiem: ko iekļaut un ko izlaist

Izveidojiet tīro tehnoloģiju jaunuzņēmumu investoru prezentāciju programmā PowerPoint, izmantojot praktisku slaidu struktūru, uz pierādījumiem balstītu vēstījumu, pieejamu dizainu un mazāk uzmanības novēršanas faktoru.

Vienkārša uzdevumu deleģēšanas matricas veidne programmai Word: praktiska versija mazu komandu vadītājiem

Vienkārša uzdevumu deleģēšanas matricas veidne programmai Word: praktiska versija mazu komandu vadītājiem

Izmantojiet šo vienkāršo uzdevumu deleģēšanas matricas veidni programmā Word, lai piešķirtu īpašniekus, lēmumu pieņemšanas ierobežojumus, termiņus un kontrolpunktus, nepārāk sarežģījot nelielas komandas darbu.

Vienkārša dienas aprūpes apmeklējuma lapas veidne: drukājama pierakstīšanās un izrakstīšanās mājas bērnu aprūpei

Vienkārša dienas aprūpes apmeklējuma lapas veidne: drukājama pierakstīšanās un izrakstīšanās mājas bērnu aprūpei

Izmantojiet šo vienkāršo drukājamo dienas aprūpes centra apmeklējuma lapu mājas bērnu aprūpei ar bērnu vārdiem, ierašanās/aizbraukšanas laikiem, parakstiem un atbilstības padomiem.

Drukājama vienas lapas mārketinga stratēģijas veidne vietējiem uzņēmumiem

Drukājama vienas lapas mārketinga stratēģijas veidne vietējiem uzņēmumiem

Izmantojiet šo drukājamo vienas lapas mārketinga stratēģijas veidni, lai definētu savu vietējo auditoriju, piedāvājumu, kanālus, budžetu, iknedēļas darbības un izmērāmus mērķus.

Kā apturēt programmu Excel no automātiskas skaitļu maiņas uz datumiem

Kā apturēt programmu Excel no automātiskas skaitļu maiņas uz datumiem

Neļaujiet programmai Excel konvertēt tādas vērtības kā 1/2, 11–53 vai JAN1 datumos. Uzziniet uzticamus risinājumus rakstīšanai, ielīmēšanai, CSV importēšanai un jau konvertētajām šūnām.

Mūsdienīga nekustamā īpašuma saraksta prezentācijas PowerPoint veidne (bezmaksas): Kas jāiekļauj

Mūsdienīga nekustamā īpašuma saraksta prezentācijas PowerPoint veidne (bezmaksas): Kas jāiekļauj

Izveidojiet noformētu nekustamā īpašuma sludinājumu PowerPoint prezentācijā bez maksas ar praktisku slaidu plānu, fotoattēlu, zīmola veidošanas, pieejamības, atbilstības un eksportēšanas padomiem.

Kā novērst Outlook kļūdu: e-pasta sūtīšana neizdodas, bet saņemšana darbojas

Kā novērst Outlook kļūdu: e-pasta sūtīšana neizdodas, bet saņemšana darbojas

Novērsiet Outlook problēmu, kad e-pasts tiek saņemts, bet nevar nosūtīt. Pārbaudiet izsūtni, bezsaistes režīmu, pieteikšanos, SMTP iestatījumus, profilus un Microsoft 365 izmaiņas.

Vienkāršs divnedēļu algas aprēķina izsekošanas Excel veidne mazām komandām: Praktisks iestatīšanas ceļvedis

Vienkāršs divnedēļu algas aprēķina izsekošanas Excel veidne mazām komandām: Praktisks iestatīšanas ceļvedis

Izveidojiet vienkāršu divnedēļu algas aprēķina izsekošanas tabulu Excel mazai komandai, iekļaujot stundas, algu, atskaitījumus, pārskatīšanas karodziņus, kopsavilkumus un dokumentu glabāšanas norādījumus.

Drukājams pasākumu plānošanas kontrolsaraksts un budžeta veidne programmai Word: kas jāiekļauj un kad jāizmanto programma Excel

Drukājams pasākumu plānošanas kontrolsaraksts un budžeta veidne programmai Word: kas jāiekļauj un kad jāizmanto programma Excel

Izveidojiet vai pielāgojiet drukājamu pasākumu plānošanas kontrolsarakstu un budžeta veidni programmā Microsoft Word, iekļaujot praktiskas sadaļas, kompromisus un padomus par Word un Excel salīdzināšanu.