En Excel-makro til at bestemme, om en arbejdsbog eksisterer - dummies

Denne Excel-makro giver dig mulighed for at sende en filsti for at vurdere, om filen er der. For eksempel kan du have en proces, der manipulerer en fil et eller andet sted på din pc. For eksempel skal du muligvis åbne en eksisterende arbejdsbog for at tilføje data til den på daglig basis. I dette tilfælde skal du muligvis teste for at se, om filen du skal manipulere, eksisterer.

Sådan virker makroen

Den første ting at bemærke om denne makro er, at det er en funktion, ikke en Sub-procedure. Gør denne makro en funktion giver dig mulighed for at overføre enhver filsti til den.

I denne makro bruger du Dir-funktionen, som returnerer en streng, der repræsenterer navnet på den fil, der svarer til det, du overfører til det. Denne funktion kan bruges på mange måder, men her bruger du den til at kontrollere, om den filsti du passerer til den eksisterer:

Funktion FileExists (FPath As String) Som Boolean 'Trin 1: Erklære dine variabler Dim FName As String 'Trin 2: Brug Dir-funktionen til at få filnavnet FName = Dir (FPath)' Trin 3: Hvis filen findes, returner du True; ellers False Hvis FName "Then FileExists = True _ Else: FileExists = False End Function

Trin 1 erklærer en streng variabel, der indeholder filnavnet, der vender tilbage fra Dir-funktionen. FName er navnet på streng-variablen.

< ! - 2 ->

I trin 2 forsøger du at indstille variablen FName.Du gør dette ved at sende FPath-variablen til Dir-funktionen. Denne FPath-variabel sendes via funktionserklæringerne (se første linje i koden). Denne struktur forhindrer dig i at behøve at kode kode en filsti og overføre den som en variabel i stedet.

Hvis FName-variablen ikke kan indstilles, findes den eksisterende sti ikke. Fanen FName variabel er tom. Trin 3 oversætter kun resultatet til et True eller False udtryk.

Igen kan denne funktion bruges til at evaluere enhver filsti, du passerer til den. Skønheden ved at skrive makroen som en funktion.

Følgende makro viser hvordan man bruger denne funktion:

Sub Macro1 () Hvis FileExists ("C: TempMyNewBook. xlsx") = True Da eksisterer MsgBox "File." Else MsgBox "-filen findes ikke." Afslut hvis slutpunkt

Sådan bruges makroen

For at implementere denne makro kan du kopiere og indsætte begge stykker kode i en standardmodul:

1. Aktiver Visual Basic Editor ved at trykke på Alt + F11.

2. Højreklik på projekt / projektmappen i projektvinduet.

3. Vælg Indsæt → Modul.

4. Skriv eller indsæt koden i det nyoprettede modul.