Lập trình VBA Liên kết dữ liệu từ website vào Excel với QueryTable

Hướng dẫn lập trình VBA để lấy dữ liệu từ website vào Excel với đối tượng QueryTable. Dữ liệu lấy dạng table có ID.
(*) Bài giảng lập trình VBA cơ bản: bluesofts.net/d...
(*) Mã nguồn:
'-------CODE--------
'Author: Nguyen Duy Tuan - bluesofts.net
Sub LayTableTuWeb()
Dim qry As QueryTable
Dim sh As Worksheet
Dim CnnStr As String
Set sh = ThisWorkbook.Sheets("Webtable")
'Xoa querytable truoc do
XoaQT sh
CnnStr = "URL;s.cafef.vn/Lic..."
Set qry = sh.QueryTables.Add(CnnStr, sh.Range("A5"))
'Query
qry.WebSelectionType = xlSpecifiedTables
qry.WebFormatting = xlWebFormattingNone
qry.WebTables = """tblStats"",""tblData""" 'Tat ca cac table
qry.Refresh 'Load du lieu
End Sub
Sub XoaQT(sh As Worksheet)
Dim qry As QueryTable
On Error Resume Next 'Bo qua loi
For Each qry In sh.QueryTables
qry.ResultRange.ClearContents 'Xoa data trong vung table
qry.Delete 'Xoa QueryTable
Next
End Sub
'------END COPY-------

[@hakim4230]

Thực chiến hay quá, cảm ơn bạn !

[@dunggablog5311]

video rất hữu ích cảm ơn ad nhé

[@thaiau409]

Rất cảm ơn anh vì đã cung cấp nội dung rất hữu ích. Trong trường hợp Bảng dữ liệu gồm nhiều trang (khoảng 50 trang, mỗi trang 10 bản ghi) thì code như thế nào để lấy hết giữ liệu ạ, rất mong anh hỗ trợ ạ.

[@khonggioihan7033]

Mình cũng mong câu trả lời

[@trivotran2300]

Cảm ơn anh vì video rất hay Anh cho em hỏi thêm nếu muốn cập nhật mã cp mới thì làm như thế nào ạ

[@qtruong3105]

Anh làm video chỉ cách search mã chứng khoán trên êxcel xong nó tự động hiện ra báo cáo tài chính được m a. Tks a

[@coolstockofficial685]

A Tuan cho gợi ý giúp mình thêm đó là: trên webtable kia a lấy được dữ liệu của VCB, vậy nếu muốn lấy của mã khác như TCB chẳng hạn, có thể làm 1 cho phép nhập thêm: Mã chứng khoán vào đó. Rồi ấn nút" Load table " rồi trả lại kết quả mã mới vào ô A5 thay thế cho VCB . Mong được anh gợi ý cách làm ah.

[@thangchu8467]

mình cũng muốn hỏi như bạn, rằng mình chỉ cần nhập 1 mã cp vào 1 ô và bấm load thì nó chạy ra đc ko nhỉ

[@blvbonga5798]

Great channel!

[@Dung_HP]

Cám ơn Thầy về mã code, cho e hỏi thêm nếu ta muốn lấy Data của nhiều mã thì sao ah. Xin Thầy hướng dẫn ah. Cám ơn Thầy

[@dinhunoyoung6328]

Cho mh xin link video của bạn hướng dẫn về cách lấy biểu đồ đồ thị từ web về excel đi bạn? Quá nhiều video mh k biết cái video nào của bạn có hướng dẫn vấn đề đó

[@vanthangnguyen2566]

cảm ơn bác, bác có khóa học chuyên sâu dạy về lập trình lấy dữ liệu từ web không ạ?

[@AToolsPro]

Nếu bạn học lập trình VBA mình sẽ chỉ thêm kiến thức để lấy data từ website nhé.

[@MrLachy87cm]

À e làm được rồi. Mà ko biết hình ảnh ấy nó có tự cập nhật không. Hôm nào a có phương pháp trong excel mà chỉ cần rê chuột đến ô đó nó liền hiện 1 hình ảnh mặc định theo link nào đó thì chia sẻ tụi e với nha

[@uccong4873]

Thank you bác

[@phuongnam4870]

Anh có thể hướng dẫn thêm khi thay đỗi mã CK sẽ xuất dữ liệu tương ứng với mã CK đó được không ạ

[@nguyenduytuan4858]

Em chỉ cần thay đổi chuỗi URL ghép nối mã chứng khoán vào thôi.

[@phapkhuong5279]

Bài giảng hay quá. Cảm ơn anh. Anh cho em hỏi thêm, e muốn đưa bảng table về, nhưng về 1 mảng thì làm như thế nào?

[@nguyenduytuan4858]

Trong code VBA cái biến anh khai báo là qry đó em lấy thuộc tính ResultRange

[@vinhphuc3756]

Trường hợp mở trang bảng giá của cafef, table đã có id nhưng không lấy được dữ liệu các mã chứng khoán mà chỉ lấy được các tên tiêu đề " mua, bán khối lượng" là sao vậy admin nhỉ. Dữ liệu của mã thì nó không lấy được.

[@trungtien641]

Cảm ơn anh đã chia sẻ. Anh có thể hướng dẫn liên kết lấy dữ liệu của báo cáo tài chính xuống excel được không ạ.

[@nguyenduytuan4858]

Bạn đưa link tôi kieemrt ra xem?

[@minhnguyen-nd8en]

Chào bạn mình muốn làm một bản exl cập nhật trực tiếp dạng như bạn hướng dẫn mình liên lạc với bạn để làm được ko .

[@tienviet1237]

chào A. e đã xem và làm theo hướng dẫn của A, nhưng lúc chạy nó báo lỗi RUN-TIME '9' SUBSCRIPT OUT OF RANGE. A có thể giúp e sửa lỗi với ạ , cảm ơn a nhiều.

[@silkgolden8399]

Kỹ sư có cách giảng rất hay, có trình độ sư phạm nên khá dễ hiểu. Anh cho hỏi thêm, tại sao một Table khác cũng trên Cafef tại địa chỉ: s.cafef.vn/screener.aspx#data nhưng lại không thể lấy được table. Có phải vì họ sử dụng Json data phải không ạ? cách làm như thế nào để lấy được số liệu trên table này (có id là mytable) bằng VBA, anh có thể chỉ giúp không? xin cám ơn anh.

[@nguyenduytuan4858]

CÓ thể table này họ không gài "ID" nên không lấy được. Trường hợp này sẽ phải dùng một công cụ Add-in A-Tools phiên bản 2022.

[@phonghoang2906]

Thầy ơi,cho em hỏi,Em đang phải nhập dữ liệu từ Excel lên trang Web.Có cách nào để truyền dữ liệu từ Excel lên trang Web mà ko cần copy và paste ko ạ

[@dinhunoyoung6328]

Addmin đâu? Làm ơn Xin trả lời câu hỏi của mh bên dưới giúp. Mh đang cần trợ giúp

[@zannie2081]

em muốn dùng vba trong excel để lấy dữ liệu trong google sheet thầy ơi

[@LongNguyen-iu6ti]

a cho em hỏi trong excel nó có khách không cần dùng code vẫn lấy đc dữ liệu sao lại phải dùng cách này ạ

[@vanvu-zc9iv]

Làm thế nào lấy dữ liệu web 2s cập nhật 1 lần ạ

[@phucphamngoc5936]

Chào thầy. Thầy cho em hỏi chút. dữ liệu web có nhiều trang và liên tục update. dữ liệu kỳ mới nhất sẽ đẩy dữ liệu kỳ cũ sang trang sau. người dùng phải bấm nút tiến thì mới vào được trang sau để đọc dữ liệu cũ. Vậy. câu hỏi là, khi em liên kết excel với trang đầu của web. khi dữ liệu của web update thì có cách nào dữ liệu cũ trên bảng excel sẽ lùi xuống các hàng dưới, nhường vị trí cho dữ liệu mới hiển thi trên excel ko ạ. Em cảm ơn thầy.

[@nguyenduytuan4858]

Việc này khó mình sẽ tìm hiểu tiếp nhé.

[@nhatminh1485]

Chào anh cho em hỏi xíu. Em chỉ muốn lấy dữ liệu từ một web đang được mở được không ah. Chứ k phải là phải mở web đó từ excel rùi mới lấy dữ liệu

[@MrLachy87cm]

A ơi sao e dùng ad in a tool lấy ảnh về từ cafef thì nó lỗi : this image cannot currently be displayed. Là nó bị gì ?!

[@BanTat-u6m]

Chào Thầy, sao mình copy nguyên code chạy bị lỗi ở refresh vậy? Thầy chỉ giúp sai chỗ nào với. Error: Runtime 1004. An unexpected error occurred.

[@yeuem13n]

Thầy ơi, Thầy có thể hướng dẫn liên kết lấy dữ liệu của báo cáo tài chính, các bảng cập nhật theo điều kiện mã chứng khoán từ website được không thầy? Giống như excel platform của fireant đấy ạ?

[@qtruong3105]

Anh làm được cái này chưa a. Chỉ e với

[@baphuctrading]

Anh làm được nái này chưa anh

[@luucm]

Trường hợp web phải đăng nhập vô trước thì làm thế nào thầy?

[@ThanhNguyen-ye2rl]

Rất cám ơn anh ạ! Anh cho em hỏi ví dụ trong link: s.cafef.vn/Lich-su-giao-dich-VNINDEX-1.chn#data . Em muốn load data quá khứ của các trang thứ 2,3,4,5 thì làm như nào ạ?

[@nguyenduytuan4858]

Trường hợp này khó mình chưa nghĩ đc :D.

[@tientran-do5pu]

Ko thấy id, giờ mình muốn làm 1 ô nhập mã cp thì có đc ko

[@kiennguyentrung8551]

Cảm ơn anh, nếu website cần tên đăng nhập và mật khẩu thì mình làm thế nào ạ? cảm ơn anh nhiều ạ.

[@nguyenduytuan4858]

Trường hợp này khó hơn, nhưng phải xem website cụ thể làm việc như thế nào?

[@trinhhainam]

Chào Admin, em đang rất cần cách lấy dư liệu dạng biểu đồ ở các web vào excel nhưng em ko rõ là Ad nói ở bài nào. Ad có thể cho em xin link để xem ko. Em cảm ơn Ad và mong nhận được phản hồi từ Ad

[@nguyenduytuan4858]

Chính bài này đó bạn. Xem phần cuối.

[@laotrinh5569]

nếu dữ liệu đó thành nhiều trang thì sao bác?

[@tranvanbinh2660]

Đầu tiên cảm ơn anh rất nhiều cho em hỏi tý ví dụ lấy nhiều trang thì làm thế nào s.cafef.vn/Lich-su-giao-dich-VCB-1.chn

[@dothanhk54]

bạn hỏi đúng ý mình đang muốn hỏi, và bạn đã làm được món này chưa

[@nguyenduytuan4858]

Mình sẽ tìm hiểu cách làm tình huống này, nhưng rất khó đấy.

[@viethieunguyen8750]

nhân đôi đoạn này lên là được

[@NAILART8693]

Với 1 table mà ko có id chỉ có table class thì lấy dữ liệu bằng cách nào ạ?

[@AToolsPro]

Trường hợp này phải viết code thủ công hơn, không dùng Query Table được.

[@ng.phudung]

Trong trường hợp muốn lấy bảng từ ngày A tới ngày B theo ý của mình thì sẽ thay đổi code thế nào ạ

[@nguyenduytuan4858]

Bạn dùng vòng lặp mỗi vòng lặp lấy ra một link ứng với ngày và chạy query, dữ liệu được ghép nối đuôi nhau.

[@quanmai8846]

Trang web có mật khẩu thì có được không á thầy

[@vinyvo3354]

mình cũng đang cần cái này, mình muốn lấy dữ liệu trên web của vận chuyển

[@chautam1429]

Bạn ơi nếu website đó có tài khoản mới đăng nhập và xem được thì mình phải xử lý thế nào ạ?

[@nguyenduytuan4858]

Bạn gửi link tôi kiểm tra xem?

[@MrLachy87cm]

chạy không được nó cứ báo lỗi ở dòng : Set sh = ThisWorkbook.Sheets("webtable")

[@AToolsPro]

Bạn tạo sheet có tên “webtable” là đc.

[@duongquangminh3946]

Tại sao khi chạy thì báo lỗi tại " Set sh = ThisWorkbook.Sheets("Webtable")" Subscript out of range

[@AToolsPro]

Dương Hiệp Bạn phải đặt tên sheet có tên như vậy. Hoặc sửa tên đúng với tên sheet của bạn

[@jonhnguyen1631]

@@AToolsPro anh làm thêm trường hợp web yêu cầu đăng nhập nữa nhé. thanks a, chúc a nhiều sức khỏe

[@AToolsPro]

Jonh Nguyen Cảm ơn bạn!

[@jamesle5620]

Chào thầy, em làm thử bảng giá chứng khoán từ trang www.cophieu68.vn/stockonline.php?stcid=1 không được, luôn báo lỗi sau : "This web query returned no data. To change the query, click OK, click arrow on the name box in the formula bar, click the name of the external data range for the Web query, right-click the selection, and then click Edit Query". Nhờ thầy chỉ giúp. Thanks thầy

[@hanbsnguyenthi6029]

Thầy ơi! Em làm cũng bị báo lỗi thế này ( "This web query returned no data. To change the query, click OK, click arrow on the name box in the formula bar, click the name of the external data range for the Web query, right-click the selection, and then click Edit Query". nhờ Thầy chỉ giúp em với ạ. Thanks Thầy

[@dominhnhut1103]

Dạ anh ơi nhỡ table mà ko có Id chỉ có Class thôi thì mình lấy như thế nào ạ ? Mong anh reply em sớm nha, em cảm ơn [e-mail]

[@NAILART8693]

bạn đã tìm ra được cách chưa chỉ giúp mình với.