Bài viết này sẽ hướng dẫn bạn cách sử dụng phương thức Create Object trong VBA.
VBA là một ngôn ngữ hướng đối tượng - nó sử dụng các thủ tục để điều khiển và tạo các đối tượng.
Tạo đối tượng
Chúng ta có thể sử dụng phương pháp Tạo Đối tượng để tạo Đối tượng trong ứng dụng Microsoft Office. Ví dụ: nếu chúng ta đang viết mã VBA trong Excel và muốn mở một bản sao của Word, chúng ta có thể sử dụng phương pháp Create Object để tạo một phiên bản Word mới.
Ví dụ:
| 12345 | Sub CreateWordInstance ()Dim wdApp As ObjectĐặt wdApp = CreateObject ("Word.Application")wdApp.Vible = TrueKết thúc Sub |
Tương tự, chúng ta có thể tạo một phiên bản mới của PowerPoint hoặc Access.
| 12345 | Sub CreatePowerPointApplicationDim ppApp làm đối tượngĐặt ppApp = CreateObject ("PowerPoint.Application")ppApp.Vible = TrueKết thúc Sub |
Chúng ta cũng có thể sử dụng Create Object để tạo các đối tượng khác với Application Object. Chúng ta có thể sử dụng nó để tạo một Trang tính Excel chẳng hạn.
| 1234567 | Sub CreateExcelSheet ()Dim xlSheet As ObjectĐặt xlSheet = CreateObject ("Excel.Sheet")xlSheet.Application.Vosystem = TruexlSheet.Application.Range ("A2") = "Chào buổi sáng"Đặt xlSheet = Không có gìKết thúc Sub |
Tuy nhiên, điều này thực sự tạo ra một phiên bản Excel mới - nó không tạo ra trang tính trong phiên bản đã được mở. Vì lý do đó, chúng ta phải đặt Ứng dụng của trang tính mới (ví dụ: phiên bản mới của Excel) thành Hiển thị để có thể nhìn thấy đối tượng.
Trong tất cả các ví dụ ở trên, chúng tôi đang sử dụng Late Binding - do đó chúng tôi khai báo các biến dưới dạng Đối tượng. Chúng ta cũng có thể sử dụng Early Binding bằng cách đặt một tham chiếu đến Word hoặc PowerPoint trong VBA Project của chúng tôi và sau đó viết Sub Thủ tục như được hiển thị bên dưới. Để hiểu thêm về ràng buộc Muộn và Sớm, hãy nhấp vào đây.
Đầu tiên đối với Liên kết sớm, trong VBE, chúng tôi đặt một tham chiếu đến Microsoft Word.
bên trong Thực đơn thanh, chọn Công cụ> Tham khảo và cuộn xuống để tìm tham chiếu đến Thư viện đối tượng Microsoft Word 16.0.
Đảm bảo rằng tham chiếu được chọn, sau đó nhấp vào VÂNG.
LƯU Ý: phiên bản có thể không phải là 16.0, tất cả phụ thuộc vào phiên bản Microsoft Office bạn đang chạy trên PC của mình!
Bây giờ, chúng tôi khai báo Đối tượng bằng cách sử dụng Early Binding - điều này có nghĩa là, thay vì khai báo wdApp như một Đối tượng, chúng tôi khai báo nó dưới dạng Ứng dụng Word. Phần còn lại của mã tương tự như khi chúng ta sử dụng Late Binding ở trên.
| 12345 | Sub CreateWordInstance ()Làm mờ wdApp như một Word mới.Đặt wdApp = CreateObject ("Word.Application")wdApp.Vible = TrueKết thúc Sub |
