SmartTag trong VBA. (1 người xem)

  • Thread starter Thread starter sealand
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

sealand

Thành viên gạo cội
Tham gia
16/5/08
Bài viết
4,883
Được thích
7,688
Giới tính
Nam
Nghề nghiệp
Kế Toán
Mình có đoạn code như sau:

Mã:
Sub ExecuteASmartTag()
Dim strAction As String
strAction = "Insert refreshable stock price..."
    ActiveWorkbook.SmartTagOptions.EmbedSmartTags = True
    Application.SmartTagRecognizers.Recognize = True
    With Range("A1")
        .Formula = "MSFT"
        .SmartTags.Add( _
        "urn:schemas-microsoft-com:office:smarttags#stockticker") _
        .SmartTagActions(strAction).Execute
    End With
End Sub

Muốn test nó các bạn mở file Excel mới, vào VBA thêm 1 Module rồi Paste code này vào là được.(Vì vậy mình không gửi file kèm).
Giờ thì bạn chạy nó, Code chép dữ liệu trên Internet về Sheet nhanh đến khâm phục. Mặc dù rất mê nhưng không hiểu nó hoạt động ra sao. Mình muốn nhờ các bạn chỉ giúp:

1/Giải thích cơ chế hoạt động của module này. Các điều kiện có thể thực hiện được.
2/Có thể áp dụng để lấy dữ liệu trên các E_banking về file mà không phải mở Website liên quan được không? Nếu được hướng dẫn giùm cách thức thực hiện.
3/Đối với Công ty có hàng loạt các đại lý bán hàng ở trên địa bàn xa nhau, liệu có thể áp dụng để giao nhận báo cáo hàng ngày thay vì gửi Email hay Fax được không?

Mình hơi tham, câu hỏi hơi nhiều nhưng thực sự mình không tự sưu tầm nghiên cứu được cái này. Mong các bạn giúp.
Xin cám ơn các bạn.
 
Lần chỉnh sửa cuối:
Web KT

Bài viết mới nhất

Trả lời
14
Đọc
5K
Back
Top Bottom