Današnja vadnica za avtomatizacijo Officea je osredotočena na učenje, kako preveriti, ali datoteka obstaja v enem od imenikov vašega računalnika.
Priprava
Če ste malo novi v kodiranju, zagotovite, da je zavihek za razvoj Microsoft Office Excel omogočen in da poznate nekaj osnovnih Excel VBA .
Preverjanje, ali datoteka obstaja z Excel VBA
Naslednja koda uporablja vnosna polja, da od uporabnika zajame pot do datoteke in samo ime datoteke.
Nato uporabi metodo Dir , da preveri, ali pot do datoteke res obstaja.
Nazadnje uporabniku prikaže okno s sporočilom z rezultatom preverjanja.
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
Preverite, ali mapa obstaja
Na precej podoben način lahko preverite, ali v vašem operacijskem sistemu obstaja določena mapa. Tudi tukaj uporabljamo metodo Dir , vendar s parametrom 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
Uporaba kode
- Odprite Microsoft Excel in se pomaknite do delovnega zvezka.
- Pritisnite Razvijalec in nato Visual Basic.
- Kopirajte in prilepite kodo od zgoraj kot podprogram na določen list vašega modula VBA.
- Zaženite (F5) kodo.
- Shranite svoj delovni zvezek.
Možne razširitve
Zgornja koda kotlovske tablice je treba razširiti za naslednje primere uporabe:
- Ustvarite mapo/datoteko, če še ne obstaja.
- Izbrišite datoteko mape, če je prisotna v imeniku datotek vašega operacijskega sistema.
- Poiščite datoteke/mape z nadomestnim znakom.