Tham số Giải thích
FileFilter Chuỗi chứa bộ lọc tệp.
FilterIndex Số thứ tự của bộ lọc tệp mặc định.
Title Tiêu đề của hộp thoại, giá trị mặc định là “Open”.
ButtonText Không sử dụng.
MultiSelect Nếu bằng TRUE, người dùng có thể chọn nhiều tệp cùng một lúc. Mặc định là FALSE.
Tham số FileFilter quy định các phần tử sẽ được hiển thị trong danh sách đổ xuống “File of type” của hộp thoại. Mỗi phần tử tương ứng với một loại tệp nào đó. Phần tử là một cặp giá trị gồm tên sẽđược hiển thị trong danh sách và phần mở rộng của loại tệp tương ứng. Nếu không gán giá trị cho tham số này, giá trị mặc định sẽ là:
“All Files (*.*),*.*”
Chú ý phần đầu của chuỗi này (phần nằm phía trước dấu phẩy - All Files (*.*)) là đoạn văn bản sẽđược hiển thị trong danh sách. Còn phần thứ hai của chuỗi (phần nằm sau dấu phẩy – *.*) chính là phần mở rộng của tệp sẽđược hiển thị.
Ví dụ sau minh hoạ cách tạo một chuỗi chứa trong biến Filt có thể dùng để truyền vào tham số FileFilter của phương thức GetOpenFilename. Như trong trường hợp này, người dùng có thể chọn 2 loại tệp (và một lựa chọn cho tất cả các tệp).
Filt = “Text Files (*.txt),*.txt,” & _
“Comma Separated Files (*.csv),*.csv,” & _ “All Files (*.*),*.*”
Ví dụ sau sẽ nhắc người dùng chọn một tệp, sau đó sẽ hiển thị tên tệp được chọn. Sub GetImportFileName()
Dim Filt As String
Dim FilterIndex As Integer Dim Title As String
Dim FileName As String ' Gán bộ lọc tệp
Filt = "Text Files (*.txt),*.txt," & _
"Comma Separated Files (*.csv),*.csv," & _ "All Files (*.*),*.*"
' Hiển thị các tệp *.csv là mặc định FilterIndex = 2
' Gán tiêu đề cho hộp thoại Title = "Chon tep"
' Lấy tên tệp FileName = Application.GetOpenFilename _ (FileFilter:=Filt, _ FilterIndex:=FilterIndex, _ Title:=Title) ' Thoát nếu nhấn nút Cancel If FileName = "False" Then
MsgBox "Khong tep nao duoc chon." Exit Sub
End If
' Hiển thị tên tệp đầy đủ
166
End Sub
Hình IV-18: Hộp thoại Open
8.2.3.Hộp thoại Save As – Hàm GetSaveAsFilename
Phương thức GetSaveAsFilename cũng tương tự như phương thức GetOpenFileName. Phương thức này sẽ hiển thị hộp thoại Save As, cho phép người dùng chọn hoặc chỉđịnh tệp để lưu, sau đó sẽ trả về tên tệp đầy đủ nhưng không thực hiện thao tác lưu nào cả.
Cú pháp của phương thức này như sau:
GetSaveAsFilename(InitialFilename,FileFilter,FilterIndex,Title,Button Text)
Tham số Giải thích
InitialFilename Xác định tên tệp gợi ý ban đầu
FileFilter Chuỗi chứa bộ lọc tệp.
FilterIndex Số thứ tự của bộ lọc tệp mặc định.
Title Tiêu đề của hộp thoại, giá trị mặc định là “Save As”.
ButtonText Không sử dụng.
Ví dụ sau sẽ hiển thị hộp thoại Save As để người dùng nhập vào tên tệp, sau đó sẽ hiển thị tên tệp được lựa chọn.