Lấy dữ liệu cổ phiếu từ Website Cafef.vn về Excel

[nguyendang95]

sao rồi ... thấy bài trang trước có hỏi hổ trợ AccessToken có cần Mạnh hổ trợ thêm cho một hàm đơn giản lắm chỉ 1 tham số là File JSON là xong thôi

Declare PtrSafe Function RetrieveAccessTokenFromJSON Lib "GoogleSheets64.dll" _
            (ByRef OAuthJsonPath As Variant) As Variant


Sub AccessToken_OAuthJsonPath()
    Dim OAuthJsonPath As Variant
    Dim AccessToken As Variant
 
    OAuthJsonPath = "C:\Google OAuth2\Desktop client 2.json"
    AccessToken = RetrieveAccessTokenFromJSON(OAuthJsonPath)
 
    Debug.Print AccessToken
End Sub

Muốn ghi dữ liệu lên Google Sheet chỉ cần một hàm trên là đủ rồi xong từ VBA viết mã sử dụng Http của Windows là xong thôi

Làm gì nhiều vẻ chuyện mệt ra ... còn nhanh thì viết Mã trong Delphi ghi dữ liệu lên Google Sheets

OK rồi bạn. Bên cạnh hàm này của bạn, tôi cũng đang nghiên cứu một số giải pháp khác như Automation Add-ins, RTD Server, trên Excel để xem việc triển khai có những khó khăn gì, hiệu năng ra sao.

 

[Kiều Mạnh]

OK rồi bạn. Bên cạnh hàm này của bạn, tôi cũng đang nghiên cứu một số giải pháp khác như Automation Add-ins, RTD Server, trên Excel để xem việc triển khai có những khó khăn gì, hiệu năng ra sao.

AccessToken chỉ có thời hạn 1 giờ ... Rảnh tôi viết cái Service.exe cho nó tự động lấy và làm mới theo Windows khởi động là xong thôi

55 phút nó làm mới AccessToken lại 1 lần = xong = chạy tự động từ A To Z

Hàm có hết rồi chỉ ráp lại xong test + điều chỉnh = xong