Mục lục
Đoạn mã sau sẽ xác nhận xem tên tệp có hợp lệ hay không. Điều này hữu ích nếu mã của bạn yêu cầu tên tệp do người dùng nhập. Nó sẽ xác minh rằng tên tệp hợp lệ trước khi tiếp tục và có thể tạo ra lỗi.
Xác thực tên tệp
Hàm này kiểm tra xem biến 'FileName' có phải là tên tệp hợp lệ không:
| 1234567891011121314151617181920212223242526272829303132333435363738394041 | Hàm ValidateFileName (ByVal FileName As String) As BooleanApplication.ScreenUpdating = SaiDim wb As Workbook'Kiểm tra không có gì trong tên tệp.Nếu FileName = "" ThìValidateFileName = SaiGoTo ExitProcKết thúc nếu'Tạo tệp tạm thờiLỗi GoTo Không hợp lệ:Đặt wb = Workbooks.Addwb.SaveAs Environ ("tạm thời") & "\" & FileName & ".xlsx", 51Khi có lỗi Tiếp tục tiếp theo'Đóng tệp Excel Tempwb. Đóng Sai'Xóa tệp Excel TempKill Environ ("tạm thời") & "\" & FileName & ".xlsx"'Tên tệp đã được xác thực - Chức năng thoátValidateFileName = TrueGoTo ExitProc'Nếu không thể tạo tệpTên không hợp lệ:Khi có lỗi Tiếp tục tiếp theo'Đóng tệp Excel Tempwb. Đóng Sai'Tên tệp không được xác thực - Chức năng thoátValidateFileName = SaiExitProc:Application.ScreenUpdating = SaiChức năng kết thúc |
Bạn có thể gọi hàm như sau:
| 12345 | Sub test_ValidateFileName ()Debug.Print ValidateFileName ("fda? /")Kết thúc Sub |
Quy trình kiểm tra này sẽ xuất ra TRUE hoặc FALSE cho Cửa sổ ngay lập tức.
