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
Ôi vãi lắm Bạn ôi ... Rảnh tôi thử làm ngược Từ Delphi sang làm thuần trên VBA của Excel
Ôi vãi lắm Bạn ôi ... Rảnh tôi thử làm ngược Từ Delphi sang làm thuần trên VBA của Excel
Thì nó còn đơn giản hơn cả viết trên Delphi và code ngắn = 1/3 của C# mới vãi
chỉ cần sử dụng Http của Ms là làm OK sạch từ A To Z ...
Bao gồm lấy AccessToken , RefreshToken và đọc , ghi dữ liệu lên Google Sheets
mà không cần uỷ quyền gì cả ... thế mới biết rằng ai đó đầu đất mà cứ nghĩ ngọc thạch nguyên khối
Những file như này bắt buộc phải uỷ quyền mới chỉnh sửa được !
đầu có sao không đó ... Với tư duy đó mãi mãi cũng thế thôi ...mập mờ và lấp liếm
voz.vn
' VBA-JSON v2.3.1
' (c) Tim Hall - https://github.com/VBA-tools/VBA-JSON
'
' JSON Converter for VBA
'
' Errors:
' 10001 - JSON parse error
'
' @class JsonConverter
' @author tim.hall.engr@gmail.com
' @license MIT (http://www.opensource.org/licenses/mit-license.php)
'' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '
'
' Based originally on vba-json (with extensive changes)
' BSD license included below
'
' JSONLib, http://code.google.com/p/vba-json/
'
' Copyright (c) 2013, Ryo Yokoyama
' All rights reserved.
'{
"access_token": "ya29.a0AcM612yQ5YlErDV-NPhH4_iJEMnV7aBZhTzBVy07IpjIhoJNiIzuJJNpFgdm4d5EIyWo67JKdFHye8pVX8qtVqUAkr62atb3hsOLQzTkN8ua2W5weRboGYif2xBzPWo8vUs1P_h3tZfMyi9qvRxYhD9aCgYKAc8SARMSFQHGX2MiEYIeZNx9YS3-m2985F16mg0175",
"expires_in": 3599,
"refresh_token": "1//0euOptibtx5rDCgYIARANwrue1aqRqdh4rFz15WU-ZT9K5u_XaqawSAoG8zBFSBwINPl7PYwtBLb8w",
"scope": "https://www.googleapis.com/auth/",
"token_type": "Bearer"
}
pen() mỗi lần mở file lên nó làm mới là xong thôi
các bài link sau hình như của thành viên GPE ???
ai quan tâm tải về xem là viết OK đọc và ghi dữ liệu lên Google Sheet mô ta các bài chi tiết nhất
còn trên GPE này cũng có rồi tìm là thấy nhưng không trình bày mô tả chi tiết như vậy
kiến thức - [Excel VBA] (Linh tinh) Xác thực OAuth2 để triển khai các dịch vụ của Google trên Excel
Chào mọi người. Tối thứ bảy cuối tuần, rảnh rỗi không có việc gì làm nên đành lên đây viết bài chia sẻ với anh em. Trong lúc không biết nên viết về chủ đề gì, tự dưng mình nhớ lại yêu cầu của một thím trên này hỏi mình về việc viết macro VBA tương tác với Google Drive. Thật ra trước đây mình có...
Tôi viết ngắn gọn hơn các mô tả linh trên và không cần sử dụng Module JsonConverter của tây viết
thông tin module trên như sau
Mã:' VBA-JSON v2.3.1 ' (c) Tim Hall - https://github.com/VBA-tools/VBA-JSON ' ' JSON Converter for VBA ' ' Errors: ' 10001 - JSON parse error ' ' @class JsonConverter ' @author tim.hall.engr@gmail.com ' @license MIT (http://www.opensource.org/licenses/mit-license.php) '' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' ' ' Based originally on vba-json (with extensive changes) ' BSD license included below ' ' JSONLib, http://code.google.com/p/vba-json/ ' ' Copyright (c) 2013, Ryo Yokoyama ' All rights reserved. '
Ai biết chút VBA vào đó xem rất chi tiết và bài bản xong viết OK đọc và ghi dữ liệu lên Google Sheets
Quan trọng mã access_token và refresh_token sử dụng Http của Windows mà lấy xong tách nó ra mà sử dụng ... Viết hàm nhỏ trên VBA khoãng 10 to 15 dòng code là xong mà không cần thiết sử dụng Module của tây trên 1000 dòng code như nói trên
response trả về như sau ... Tôi xoá bớt thông tin rồi
Mã:{ "access_token": "ya29.a0AcM612yQ5YlErDV-NPhH4_iJEMnV7aBZhTzBVy07IpjIhoJNiIzuJJNpFgdm4d5EIyWo67JKdFHye8pVX8qtVqUAkr62atb3hsOLQzTkN8ua2W5weRboGYif2xBzPWo8vUs1P_h3tZfMyi9qvRxYhD9aCgYKAc8SARMSFQHGX2MiEYIeZNx9YS3-m2985F16mg0175", "expires_in": 3599, "refresh_token": "1//0euOptibtx5rDCgYIARANwrue1aqRqdh4rFz15WU-ZT9K5u_XaqawSAoG8zBFSBwINPl7PYwtBLb8w", "scope": "https://www.googleapis.com/auth/", "token_type": "Bearer" }
dòng "expires_in": 3599, là thời gian hết hạn AccessToken sau 1 giờ thì ta làm mới lại như mô tả các bài trước của tôi là 55 phút hay 59 phút thì tuỳ
hay cho vào sự kiện Sub Aut
Chốt lại VBA thừa khả năng viết và code còn gọn hơn ...
chỉ xử lý dữ liệu lớn là chậm do phân bổ RAM ít cho VBA và VBA không hổ trợ tốt bằng các Ngôn ngữ lập trình hiện đại
rác rác rác ... xác thực và uỷ toàn quyền khác nhau ... Mọi cái do người dùng tự xử lý không cần thiết bên thứ 3 trỏ vào .... ai mà biết làm gì tiếp theo
có hai kiểu tách bạch rõ ràng
Nói chung là vẫn phải ủy quyền mà bác! Bác làm em và một số người hiểu lầm bảo mật Google kém nên lo lắng. Bác chỉ cần không gây hiểu lầm cho một bộ phận những người không hiểu rõ là được. Còn bác trình diễn kỹ thuật thì ai rảnh thì nghiên cứu học hỏi thôi, chứ bác đừng chê bai, góp ý sai mục đích gây hiểm lầm thì nguy hiểm lắm! Như em không hiểu cũng đang hoang mang lộ thông tin bảo mật thì chết!
đầu toàn bã đậu lại trỏ mõm vào rồi he .... tôi nói rất rõ ràng rồi còn gì ... nổ khúc nào ???
chỉ có khoãng trên 100 dòng code thuần trên VBA viết là đọc và ghi dữ liệu lên Google Sheets OK sạch còn không biết viết
Đừng chơi chiêu khích tướng chứ! Để người ta xì code ra rồi học lóm à…
Những tay tầm nhìn hạn hẹp thường hay ra dzẻ lắm bạn à…
