Excelvp
Thành viên mới
- Tham gia
- 15/4/23
- Bài viết
- 12
- Được thích
- 3
Chào các bạn, tôi có tìm được một mã VBA để hỗ trợ lấy dữ liệu từ Google Sheet vào VBA, tuy nhiên nó chỉ lấy được 1 Link Google Sheet, nếu chạy vòng lặp để lấy dữ liệu từ nhiều Google Sheet thì dữ liệu không nối tiếp được với nhau (tìm dòng cuối cùng để nối dữ liệu mới vào), tôi để ý thấy, khi chạy code thì nó chỉ Kết nối dữ liệu đúng 1 lần nên tìm dòng cuối cùng không chính xác
Code tôi đang thử ở dưới, các bạn xem giúp làm thế nào để khi lấy dữ liệu từ nhiều Link Google Sheet thì dữ liệu nối tiếp được với nhau, cảm ơn các bạn
Code tôi đang thử ở dưới, các bạn xem giúp làm thế nào để khi lấy dữ liệu từ nhiều Link Google Sheet thì dữ liệu nối tiếp được với nhau, cảm ơn các bạn
Mã:
Sub Import_Sheets_to_Excel()
On Error Resume Next
Dim QRT As QueryTable, ul As String, ky As String
For i = 1 To 2 'lay du lieu lap lai 2 lan
dongcuoicung = Range("B65000").End(xlUp).Row + 1
If ActiveSheet.QueryTables.Count > 0 Then ActiveSheet.QueryTables(1).Delete
'ActiveSheet.Cells.Clear
ky = "1slumgR5et-cG7Er-9udweCSthufb7xYdsmoP9H2AOFs"
ul = "https://spreadsheets.google.com/tq?tqx=out:html&key=" & ky
Set QRT = ActiveSheet.QueryTables.Add(Connection:="URL;" & ul, _
Destination:=Range("$A$" & dongcuoicung))
With QRT
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.Refresh
End With
MsgBox i
Next i
End Sub
