Lấy bảng giá chứng khoán vào Excel

Question

Excel cho Microsoft 365 Excel cho Microsoft 365 dành cho máy Mac Excel cho web Xem thêm...Ít hơn

Để chèn giá chứng khoán vào Excel, trước tiên hãy chuyển đổi văn bản thành kiểu dữ liệu Chứng khoán. Sau đó, bạn có thể sử dụng một cột khác để trích xuất các chi tiết nhất định liên quan đến kiểu dữ liệu đó, như giá chứng khoán, biến động giá, v.v.

Lưu ý: Kiểu dữ liệu Chứng khoán chỉ khả dụng choMicrosoft 365 khoản người dùng hoặc những tài khoản có Tài khoản Microsoft miễn phí. Bạn cũng phải có ngôn ngữ soạn thảo tiếng Anh, tiếng Pháp, tiếng Đức, tiếng Ý, tiếng Tây Ban Nha hoặc tiếng Bồ Đào Nha được thêm Office Chọn Ngôn ngữ.

Nhập văn bản vào ô. Ví dụ: nhập ký hiệu chứng chỉ, tên công ty hoặc tên quỹ vào từng ô.
Sau đó, chọn các ô.
Mặc dù không bắt buộc nhưng chúng tôi khuyên bạn nên tạo bảng Excel. Nhờ thao tác này mà sau đó việc trích xuất thông tin trực tuyến sẽ trở nên dễ dàng hơn. Để tạo bảng, đi đến Chèn >Bảng.
Vẫn chọn các ô, đi tới tab Dữ liệu, rồi bấm Chứng khoán.
Nếu Excel thấy kết quả khớp giữa văn bản trong các ô và nguồn trực tuyến của chúng tôi, ứng dụng sẽ chuyển đổi văn bản của bạn thành kiểu dữ liệu Chứng khoán. Văn bản đã được chuyển đổi sẽ có biểu tượng chứng khoán:
.
Chọn một hoặc nhiều ô có kiểu dữ liệu và nút Thêm cột sẽ
hiện. Bấm vào nút đó, rồi bấm vào tên trường để trích xuất thêm thông tin. Ví dụ: đối với chứng khoán, bạn có thể chọn Giá.
Bấm nút Thêm cột lần nữa để thêm nhiều trường hơn. Nếu bạn đang sử dụng bảng, đây là một mẹo: Nhập tên trường vào hàng tiêu đề. Ví dụ: nhập Thay đổi trong hàng tiêu đề của chứng khoán và cột giá thay đổi sẽ xuất hiện. Hoặc nhập các tên trường khác như Thời gian giao dịch cuối cùng, Giá đóngcửa hôm trước và Exchange.

Mẹo:

Để xem tất cả các trường có sẵn cho một công ty hoặc quỹ, hãy bấm vào biểu tượng chứng khoán (
) hoặc chọn ô và nhấn Ctrl+Shift+F5.
Nếu bạn thấy
thay vì một biểu tượng thì có nghĩa là Excel đang gặp khó khăn trong việc khớp văn bản của bạn với dữ liệu trên các nguồn trực tuyến của chúng tôi. Hãy sửa mọi lỗi chính tả và khi bạn nhấn Enter, Excel sẽ cố gắng hết sức để tìm kiếm một thông tin phù hợp. Hoặc bấm vào
và một ngăn lựa chọn sẽ xuất hiện. Bạn có thể tìm kiếm dữ liệu cần thiết bằng một hoặc hai từ khóa, sau đó bấm Chọn.
Bạn cũng có thể viết công thức tham chiếu kiểu dữ liệu hoặc dùng hàm STOCKHISTORY.
Thông tin chứng khoán có độ trễ, được giữ "nguyên trạng" và không dành cho mục đích giao dịch hoặc tư vấn. Xem Giới thiệu về nguồn dữ liệu của chúng tôi để biết thêm thông tin.

Xem thêm

Thông tin thêm về kiểu dữ liệu được liên kết
Hàm STOCKHISTORY
Hàm FIELDVALUE
Lỗi #FIELD! .

Cần thêm trợ giúp?

Mã:

Public Sub hello(ByVal region As String, ByVal targetTB As String)
Dim arr(1 To 2000, 1 To 25), r As Long, str As String
Dim mats, mapID, mat, dArr, ub As Long, col As Long
With CreateObject("MSXML2.ServerXMLHTTP")
    .Open "GET", "http://priceboard.fpts.com.vn/" & region & "/data.ashx?s=quote&l=" & targetTB, False
    .send
    str = .ResponseText
End With
mapID = Array(1, 2, 3, 4, -1, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, _
        16, 17, 18, 19, -1, 20, 21, 22, 23, -1, 24, 25)
ub = UBound(mapID) + 1
With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "\[""?(\d{1,2})""?,""?([^\]""]+)""?"
    dArr = Split(str, "}")
    For r = 0 To UBound(dArr)
        Set mats = .Execute(dArr(r))
        For Each mat In mats
            col = mat.submatches(0)
            If col < ub Then
                If mapID(col) > 0 Then
                    arr(r + 1, mapID(col)) = mat.submatches(1)
                End If
            End If
        Next
    Next
End With
Sheet1.Range("A5").Resize(UBound(arr), UBound(arr, 2)).Value = arr
End Sub

Cryto Giá