Patvirtinkite failų pavadinimus - VBA kodų pavyzdžiai

Šis kodas patvirtins, ar failo pavadinimas yra teisingas. Tai naudinga, jei jūsų kodas reikalauja vartotojo įvesto failo pavadinimo. Prieš tęsdama ji patikrins, ar failo pavadinimas galioja, ir galbūt sukels klaidą.

Patvirtinkite failo pavadinimą

Ši funkcija patikrina, ar kintamasis „FileName“ yra teisingas failo pavadinimas:

1234567891011121314151617181920212223242526272829303132333435363738394041

Funkcija ValidateFileName (ByVal FileName As String) kaip loginisApplication.ScreenUpdating = NetiesaDim wb Kaip darbo knyga„Patikrinkite, ar nieko nėra failo pavadinime.Jei FileName = "" TadaValidateFileName = Netiesa„GoTo ExitProc“Pabaiga Jei„Sukurkite laikiną failąDėl klaidos „GoTo InvalidName“:Nustatykite wb = Darbaknygės. Pridėtiwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Dėl klaidos Tęsti toliau„Uždarykite„ Temp Excel “failąwb. Uždaryti Netiesa„Ištrinkite„ Temp Excel “failąKill Environ ("temp") & "\" & FileName & ".xlsx"„Failo pavadinimas patvirtintas - išėjimo funkcijaValidateFileName = Tiesa„GoTo ExitProc“„Jei failo sukurti nepavykstaNeteisingas pavadinimas:Dėl klaidos Tęsti toliau„Uždarykite„ Temp Excel “failąwb. Uždaryti Netiesa„Failo pavadinimas nepatvirtintas - išėjimo funkcijaValidateFileName = Netiesa„ExitProc“:Application.ScreenUpdating = NetiesaPabaigos funkcija

Funkciją galite iškviesti taip:

12345

Antrinis test_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")Pabaiga Sub

Ši bandymo procedūra į tiesioginį langą išves TRUE arba FALSE.