Š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.