VBA: Mở hàng loạt liên kết Website từ Excel bằng Google Chrome

Trong một số quy trình làm việc, dữ liệu không thể lấy được trực tiếp bằng Tool hoặc API mà buộc phải kiểm tra bằng mắt (Manual Check).

Ví dụ: Bạn có hàng nghìn mã ID đơn hàng. Thông thường, bạn phải vào Website -> Tìm kiếm ID -> Click vào kết quả -> Mới ra được trang chứa dữ liệu. Cách thông minh hơn: Nếu bạn đã "giải mã" được cấu trúc URL (ví dụ: google.com/abc/ID_Của_Bạn), bạn có thể dùng Excel để tự động nối chuỗi tạo ra hàng loạt Link trực tiếp. Lúc này, vấn đề duy nhất là: Làm sao để mở hàng trăm link đó lên trình duyệt để check bằng mắt một cách nhanh nhất?

Đoạn code dưới đây chính là "nút bấm" để bạn mở hàng loạt tab Chrome từ danh sách đã chuẩn bị, giúp việc kiểm soát dữ liệu trở nên cực kỳ nhanh chóng.

Mở 1 cell

Sub CopyActiveCellLinkAndOpenChrome()

Dim link As String

Dim chromePath As String

link = ActiveCell.Value

chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

Shell chromePath & " " & link, vbNormalFocus

End Sub

Mở hàng loạt cells

Sub CopyActiveCellsLinkAndOpenChrome()

Dim chromePath As String

Dim cell As Range

chromePath = "C:\Program Files\Google\Chrome\Application\chrome.exe"

For Each cell In Selection

link = cell.Value

Shell chromePath & " " & link, vbNormalFocus

Next cell



End Sub