Satura rādītājs
Šis kods apstiprinās, vai faila nosaukums ir derīgs. Tas ir noderīgi, ja jūsu kodam ir nepieciešams lietotāja ievadīts faila nosaukums. Pirms turpināt, tā pārbaudīs, vai faila nosaukums ir derīgs, un, iespējams, radīs kļūdu.
Apstipriniet faila nosaukumu
Šī funkcija pārbauda, vai mainīgais “FileName” ir derīgs faila nosaukums:
1234567891011121314151617181920212223242526272829303132333435363738394041 | Funkcija ValidateFileName (ByVal FileName As String) kā BūlaApplication.ScreenUpdating = NepareiziDim wb kā darbgrāmata"Pārbaudiet, vai faila nosaukumā nav nekas.Ja FileName = "" TadValidateFileName = NepareizsGoTo ExitProcBeigas Ja"Izveidot pagaidu failuKļūda GoTo InvalidName:Iestatiet wb = darbgrāmatas. Pievienotwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Par kļūdu Atsākt nākamo"Aizveriet Temp Excel failuwb. Aizvērt nepatiesu"Izdzēsiet Temp Excel failuKill Environ ("temp") & "\" & FileName & ".xlsx"'Faila nosaukums ir apstiprināts - iziešanas funkcijaValidateFileName = PatiesaGoTo ExitProc'Ja failu nevar izveidotNederīgs nosaukums:Par kļūdu Atsākt nākamoAizveriet Temp Excel failuwb. Aizvērt nepatiesu'Faila nosaukums nav apstiprināts - iziešanas funkcijaValidateFileName = NepareizsExitProc:Application.ScreenUpdating = NepareiziBeigu funkcija |
Funkciju var izsaukt šādi:
12345 | Apakštesta_ValidateFileName ()Atkļūdot. Drukāt ValidateFileName ("fda?/")Beigu apakš |
Šī pārbaudes procedūra tūlītējā logā izvadīs patiesu vai nepatiesu.