Excel Online & Google Sheets

Liên hệ QC
code tải File Google Sheet Úp cho ai iu nó ... code sau thuộc về Internet nhé
Mã:
Sub DownloadGoogleSheets()

Dim ShtUrl, Location, FileName As String
Dim objWebCon, objWrit As Object

'Sheet Url
ShtUrl = "https://docs.google.com/spreadsheets/d/1Fy8T1FeEDzFX9U8_lQDk0HrLNSDGjTDUZFxlx-PWXbY/export?format=csv&id=1Fy8T1FeEDzFX9U8_lQDk0HrLNSDGjTDUZFxlx-PWXbY&gid=0"  'Need to replace id and gid

'Location
Location = ThisWorkbook.Path & "\"  'C:\Export\" Replace with location

'FileName
FileName = "GoogleSheet.csv"

'Connection to Website
Set objWebCon = CreateObject("MSXML2.XMLHTTP.3.0")

'Writer
Set objWrit = CreateObject("ADODB.Stream")

'Connecting to the Website
objWebCon.Open "Get", ShtUrl, False
objWebCon.Send (ShtUrl)

'Once page is fully loaded
If objWebCon.Status = 200 Then

'Write the text of the sheet
objWrit.Open
objWrit.Type = 1
objWrit.Write objWebCon.ResponseBody
objWrit.Position = 0
objWrit.SaveToFile Location & FileName
objWrit.Close

End If

Set objWebCon = Nothing
Set objWrit = Nothing

End Sub

Không khó lắm đam mê mò mỗi ngày 1 tí là xong à
 
If objWebCon.Status = 200 Then
Làm việc với web thì kiểu này không hiệu quả đâu anh. Tức là chỉ kiểm tra một lần ngay sau khi 'request', xảy ra trường hợp Status chưa thành công thì không lấy được dữ liệu về.
Vì vậy mình cần thiết lập 'time_out' để kiểm tra việc 'request' đã thành công chưa để lấy dữ liệu.
Ví dụ:
time_out = 5000 ' milliseconds
step_time = 100 ' milliseconds
Sau mỗi step_time mình kiểm tra objWebCon.Status 1 lần, nếu thành công thì lấy dữ liệu.
Sau time_out mà không thành công thì mới bỏ cuộc.
 
Cái này đơn giản mà anh. :)
Sơ đồ như này:
- Ban đầu là Google Forms gửi dữ liệu lên Google Sheets.
- Anh lấy link POST dữ liệu từ Google Forms, và các entry.xxxxxxxxx của các fields trong Forms để làm các thông số thiết lập, dùng bất kỳ công cụ nào làm việc được với giao thức http để POST lên Google Sheets.

.
.
.



Còn vụ này em nói ở bài trước ấy.
Sơ đồ như này:
- Dùng Maps API để lấy giá trị lat, long (tọa độ GPS), thông qua Google Forms (dùng cách thức POST) gửi dữ liệu lên Google Sheets.
Phần này tạo một website, trên đó có một ô điền ID của người cần báo cáo.
- Lấy link website kia tạo QRcode, in và dán ở vị trí cần thiết.
- Người dùng chỉ cần thông qua app mobile nào đó scan QRcode trên, nhập mã ID rồi Submit là xong.

View attachment 242098
Mạnh nghỉ đơn giản vầy xem có trúng ko nhe

1/ Nếu ứng dụng Google Sheet Or Excel online làm Database thì thua ... chỉ chơi bời vui vẻ chút
2/ Nếu làm Database là nơi lưu trữ và truy xuất dữ liệu thì mục số 1 keo Database.accdb = Ông cụ
3/ Nếu làm Database là nơi lưu trữ và truy xuất dữ liệu thì mục số 1 keo Server Ms = Cố Cố Ông cụ
....
Xu hướng thời đại 4.0 là thế nên vọc cho biết và ứng dụng tùy vào thực tế mà làm
 
Lần chỉnh sửa cuối:
Mạnh nghỉ đơn giản vầy xem có trúng ko nhe

1/ Nếu ứng dụng Google Sheet Or Excel online là Database thì thua ... chỉ chơi bời vui vẻ chút
2/ Nếu làm Database là nới lưu trữ và truy xuất dữ liệu thì mục số 1 keo Database.accdb = Ông cụ
3/ Nếu làm Database là nới lưu trữ và truy xuất dữ liệu thì mục số 1 keo Server Ms = Cố Cố Ông cụ
....
Xu hướng thời đại 4.0 là thế nên vọc cho biết và ứng dụng tùy vào thực tế mà làm
Mục 1:
Excel Online là của Microsoft, cũng có ngôn ngữ lập trình dùng online đó.

Google Sheets là của Google.
Hai cái này hơi hơi khác nhau.

Anh mới ở mức xem các dịch vụ miễn phí thôi.
Và chỉ ở mức miễn phí, nếu anh kết hợp được các dịch vụ với nhau thì cũng đã dư sức ứng dụng rồi.
----
Theo những gì em biết được về các bài anh viết, dữ liệu của anh đang ở mức dùng MS Access để lưu trữ, truy vấn.
Anh dùng dịch vụ trả phí xem (hoặc dùng thử thôi), sẽ thấy nhiều cái hay hơn, lớn hơn, tiện hơn nhiều.

1596162329110.png
 
Thong thả vui vẻ và có thời gian Mạnh sẻ mò ra thôi
 
code tải File Google Sheet Úp cho ai iu nó ... code sau thuộc về Internet nhé
Mã:
Sub DownloadGoogleSheets()

Dim ShtUrl, Location, FileName As String
Dim objWebCon, objWrit As Object

'Sheet Url
ShtUrl = "https://docs.google.com/spreadsheets/d/1Fy8T1FeEDzFX9U8_lQDk0HrLNSDGjTDUZFxlx-PWXbY/export?format=csv&id=1Fy8T1FeEDzFX9U8_lQDk0HrLNSDGjTDUZFxlx-PWXbY&gid=0"  'Need to replace id and gid

'Location
Location = ThisWorkbook.Path & "\"  'C:\Export\" Replace with location

'FileName
FileName = "GoogleSheet.csv"

'Connection to Website
Set objWebCon = CreateObject("MSXML2.XMLHTTP.3.0")

'Writer
Set objWrit = CreateObject("ADODB.Stream")

'Connecting to the Website
objWebCon.Open "Get", ShtUrl, False
objWebCon.Send (ShtUrl)

'Once page is fully loaded
If objWebCon.Status = 200 Then

'Write the text of the sheet
objWrit.Open
objWrit.Type = 1
objWrit.Write objWebCon.ResponseBody
objWrit.Position = 0
objWrit.SaveToFile Location & FileName
objWrit.Close

End If

Set objWebCon = Nothing
Set objWrit = Nothing

End Sub

Không khó lắm đam mê mò mỗi ngày 1 tí là xong à
Cháu chào bác Mạnh, code này chạy ngon và lành lắm ạ. Chỉ có điều là nó chỉ hoạt động khi chế độ share của link là " tất cả mọi người có thể xem nếu có link" ạ.
 
Mạnh nghỉ đơn giản vầy xem có trúng ko nhe

1/ Nếu ứng dụng Google Sheet Or Excel online làm Database thì thua ... chỉ chơi bời vui vẻ chút
2/ Nếu làm Database là nơi lưu trữ và truy xuất dữ liệu thì mục số 1 keo Database.accdb = Ông cụ
3/ Nếu làm Database là nơi lưu trữ và truy xuất dữ liệu thì mục số 1 keo Server Ms = Cố Cố Ông cụ
....
Xu hướng thời đại 4.0 là thế nên vọc cho biết và ứng dụng tùy vào thực tế mà làm
Google có nhiều ứng dụng hỗ trợ lắm như BigData truy suất có Data Studio nhiều cái hay lắm không phải đồ chơi đâu
 
Google có nhiều ứng dụng hỗ trợ lắm như BigData truy suất có Data Studio nhiều cái hay lắm không phải đồ chơi đâu
mấy cái đó mạnh có biết ... tuy nhiên Mạnh chỉ nói góc độ ứng dụng nó làm Database
Còn từ Google Sheet ta có thể viết code truy xuất từ Server Ms hay cái gì đó cũng được vv...
...
Còn Mạnh đang suy nghĩ làm sao Viết 1 cái DLL xong từ Google Sheet keo nó chạy đó mới là mong muốn và hướng tới của Mạnh
Còn viết code trên Google Sheet thì Mạnh mới xem mấy ngày thì thấy ko khó lắm ... mỗi ngày mò chút + lại rồi cũng viết tạm chút
nó không khó = Delphi
 
Lần chỉnh sửa cuối:
mấy cái đó mạnh có biết ... tuy nhiên Mạnh chỉ nói góc độ ứng dụng nó làm Database
Còn từ Google ta có thể viết code truy xuất từ Server Ms hay cái gì đó cũng được vv...
...
Còn Mạnh đang suy nghĩ làm sao Viết 1 cái DLL xong từ Google Sheet keo nó chạy đó mới là mong muốn và hướng tới của Mạnh
Còn viết code trên Google Sheet thì Mạnh mới xem mấy ngày thì thấy ko khó lắm ... mỗi ngày mò chút + lại rồi cũng viết tạm chút
nó không khó = Delphi
Anh xem ở đây thử
https://sites.google.com/a/mcpher.com/share/Home/excelquirks/downlable-items
 
mấy cái đó mạnh có biết ... tuy nhiên Mạnh chỉ nói góc độ ứng dụng nó làm Database
Còn từ Google Sheet ta có thể viết code truy xuất từ Server Ms hay cái gì đó cũng được vv...
...
Còn Mạnh đang suy nghĩ làm sao Viết 1 cái DLL xong từ Google Sheet keo nó chạy đó mới là mong muốn và hướng tới của Mạnh
Còn viết code trên Google Sheet thì Mạnh mới xem mấy ngày thì thấy ko khó lắm ... mỗi ngày mò chút + lại rồi cũng viết tạm chút
nó không khó = Delphi
Từ khái niệm (định nghĩa) Database và Google Sheet đã khác xa nhau rồi, nên tất nhiên là Google Sheet lại là và làm Database sánh sao với các Database chuyên
 
Cách đây 3 năm tôi đã làm việc làm báo cáo động trên Excel mà data lấy từ GoogleSheets. Tuy nhiên sau đó tôi phải tạm dừng lại không phát triển tiếp vì tốc độ rất chậm, chưa thể triển khai thực tế.
 
Lần chỉnh sửa cuối:
Cách đay 3 năm tôi đã làm việc làm báo cáo động trên Excel mà data láy từ GoogleSheets. Tuy nhiên sau đó tôi phải tạm dừng lại không phát triển tiếp vì tốc độ rất chậm, chưa thể triển khai thực tế.
Mạnh thấy ở link sau có hướng dẫn + Code C# ... cái cần tìm là Code Delphi mà khan hiếm ghê :D
Hoặc code VBA quậy cho rành xong chuyển qua Delphi

 
Google Sheet mới có tính năng sau... hay đấy

Edge mới cũng xài nhiều thứ Như Google Chrome ... mở Google Sheet + Google Driver + nhiều thứ y trang Google vv

1604208233228.png
 
Em cũng mới biết google sheet nhưng chưa biết tìm tài liệu ở đâu để học. Diễn đàn mình có không anh chị em, em chưa tìm thấy hay không có?
 
Hihi diễn đàn mình thiên tài không, bạn nghĩ sao không có tài liệu.
 
Web KT

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

Back
Top Bottom