148
Application.Quit
End Sub
7.1.2. Khoá tương tác người dùng
Trong một số trường hợp, để tránh người dùng thoát khỏi Excel khi đang thực hiện một số
bước tính toán mất nhiều thời gian, cần phải giới hạn tương tác giữa người dùng và chương
trình Excel. Đối tượng Application có một số phương thức/thuộc tính để thực hiện điều này:
Ø
Ø

Gán thuộc tính
DisplayAlerts bằng FALSE để ẩn các hộp thoại Excel khi đang thực thi
mã lệnh.
Ø
Ø

Gán thuộc tính
Interactive bằng FALSE để người dùng hoàn toàn không thể tương tác
được với Excel.
Ø
Ø

Gán thuộc tính
ScreenUpdating bằng FALSE để tắt quá trình cập nhật lại màn hình, làm
ẩn đi những thay đổi diễn ra trong lúc thực thi mã lệnh.
Những cách trên đều cần phải thực hiện ở đầu đoạn mã lệnh và phải thực hiện lại ở cuối của
đoạn mã lệnh để thiết lập lại các giá trị mặc định, nếu không sẽ làm khoá hoàn toàn chương
trình Excel.
Ví dụ sau minh hoạ cách tạm thời khoá tương tác ngườ

C
C
H
H
Ư
Ư
Ơ
Ơ
N
N
G
G


I
I
V
V
:
:


L
L
Ậ
Ậ
P
P



O
O
S
S
O
O
F
F
T
T


E
E
X
X
C
C
E
E
L
L



149

Sub OpenCascadeWindows()
ActiveWindow.NewWindow
Application.Windows.Arrange xlArrangeStyleCascade, True

Thông thường, khi sử dụng VBA trong Excel, chương trình Excel đã được khởi động sẵn và
người lập trình không cần quan tâm đến các thao tác để khởi động chương trình Excel. Tuy
nhiên, vẫn có những lúc cần khởi động chương trình Excel từ chương trình khác, chẳng hạn
như khi muốn xuất dữ liệu tính toán sang Excel chẳng hạn. Lúc đó, cần phải lập trình để khởi
động Excel, hay nói theo cách đơn giản h
ơn, là tạo đối tượng Application chứa ứng dụng Excel.
Để thực hiện được việc này, cần phải thực hiện các bước sau:
1. Tham chiếu đến với thư viện mở rộng của chương trình Excel.
2. Viết mã lệnh thực hiện việc khởi động chương trình Excel (tạo đối tượng Application của
Excel).
Dưới đây sẽ trình bày cách thức khởi động chương trình Excel từ VBA trong AutoCAD.
Tham
chiếuthưviệnmởrộngcủachươngtrìnhExcel
1. Khởi động chương trình AutoCAD Ö Khởi động VBAIDE trong AutoCAD bằng cách
nhấn tổ hợp phím ALT+F11. 150
2. Chọn trình đơn Tools Ö References… để hiển thị hộp thoại References dùng để tham
chiếu đến thư viện mở rộng.
3. Trong danh sách các thư viện có sẵn, chọn Microsoft Excel 11.0 Object Library Ö Chọn
OK. Như vậy là dự án VBA trong AutoCAD đã có tham chiếu đến thư viện mở rộng của
Excel, nghĩa là người lập trình có thể truy cập đến mô hình đối tượng của Excel ngay từ
bên trong VBA c
ủa AutoCAD

Hình IV-14: Hộp thoại References trong VBAIDE của AutoCAD.
CHÚ Ý Tuỳ từng phiên bản chương trình Excel đang được sử dụng mà tên của thư viện
mở rộng Excel có thể khác nhau.
ViếtmãlệnhkhởiđộngchươngtrìnhExcel



I
I
V
V
:
:


L
L
Ậ
Ậ
P
P


T
T
R
R
Ì
Ì
N
N
H
H



E
E
X
X
C
C
E
E
L
L



151

‘Hiển thị cửa sổ chính của Excel
App.Visible = True
MsgBox "Now running " + App.Name + _
" version " + App.Version
‘====== Kết thúc việc khởi động chương trình Excel ======

‘Bắt đầu thực hiện các thao tác trong Excel
‘giống như khi thực hiện trong môi trường VBA của Excel
Dim WBook As Workbook, WSheet As Worksheet
Set WBook = App.Workbooks.Add
Set WSheet = WBook.Worksheets(1)
WSheet.Range("A1") = "Vi du ket noi voi Excel"
WBook.SaveAs "C:\Test.xls"
WBook.Close
Set WBook = Nothing


152
Để đóng workbook, sử dụng phương thức Close có trong đối tượng workbook. Phương thức
này không tự động lưu workbook, nhưng khi có sự thay đổi nào đó chưa lưu, Excel sẽ hiển thị
hộp thoại SaveChanges trước khi đóng workbook. Người lập trình có thể tắt hộp thoại này bằng
cách truyền thêm tham số vào cho phương thức thức Close:
ThisWorkbook.Close True
Đoạn mã sẽ lưu tất cả các thay đổi và sau đó đóng workbook hiện hành. Để đóng mà không lưu
những thay đổi của workbook, sử dụng đoạn mã sau:
ThisWorkbook.Close False
Để đóng tất cả các workbook, sử dụng phương thức Close có trong tập đối tượng Workbooks.
Tuy nhiên phương thức này không có tham số, vì vậy hộp thoại SaveChanges sẽ xuất hiện khi
có workbook nào đó chưa được lưu.
Sub TestCloseAll()
Workbooks.Close
End Sub
7.3. Làm việc với Worksheet
7.3.1. Tạo mới, xoá và đổi tên worksheet
Tạomớiworksheet
Để tạo mới Worksheet, sử dụng phương thức Add có trong tập đối tượng Worksheets hoặc tập
đối tượng Sheets.
Sub Tao_moi_worksheet()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
‘Thêm một worksheet vào trước worksheet hiện hành
Set ws1 = Worksheets.Add
‘Thêm một worksheet khác vào sau sheet cuối cùng của workbook
Set ws2 = Sheets.Add(After:=Sheets(Sheets.Count), Type:=xlWorksheet)
End Sub
Do tập đối tượng Sheets bao gồm nhiều loại sheet khác nhau nên khi thêm worksheet sử dụng