VBA Web Scraping sang Excel

Data Scra là gì?ping?

Thu thập dữ liệuping là kỹ thuật giúp extracBạn muốn chuyển thông tin mong muốn từ một trang web HTML sang một tệp cục bộ trên máy tính của mình. Thông thường, tệp cục bộ đó là tệp Excel, tệp Word hoặc bất kỳ tệp nào khác. Microsoft Ứng dụng văn phòng. Nó giúp chuyển tải thông tin quan trọng từ trang web.

Thu thập dữ liệuping Điều này trở nên có giá trị trong một dự án nghiên cứu phụ thuộc vào internet hàng ngày. Để minh họa, hãy xem xét một nhà giao dịch chứng khoán trong ngày sử dụng macro Excel để lấy thông tin thị trường từ một trang web tài chính vào bảng tính Excel bằng VBA.

Cách chuẩn bị macro Excel trước khi quét dữ liệuping (Trình duyệt web IE)

Có một số điều kiện tiên quyết cần phải thực hiện trên tệp macro Excel trước khi bắt đầu quá trình thu thập dữ liệu.ping quá trình.

Các điều kiện tiên quyết này như sau:

Bước 1) Mở một macro dựa trên Excel và truy cập tùy chọn Nhà phát triển của Excel.

Bước 2) Chọn tùy chọn Visual Basic trong dải băng Nhà phát triển.

Bước 3) Chèn một mô-đun mới.

Bước 4) Khởi tạo một chương trình con mới.

Sub test()
End Sub

Kết quả của mô-đun sẽ như sau:

Bước 5) Truy cập tùy chọn Tham chiếu trong tab Công cụ và tham chiếu đến... Microsoft Thư viện đối tượng HTML và Microsoft Kiểm soát Internet.

Các tệp sau đây phải được tham chiếu đến mô-đun, vì chúng giúp mở Internet Explorer và hỗ trợ lập trình macro.

Giờ đây, tệp Excel đã sẵn sàng để tương tác với Internet Explorer. Bước tiếp theo là tích hợp các tập lệnh macro giúp hỗ trợ việc thu thập dữ liệu.ping ở định dạng HTML.

Cách mở Internet Explorer bằng Excel VBA

Bước 1) Khởi tạo biến trong chương trình con như hình bên dưới.

Sub test()
Dim ie As New InternetExplorer 
Dim doc As New HTMLDocument

Bước 2) Để mở Internet Explorer bằng VBA, hãy viết ie.Visible = True và nhấn phím F5.

Sub test()
Dim ie As New InternetExplorer 
Dim doc As New HTMLDocument
ie.Visible = True

Mô-đun sẽ có cấu trúc như sau:

Cách mở trang web trong Internet Explorer bằng VBA

Dưới đây là các bước để mở một trang web trong Internet Explorer bằng VBA.

Bước 1) Sau khi bạn có thể truy cập Internet Explorer bằng Excel VBA, bước tiếp theo là truy cập một trang web bằng VBA. Điều này được thực hiện dễ dàng nhờ thuộc tính Navigate, trong đó... URL được truyền dưới dạng dấu ngoặc kép. Hãy làm theo các bước được hiển thị.

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object
ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE

Bước 2) Nhấn phím F5 để thực thi macro. Trang web sau sẽ mở ra như hình minh họa.

Giờ đây, macro Excel đã sẵn sàng thực hiện thao tác quét.ping các chức năng. Bước tiếp theo cho thấy cách thông tin có thể được trích xuất.tracted từ Internet Explorer bằng VBA.

Cách trích xuất thông tin từ một trang web bằng VBA

Giả sử nhà giao dịch trong ngày muốn truy cập dữ liệu từ trang web mỗi ngày. Mỗi lần nhà giao dịch nhấp vào nút, dữ liệu thị trường sẽ tự động được tải vào Excel.

Từ trang web trên, cần phải kiểm tra một phần tử và quan sát cấu trúc dữ liệu.

Bước 1) Truy cập mã nguồn HTML bên dưới bằng cách nhấn phím Control + Shift + Tôi.

<table class="datatable">
<thead>
<tr>
<th>Company</th>
<th>Group</th>
<th>Pre Close (Rs)</th>
<th>Current Price (Rs)</th>
<th>% Change</th>
</tr>

Mã nguồn sẽ như sau:

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object
ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document

Như bạn thấy, dữ liệu được cấu trúc dưới dạng một bảng HTML duy nhất. Do đó, để trích xuất toàn bộ dữ liệu từ bảng HTML này, bạn cần thiết kế một macro thu thập dữ liệu dưới dạng một tập hợp.

Sau đó, dữ liệu được dán vào Excel. Để đạt được kết quả mong muốn, hãy thực hiện các bước dưới đây.

Bước 2) Khởi tạo tài liệu HTML trong chương trình con.

Bước 3) Khởi tạo phần tử tập hợp có trong tài liệu HTML.

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object
ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set ecoll = doc.getElementsByTagName("table")

Bước 4) Khởi tạo các ô trong bảng tính Excel bằng cách sử dụng vòng lặp lồng nhau như hình minh họa.

Sub test()
Dim ie As New InternetExplorer
Dim doc As New HTMLDocument
Dim ecoll As Object

ie.Visible = True
ie.Navigate "https://demo.guru99.com/test/web-table-element.php"
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
Set doc = ie.document
Set ecoll = doc.getElementsByTagName("table")

Excel có thể được khởi tạo bằng thuộc tính Range hoặc thuộc tính Cells của trang tính. Để giảm độ phức tạp của kịch bản VBA, dữ liệu tập hợp được khởi tạo bằng thuộc tính Cells của Trang tính 1 trong sổ làm việc.

Sau khi kịch bản macro đã sẵn sàng, hãy gán chương trình con cho một nút trong Excel và thoát khỏi mô-đun VBA. Đặt tên cho nút là Làm mới hoặc bất kỳ tên nào phù hợp. Trong ví dụ này, nút được đặt tên là Làm mới.

Bước 5) Nhấn nút Làm mới để xem kết quả bên dưới.

Bước 6) So sánh kết quả trong Excel với kết quả trong Internet Explorer.

Câu Hỏi Thường Gặp