Hi cả nhà.
Hiện mình cần đồng bộ dữ liệu giữa excel và google sheet, nhưng chưa biết cách nào ko dùng tool của bên thứ 3. Nên hiện tại mình đang dùng giải pháp là GS về excel thì reload data từ web, còn từ excel lên GS thì dùng VBA nhập qua Google form
mình có xem trên youtube hưởng dẫn code nhưng bị lỗi ở đoạn này
Dim HTTPreq As New MSXML2.ServerXMLHTTP
Mình ko biết cách khắc phục như thế nào mong mọi người giúp đỡ hay có giải pháp nào hay hơn tư vấn giúp mình với
Và 1 thắc mắc nữa là trên video thì ko có dòng key, nhưng code mẫu thì có, vậy key đó có ý nghĩa gì?
Thanks all!
Liên kết: https://www.youtube.com/watch?v=bebQ-Rws0rs
Hiện mình cần đồng bộ dữ liệu giữa excel và google sheet, nhưng chưa biết cách nào ko dùng tool của bên thứ 3. Nên hiện tại mình đang dùng giải pháp là GS về excel thì reload data từ web, còn từ excel lên GS thì dùng VBA nhập qua Google form
mình có xem trên youtube hưởng dẫn code nhưng bị lỗi ở đoạn này
Dim HTTPreq As New MSXML2.ServerXMLHTTP
Mình ko biết cách khắc phục như thế nào mong mọi người giúp đỡ hay có giải pháp nào hay hơn tư vấn giúp mình với
Và 1 thắc mắc nữa là trên video thì ko có dòng key, nhưng code mẫu thì có, vậy key đó có ý nghĩa gì?
Thanks all!
| Sub UploadToGoogleSheets() Dim r As Integer, key As String, url As String Dim field1 As String, field2 As String, field3 As String Dim HTTPreq As New MSXML2.ServerXMLHTTP For r = 2 To 4 'replace 4 with last row with data field1 = Range("A" & r).Value field2 = Range("B" & r).Value field3 = Range("C" & r).Value key = "1FAIpQLSedSUJHJjPPYQPj2v0ZV5KO-T4lbYTPWD-A8ZQHBueFRfMhyw" url = "https://docs.google.com/forms/u/0/d/e/" & key & _ "/formResponse?ifq" & _ "&entry.957036836=" & field1 & _ "&entry.402370180=" & field2 & _ "&entry.884126503=" & field3 With HTTPreq .Open "POST", url, False .setRequestHeader "Content-Type", _ "application/x-www-form-urlencoded; charset=utf-8" .send End With Next r End Sub |
