Bạn muốn lấy bảng nào?
E muốn lấy bảng dow jone live quote, chỗ e khoanh đó bác
lấy một chỗ đó thôi hả bạn?E muốn lấy bảng dow jone live quote, chỗ e khoanh đó bác
Vâng bác
REALTIME LIVE QUOTES*
Tks bác
. Cái realtime live quote thì đầu h chiều nó ko chạy theo cái dow jonesMình thấy 2 cái đấy bằng nhau, có khi nào nó lấy từ cái real time live đưa lên djones không?Tks bác
Bh với buổi tối thì nó chạy bằng nhau. Hay bác cho e xin cái bảng reeal time đó trc nhé
, nếu có vấn đề về thời gian nó cập nhật thì e làm phiền bác sau Nó không nhảy như web được, hình như sau vài phút nó mới thay đổi, bạn sài đỡ code này xem:Bh với buổi tối thì nó chạy bằng nhau. Hay bác cho e xin cái bảng reeal time đó trc nhé
Sub a()
Dim hreq As Object, html As Object, tag_table As Object
Dim ncol As Long, nrow As Long
Set hreq = CreateObject("winhttp.winhttprequest.5.1")
Set html = CreateObject("htmlfile")
URL = "https://markets.businessinsider.com/index/realtime-chart/dow_jones"
With hreq
.Open "GET", URL, False
.send
html.body.innerhtml = .responsetext
End With
Set tag_table = html.getelementsbytagname("table")(2)
For nrow = 0 To tag_table.Rows.Length - 1
For ncol = 0 To tag_table.Rows(1).Cells.Length - 1
Cells(nrow + 1, ncol + 1) = tag_table.Rows(nrow).Cells(ncol).innertext
Next
Next
Set hreq = Nothing: Set html = Nothing
Application.OnTime Now() + TimeValue("00:00:30"), "a"
End SubLâu vậy ah bác
, có thể nhanh bằng tốc độ cập nhật trên web ko ạMình chịu rồi bạn.Lâu vậy ah bác
Dù sao cũng cảm ơn bácMình chịu rồi bạn.
. Vậy bác có tài liệu về cái lấy dữ liệu từ web thông qua những cái như CreateObject("MSXML2.ServerXMLHTTP") ko, cho e xin với , ko có cách nào ah bác, e nghĩ là khi nó đã cập nhật trên web rồi thì sau đó mình có thể cập nhật vào excel dc chứ Nó cập nhập thường xuyên nhưng mã nguồn nó không đổi liền, mấy phút sau nó mới thay đổi, nó dùng websocket để cập nhập dữ liệu và trả về dưới dạng nhị phân để thay đổi trực tiếp trên web chứ không thay đổi mã nguồn, có thể nó chạy javascript nhưng để tìm ra đoạn đó thì chua quá, nếu có thể tìm được thì không chắc đã chạy được , chưa kể còn phải dịch ngược Binary nữa, mấy cái object chỉ để lấy mã nguồn web, nó không đổi thì cũng vậy, chức năng data from web của excel cũng chỉ lấy được như vậy thôi.
Cái Dow Jones này biết bao nhiêu trang hỗ trợ, biết bao nhiêu ngôn ngữ hỗ trợ, ứng dụng thì khỏi nói. Sao bạn không bước chân vào Ngôn ngữ lập trình thay vì VBA.Lâu vậy ah bác
