Lấy dữ liệu web nhiều trang về file Excel bằng Power Query

[ptm0412]

Lấy dữ liệu nhiều trang từ web
Trang web https://www.cophieu68.vn/companylist.php?currentPage=1&o=s&ud=a với số 1 là số thứ tự trang muốn lấy.
Code lấy 20 trang từ 1 đến 20 như sau:

let
    InitialWeb = "https://www.cophieu68.vn/companylist.php?currentPage=",
    EndWeb = "&o=s&ud=a",
    Pages = {1..20},
    Source = List.Transform(Pages, (p)=>
    let
        Source0 = Web.Page(Web.Contents(InitialWeb & Text.From(p) & EndWeb)){0}[Data]
    in Source0),
    ColumnList = Table.ColumnNames(Source{0}),
    Source1= Table.FromList(Source,Splitter.SplitByNothing()),
    Result =Table.ExpandTableColumn(Source1,"Column1",ColumnList)
in
    Result

 

[Cá ngừ F1]

Lấy dữ liệu nhiều trang từ web
Trang web https://www.cophieu68.vn/companylist.php?currentPage=1&o=s&ud=a với số 1 là số thứ tự trang muốn lấy.
Code lấy 20 trang từ 1 đến 20 như sau:

let
    InitialWeb = "https://www.cophieu68.vn/companylist.php?currentPage=",
    EndWeb = "&o=s&ud=a",
    Pages = {1..20},
    Source = List.Transform(Pages, (p)=>
    let
        Source0 = Web.Page(Web.Contents(InitialWeb & Text.From(p) & EndWeb)){0}[Data]
    in Source0),
    ColumnList = Table.ColumnNames(Source{0}),
    Source1= Table.FromList(Source,Splitter.SplitByNothing()),
    Result =Table.ExpandTableColumn(Source1,"Column1",ColumnList)
in
    Result

M code này rất tuyệt vời đó ạ.
Nhiều web có các page chạy kiểu này đều có thể ứng dụng để lấy dữ liệu.

TB: sao không tạo topic mới sư phụ? Sẽ có nhiều web cần lấy mà không chạy kiểu này.

 

[ptm0412]

M code này rất tuyệt vời đó ạ.
Nhiều web có các page chạy kiểu này đều có thể ứng dụng để lấy dữ liệu.

Đây là kiểu lấy dữ liệu kiểu nối chuỗi thành địa chỉ.
Cũng nhiều web chạy kiểu theo ngày, hoặc theo page, trong địa chỉ có thông số ngày hoặc page thì mới lấy được kiểu nối chuỗi thế này.
Một số trang giấu data chỗ khác phải dùng tool các kiểu mới ra.