Sisällysluettelo
Seuraava koodi vahvistaa, onko tiedostonimi kelvollinen. Tästä on hyötyä, jos koodisi vaatii käyttäjän syöttämän tiedostonimen. Se tarkistaa, että tiedostonimi on kelvollinen, ennen kuin jatkaa ja mahdollisesti aiheuttaa virheen.
Vahvista tiedostonimi
Tämä toiminto testaa, että muuttuja 'FileName' on kelvollinen tiedostonimi:
1234567891011121314151617181920212223242526272829303132333435363738394041 | Toiminto ValidateFileName (ByVal FileName As String) Boolen muodossaApplication.ScreenUpdating = VääräDim wb Työkirjana'Tarkista, onko tiedostonimessä mitään.Jos FileName = "" SittenValidateFileName = VääräGoTo ExitProcLoppu Jos'Luo väliaikainen tiedostoVirhe GoTo InvalidName:Aseta wb = Työkirjatwb.SaveAs Environ ("temp") & "\" & FileName & ".xlsx", 51Virhe Jatka seuraavaksi'Sulje Excel -väliaikainen tiedostowb.Sulje vääräPoista Temp Excel -tiedostoKill Environ ("temp") & "\" & FileName & ".xlsx"'Tiedoston nimi vahvistettu - Lopeta toimintoValidateFileName = TosiGoTo ExitProc'Jos tiedostoa ei voida luodaEpäkelpo nimi:Virhe Jatka seuraavaksi'Sulje Excel -väliaikainen tiedostowb.Sulje väärä'Tiedoston nimi ei ole vahvistettu - Poistu toiminnostaValidateFileName = VääräExitProc:Application.ScreenUpdating = VääräLopeta toiminto |
Voit kutsua funktion seuraavasti:
12345 | Alitesti_ValidateFileName ()Debug.Print ValidateFileName ("fda?/")End Sub |
Tämä testimenettely lähettää TOSI tai EPÄTOSI välitöntä ikkunaa.