Cuprins
Următorul cod va valida dacă un nume de fișier este valid. Acest lucru este util dacă codul dvs. necesită un nume de fișier introdus de utilizator. Acesta va verifica dacă numele fișierului este valid înainte de a continua și, eventual, de a genera o eroare.
Validați numele fișierului
Această funcție testează dacă variabila „FileName” este un nume de fișier valid:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Funcția ValidateFileName (ByVal FileName As String) ca BooleanApplication.ScreenUpdating = FalsDim wb Ca registru de lucru„Nu căutați nimic în numele fișierului.Dacă FileName = "" AtunciValidateFileName = FalsGoTo ExitProcEnd If'Creați fișierul TempOn Error GoTo InvalidName:Setați wb = Workbooks.Addwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51La eroare Reluați în continuare„Închideți fișierul Temp Excelwb.Închide Fals„Ștergeți fișierul Temp ExcelKill Environ ("temp") & "\" & FileName & ".xlsx"'Nume fișier validat - Funcție de ieșireValidateFileName = AdevăratGoTo ExitProc„Dacă fișierul nu poate fi creatNume invalid:La eroare Reluați în continuare„Închideți fișierul Temp Excelwb.Închide Fals'Nume fișier nevalidat - Funcție de ieșireValidateFileName = FalsExitProc:Application.ScreenUpdating = FalsFuncția de sfârșit |
Puteți apela funcția astfel:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda? /")Sfârșitul Sub |
Această procedură de testare va afișa TRUE sau FALSE în fereastra imediată.
