tailieunhanh - Tự động hóa trong thiết kế cầu đường part 7

Sub SaveAs() Dim fileSaveName As String fileSaveName = ( _ InitialFileName:="TenTep", _ FileFilter:="Excel Workbook (*.xls), *.xls", _ Title:="Luu tap tin") If fileSaveName "False" Then MsgBox "Save as " & fileSaveName End If End Sub . Hộp thoại chọn thư mục – Đối tượng FileDialog Nếu cần người dùng chọn một thư mục để thực hiện thao tác nào đó, có thể thực hiện theo nhiều cách khác nhau, | CHƯƠNG IV LẬP TRÌNH TRÊN MICROSOFT EXCEL Sub SaveAs Dim fileSaveName As String fileSaveName _ InitialFileName TenTep _ FileFilter Excel Workbook .xls .xls Title Luu tap tin If fileSaveName False Then MsgBox Save as fileSaveName End If End Sub . Hộp thoại chọn thư mục - Đối tượng FileDialog Nếu cần người dùng chọn một thư mục để thực hiện thao tác nào đó có thể thực hiện theo nhiều cách khác nhau nhưng đơn giản nhất vẫn là sử dụng đối tượng FileDialog. Ví dụ sau hiển thị một hộp thoại cho phép người dùng chọn thư mục. Sau đó hiển thị tên thư mục bằng cách sử dụng hộp thoại MsgBox. Tên tệp sẽ được truy cập thông qua thuộc tính SelectedItems của đối tượng FileDialog. Sub GetAFolder With msoFileDialogFolderPicker .InitialFileName .Title Please select a location for the backup . Show If . 0 Then MsgBox Canceled Else MsgBox .SelectedItems 1 End I f End With End Sub Đối tượng FileDialog cho phép chỉ định thư mục ban đầu bằng cách gán giá trị cho thuộc tính InitialFileName. Trong ví dụ trên đã sử dụng thư mục mặc định của Excel làm thư mục ban đầu. . Các hộp thoại mặc định trong Excel - Tập đối tượng Dialogs Tập đối tượng Dialogs của đối tượng Application bao gồm 258 phần tử thể hiện hầu hết các hộp thoại mặc định trong Excel. Mỗi hộp thoại có một hằng số được định nghĩa trước giúp người dùng có thể xác định được hộp thoại cần hiển thị một cách dễ dàng. Chẳng hạn như khi muốn hiển thị hộp thoại GoTo của Excel sử dụng hằng số xlDialogFormulaGoto. Sử dụng phương thức Show để hiển thị các hộp thoại. Ví dụ sau sẽ hiển thị hộp thoại Go To của Excel. xlDialogFormulaGoto .Show Người lập trình còn có thể viết mã lệnh để kiểm tra cách thức đóng hộp thoại. Trong ví dụ sau biến Result sẽ trả về TRUE nếu người dùng kích chuột vào nút OK và FALSE nếu kích chuột vào nút Cancel hoặc nhấn phím ESC. Result xlDialogFormulaGoto .Show Cần phải .