Điều khiển Internet Explorer bằng VBA là một chủ đề khá mới mẻ tại Việt Nam. Trong khuôn khổ bài viết này mình sẽ giới thiệu các bước để làm quen với việc Control IE by VBA.
Trước khi bước vào bài học, yêu cầu máy tính bạn cần cài đặt IE11 trở lên. Trình duyệt IE cũ hơn có thể không hoạt động được.
1. Yêu cầu:
Trên excel các bạn cần thiết định thư viện:
Microsoft HTML Object Library
Microsoft Internet Controls
Thông qua các bước sau:
Hàm CreateObject với tư cách là đối tượng từ ứng dụng bên ngoài mà chúng ta muốn thao tác, ở đây là trình duyệt IE, cho nên không thể thiếu thao tác tạo đối tượng Object IE khi bắt đầu chương trình.
Việc sử dụng hàm CreateObject cũng có điểm chú ý, sau đây tôi sẽ thuyết minh cho các bạn.
Set Tên Object = CreateObject("Tên ứng dụng . Tên class")
Cấu trúc: CreateObject(class,[servername])
Tham số Class: Không thể giản lược. Bắt buộc phải khai báo.
Đối với tham số class, khi tạo đối tượng object sẽ chỉ định tên theo cú pháp như sau app_name.object_type
app_name: Chỉ định rõ tên ứng dụng cung cấp đối tượng (object) cho chúng ta làm việc
object_type: Chỉ định rõ chủng loại class của object
Ví dụ:
InternetExplorer.Application・・・Ta làm việc với ứng dụng Internet Explorer
Excel.Application・・・Excel
Word.Application・・・Word
Access.Application・・・Access
PowerPoint.Application・・・PowerPoint
Tham số severname: Có thể giản lược.
Trong trường hợp sử dụng nội bộ trong máy tính của chúng ta thì chỉ định để trống, viết như sau (""). Trong trường hợp sử dụng từ mạng network bên ngoài, thì phải chỉ rõ tên sever. (Tạm thời các bạn không cần quan tâm tới thông số severname cũng được vì ứng dụng IE đã có trên máy tính của chúng ta rồi).
Một số ứng dụng chúng ta hay dùng khi code VBA.
Kết quả:
Nguồn:
Trước khi bước vào bài học, yêu cầu máy tính bạn cần cài đặt IE11 trở lên. Trình duyệt IE cũ hơn có thể không hoạt động được.
1. Yêu cầu:
Trên excel các bạn cần thiết định thư viện:
Microsoft HTML Object Library
Microsoft Internet Controls
Thông qua các bước sau:
- ① Mở màn hình soạn thảo code VBA(VBE): Các bạn có thể sử dụng tổ hợp phím ALT+F11 để mở.
- ②Menu => Tools => References
- ③ Tích chọn「Microsoft HTML Object Library」và「Microsoft Internet Controls」
- ④ Click OK.
Bạn cần đăng nhập để thấy đính kèm
Mã:
Sub IE()
Dim objIE As InternetExplorer
'Tao doi tuong IE(InternetExplorer)
Set objIE = CreateObject("InternetExplorer.Application")
'Khoi dong IE(InternetExplorer)
objIE.Visible = True 'Neu de la False thi IE van duoc khoi dong nhung ban se khong nhin thay trinh duyet dang duoc open.
End SubViệc sử dụng hàm CreateObject cũng có điểm chú ý, sau đây tôi sẽ thuyết minh cho các bạn.
Set Tên Object = CreateObject("Tên ứng dụng . Tên class")
Cấu trúc: CreateObject(class,[servername])
Tham số Class: Không thể giản lược. Bắt buộc phải khai báo.
Đối với tham số class, khi tạo đối tượng object sẽ chỉ định tên theo cú pháp như sau app_name.object_type
app_name: Chỉ định rõ tên ứng dụng cung cấp đối tượng (object) cho chúng ta làm việc
object_type: Chỉ định rõ chủng loại class của object
Ví dụ:
InternetExplorer.Application・・・Ta làm việc với ứng dụng Internet Explorer
Excel.Application・・・Excel
Word.Application・・・Word
Access.Application・・・Access
PowerPoint.Application・・・PowerPoint
Tham số severname: Có thể giản lược.
Trong trường hợp sử dụng nội bộ trong máy tính của chúng ta thì chỉ định để trống, viết như sau (""). Trong trường hợp sử dụng từ mạng network bên ngoài, thì phải chỉ rõ tên sever. (Tạm thời các bạn không cần quan tâm tới thông số severname cũng được vì ứng dụng IE đã có trên máy tính của chúng ta rồi).
Một số ứng dụng chúng ta hay dùng khi code VBA.
Bạn cần đăng nhập để thấy đính kèm
Mã:
Sub sample()
Dim objIE As InternetExplorer 'Kieu doi tuong la InternetExplorer
'Tao doi tuong IE(InternetExplorer)
Set objIE = CreateObject("InternetExplorer.Application")
'Hien thi trinh duyet IE(InternetExplorer)
objIE.Visible = True
'Truy cap vao dia chi
objIE.Navigate "https://tuhocvba.net/"
'Menh lenh cho toi khi trang web duoc mo hoan toan
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
'De mo mot trang web con phu thuoc vao toc do truy cap mang, vi vay lenh tren co nghia la chờ cho tới khi web được load hoàn toàn.
End Sub
Bạn cần đăng nhập để thấy đính kèm
Nguồn:
Bạn cần đăng nhập để thấy link
