Tartalomjegyzék
A következő kód ellenőrzi, hogy a fájlnév érvényes -e. Ez akkor hasznos, ha a kód a felhasználó által megadott fájlnevet igényli. Ellenőrzi, hogy a fájlnév érvényes -e, mielőtt folytatja, és esetleg hibát generál.
Fájlnév érvényesítése
Ez a funkció teszteli, hogy a „FileName” változó érvényes fájlnév:
1234567891011121314151617181920212223242526272829303132333435363738394041 | Funkció ValidateFileName (ByVal FileName as String) Logikai értékkéntApplication.ScreenUpdating = HamisDim wb Mint munkafüzet'Ellenőrizze, hogy a fájlnévben nincs -e semmi.Ha FileName = "" AkkorValidateFileName = HamisGoTo ExitProcVége Ha'Hozzon létre ideiglenes fájltA GoTo InvalidName hiba esetén:Állítsa be a wb = Workbooks.Addwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Hiba esetén Folytassa a következőt'Zárja be a Temp Excel fájltwb. Bezárás Hamis"Törölje a Temp Excel fájltKill Environ ("temp") & "\" & FileName & ".xlsx"'A fájlnév érvényesítve - Kilépési funkcióValidateFileName = IgazGoTo ExitProc'Ha a fájl nem hozható létreÉrvénytelen név:Hiba esetén Folytassa a következőt'Zárja be a Temp Excel fájltwb. Bezárás Hamis'A fájlnév nincs érvényesítve - Kilépési funkcióValidateFileName = HamisExitProc:Application.ScreenUpdating = HamisVége funkció |
A funkciót így hívhatja:
12345 | Rész teszt_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")End Sub |
Ez a tesztelési eljárás IGAZ vagy HAMIS eredményt ad ki az azonnali ablakba.