İçindekiler
Aşağıdaki kod, bir dosya adının geçerli olup olmadığını doğrulayacaktır. Bu, kodunuz kullanıcı tarafından girilen bir dosya adı gerektiriyorsa kullanışlıdır. Devam etmeden ve muhtemelen bir hata oluşturmadan önce dosya adının geçerli olduğunu doğrulayacaktır.
Dosya Adını Doğrula
Bu işlev, 'DosyaAdı' değişkeninin geçerli bir dosya adı olup olmadığını test eder:
1234567891011121314151617181920212223242526272829303132333435363738394041 | İşlev ValidateFileName(ByVal FileName As String) Boolean OlarakApplication.ScreenUpdating = YanlışÇalışma Kitabı Olarak Dim wb' Dosya adında hiçbir şey olup olmadığını kontrol edin.DosyaAdı = "" iseValidateFileName = YanlışExitProc'a GitBitir'Geçici Dosya OluşturGoTo InvalidName Hatasında:wb = Çalışma Kitaplarını ayarla.Addwb.SaveAs Environ("temp") & "\" & DosyaAdı & ".xlsx", 51Hatada Devam Et Sonraki' Temp Excel Dosyasını Kapatınwb.Kapat Yanlış'Temp Excel Dosyasını SilEnviron("temp") & "\" & FileName & ".xlsx"'i öldür'Dosya Adı Doğrulandı - Çıkış İşleviValidateFileName = DoğruExitProc'a Git'Dosya OluşturulamıyorsaGeçersiz isim:Hatada Devam Et Sonraki' Temp Excel Dosyasını Kapatınwb.Kapat Yanlış'Dosya Adı Doğrulanmadı - Çıkış İşleviValidateFileName = YanlışÇıkış İşlemi:Application.ScreenUpdating = YanlışBitiş İşlevi |
Fonksiyonu şu şekilde çağırabilirsiniz:
12345 | Alt test_ValidateFileName()Debug.Print ValidateFileName("fda?/")Alt Bitiş |
Bu test prosedürü, Anında Pencereye DOĞRU veya YANLIŞ verir.