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

Sub SaveAs() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:="TenTep", _ FileFilter:="Excel Workbook (*.xls), *.xls", _ Title:="Luu tap tin") If fileSaveName "False" Then MsgBox "Save as " & fileSaveName End If End Sub8.2.4. 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,
Nội dung trích xuất từ tài liệu:
Tự động hóa trong thiết kế cầu đường part 7 CHƯƠNGIV:LẬPTRÌNHTRÊNMICROSOFTEXCEL Sub SaveAs() Dim fileSaveName As String fileSaveName = Application.GetSaveAsFilename( _ InitialFileName:=TenTep, _ FileFilter:=Excel Workbook (*.xls), *.xls, _ Title:=Luu tap tin) If fileSaveName False Then MsgBox Save as & fileSaveName End If End Sub8.2.4. Hộp thoại chọn thư mục – Đối tượng FileDialogNế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 theonhiề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ínhSelectedItems của đối tượng FileDialog. Sub GetAFolder() With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = Application.DefaultFilePath & “” .Title = “Please select a location for the backup” .Show If .SelectedItems.Count = 0 Then MsgBox “Canceled” Else MsgBox .SelectedItems(1) End If 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ínhInitialFileName. Trong ví dụ trên đã sử dụng thư mục mặc định của Excel làm thư mục banđầu.8.2.5. Các hộp thoại mặc định trong Excel – Tập đối tượng DialogsTậ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áchộ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úpngườ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ư khimuố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 Tocủa Excel. Application.Dialogs(xlDialogFormulaGoto).ShowNgườ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ộtvào nút Cancel hoặc nhấn phím ESC. Result = Application.Dialogs(xlDialogFormulaGoto).ShowCần phải lưu ý rằng, tính năng này không được trình bày rõ ràng trong các tài liệu trợ giúp củaExcel. Các tài liệu trợ giúp cho phần này rất sơ lược, không đề cập đến một sự thật: các hộp 167 thoại hiển thị khi gọi bằng VBA không hoàn toàn giống như khi gọi thông qua trình đơn trong Excel. Chính vì vậy, chẳng có cách nào khác ngoài việc thử nghiệm để kiểm tra hoạt động của các hộp thoại. CHÚ Ý Các hộp thoại hiển thị khi gọi bằng VBA không hoàn toàn giống như khi gọi thông qua trình đơn trong Excel. Trong trường hợp của hộp thoại Go To, khi hiển thị bằng VBA, nút Special bị mờ đi, không hoàn toàn giống như khi chọn từ trình đơn Edit Go To. Ngoài ra, còn có một vấn đề khác nữa, đó là việc không thể hiển thị được các hộp thoại có nhiều thẻ khác nhau. Lấy ví dụ với hộp thoại Format Cell, không có cách nào để hiển thị đầy đủ hộp thoại này với nhiều thẻ khác nhau từ VBA, thay vào đó, chỉ có thể hiển thị một thẻ tại một thời điểm. Đoạn mã sau chỉ hiển thị được thẻ Alignment của hộp thoại Format Cells: Application.Dialogs(xlDialogAlignment).Show Để hiển thị các thẻ khác trong hộp thoại Format Cells, phải sử dụng riêng lẻ các hằng số đã được định nghĩa trước như: xlDialogFormatNumber, xlDialogBorder, xlDialogCellProtection, xlDialogPatterns, hoặc xlDialogFontProperties.168 CHƯƠNGIV:LẬPTRÌNHTRÊNMICROSOFTEXCELCó rất nhiều hằng số được định nghĩa trước tương ứng với một hộp thoại trong Excel. Danhsách đầy đủ các hằng số này có thể được tra cứu với Object Browser:1. Trong mô đun mã lệnh VBAIDE, nhấn F2 để khởi động Object Browser.2. Trong cửa sổ Object Browser, chọn Excel ở danh sách phía trên.3. Trong danh sách thứ 2, gõ vào xlDialog.4. Kích chuột vào biểu tượng hình ống nhòm. CHÚ Ý Hiển thị một hộp thoại không đúng ngữ cảnh sẽ làm phát sinh lỗi. Ví dụ như khi đang chọn một chuỗi số liệu trong một biểu đồ mà lại hiển thị hộp thoại Fonts (hằng số xlDialogFontProperties) thì sẽ xuất hiện thông báo lỗi bởi vì hộp thoại này xuất hiện trong tình huống này là không thích hợp.Dưới đây là danh số một số hằng số hay được sử dụng:Hằng số Mô tảxlDialogOpen Hộp thoại OpenxlDialogSaveAs Hộp thoại Save AsxlDialogPageSetup Hộp thoại Page SetupxlDialogPrint Hộp thoại PrintxlDialogPrinterSetup Hộp thoại Printer Setup GỢI Ý Các hằng số tương ứng khi sử dụng tập đối tượng Dialogs được bắt đầu bằng xlDialog và tiếp theo là tên của hộp thoại (viết liền nhau). Tron ...