Lấy dữ liệu từ Google Spreadsheet bằng VBA-Excel.

[darknightno007]

Chào các Anh/Chị,
Mọi người có ai biết cách để lấy dữ liệu từ 1 file google spreadsheet vào excel bằng code VBA không ạ. Chỉ dùng VBA, không dùng phần mềm thứ 3.
Mọi người cho em xin thông tin với ạ. Mày mò cả tuần nay mà chưa thấy hướng đi.
Em cảm ơn nhiều ạ.

 

[Nguyễn Duy Tuân]

Chào các Anh/Chị,
Mọi người có ai biết cách để lấy dữ liệu từ 1 file google spreadsheet vào excel bằng code VBA không ạ. Chỉ dùng VBA, không dùng phần mềm thứ 3.
Mọi người cho em xin thông tin với ạ. Mày mò cả tuần nay mà chưa thấy hướng đi.
Em cảm ơn nhiều ạ.

Nếu không dùng phần mền thứ 3 thì KHONG CÓ bạn ag

 

[darknightno007]

Nếu không dùng phần mền thứ 3 thì KHONG CÓ bạn ag

Em thấy trên trang này : http://ramblings.mcpher.com/Home/excelquirks/get-data-from-google-docs dùng VBA lấy. nhưng mà cái url khác bây giờ. mày mò miết mà chưa ra.

 

[Nguyễn Duy Tuân]

Em thấy trên trang này : http://ramblings.mcpher.com/Home/excelquirks/get-data-from-google-docs dùng VBA lấy. nhưng mà cái url khác bây giờ. mày mò miết mà chưa ra.

Bạn đọc kỹ link đó sẽ thấy có bên thứ 3 nhé, không phải chỉ VBA đây, VBA chỉ là ngôn ngữ điều khiển đối tượng mà thôi.

 

[darknightno007]

Bạn đọc kỹ link đó sẽ thấy có bên thứ 3 nhé, không phải chỉ VBA đây, VBA chỉ là ngôn ngữ điều khiển đối tượng mà thôi.

Ý của anh là http ak hả.

 

[Nguyễn Duy Tuân]

Ý của anh là http ak hả.

http là chuẩn giao thức mạng dùng website với cổng ngầm định là 80 (ftp thì cổng 21),... coi như là chuẩn chung cho các hệ máy tính. bên thứ 3 nằm ở CDATA.

 

[darknightno007]

http là chuẩn giao thức mạng dùng website với cổng ngầm định là 80 (ftp thì cổng 21),... coi như là chuẩn chung cho các hệ máy tính. bên thứ 3 nằm ở CDATA.

Em cũng xem cái cDataSet rồi. mà vẫn không hiểu tại sao lại lấy dữ liệu không được. Nhờ Anh chỉ hướng giúp em. Em cảm ơn anh Tuân nhiều.

 

[khanhhero]

Em xài web query vẫn lấy dữ liệu bình thường mà.

 

[khanhhero]

Sub Macro1()
ConString = "https://docs.google.com/a/dcorp.com.vn/spreadsheet" & _
"/pub?key=0AtuWUkMv4lmjdGtWVWttQ0VWT1VRZUphUTlVbzhYOEE&"

With ActiveSheet.QueryTables.Add(Connection:="URL;" & ConString, Destination:=Range("$A$1"))
.Name = "Query1"
.FieldNames = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.Refresh BackgroundQuery:=True
End With
End Sub

Code của bác Ptm0412 đã post trong diễn đàn. Không biết có đúng ý của bác chủ ko?

 

[darknightno007]

Sub Macro1()
ConString = "https://docs.google.com/a/dcorp.com.vn/spreadsheet" & _
"/pub?key=0AtuWUkMv4lmjdGtWVWttQ0VWT1VRZUphUTlVbzhYOEE&"

With ActiveSheet.QueryTables.Add(Connection:="URL;" & ConString, Destination:=Range("$A$1"))
.Name = "Query1"
.FieldNames = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.Refresh BackgroundQuery:=True
End With
End Sub

Code của bác Ptm0412 đã post trong diễn đàn. Không biết có đúng ý của bác chủ ko?

Bạn có link không, cho mình xin thử. vô mày mò thêm. Thấy của người ta viết hoành tráng mà tải về mày mò lại không chạy được.

 

[darknightno007]

Em xài web query vẫn lấy dữ liệu bình thường mà.

Get external Data/ From Web. Ý bạn phải vậy không.

 

[darknightno007]

Sub Macro1()
ConString = "https://docs.google.com/a/dcorp.com.vn/spreadsheet" & _
"/pub?key=0AtuWUkMv4lmjdGtWVWttQ0VWT1VRZUphUTlVbzhYOEE&"

With ActiveSheet.QueryTables.Add(Connection:="URL;" & ConString, Destination:=Range("$A$1"))
.Name = "Query1"
.FieldNames = True
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.Refresh BackgroundQuery:=True
End With
End Sub

Code của bác Ptm0412 đã post trong diễn đàn. Không biết có đúng ý của bác chủ ko?

Mình test thử rồi, trong cái sheet đầu tiên có cái gì hiện ra là nó lấy hết. nếu mình muốn lấy dữ liệu trong 1 sheet khác (vd sheet1, sheet2, sheet3) thì làm thế nào.

 

[khanhhero]

Mình test thử rồi, trong cái sheet đầu tiên có cái gì hiện ra là nó lấy hết. nếu mình muốn lấy dữ liệu trong 1 sheet khác (vd sheet1, sheet2, sheet3) thì làm thế nào.

Hôm qua mình test thì nó thấy nó lấy lần lượt từng sheet đó bạn.

 

[darknightno007]

Hôm qua mình test thì nó thấy nó lấy lần lượt từng sheet đó bạn.

Ý là mình chủ đích chỉ lấy 1 sheet nào đó thôi. thì làm không được.

 

[manhnguyenmp]

Tai sao khi chạy code vba nó lại hiện cảnh báo này

 

[PhanTuHuong]

Dùng Query bằng VBA lấy ngon mà, mỗi tội nó đè định dạng thôi.