nhờ viết dùm code vòng lập lấy data từ ngày đến ngày

ketoan113 · 14/11/22

kính gửi các anh chị
em có mày mò viết vba lấy data từ web cafef.vn về, file em nó như sau:

ô B3 = mã cp
ô F3 = ngày bắt đầu (trong code em ghi là ngaybd)
ô I3 = ngày kết thúc (trong code em nghi là ngaykt)

vd ngày hiện tại em gõ = 10/11/2022, code hiện tại của em sẽ lấy data là ngày bắt đầu (10/11/2022), sau đó copy data em cần sang paste vào sheet1

nhưng em cần lấy data từ ngày đến ngày ( từ ngày bắt đầu đến ngày kết thúc) em không viết viết code sao,

em nhờ anh chị giúp em xíu, viết dùm em code vòng lập với ạ

em cảm ơn các anh chị

p/s: anh anhtuan2939 có đọc được topic của em thì giúp em với nhé, tks a ạ

ptm0412 · 15/11/22

Nếu dùng code lấy dữ liệu từ web, chi bằng lấy bằng M-code của Power query.

PHP:

let
    MaGD= Excel.CurrentWorkbook(){[Name = "MaGD"]}[Content][Column1]{0},
    DFrom = Excel.CurrentWorkbook(){[Name = "DFrom"]}[Content][Column1]{0},
    DTo = Excel.CurrentWorkbook(){[Name = "DTo"]}[Content][Column1]{0},
    Initialweb = "https://s.cafef.vn/Lich-su-giao-dich-",
    EndWeb ="-6.chn?date=",
    List0 = {0..Number.From(DTo) - Number.From(DFrom)},
    List1 = {Number.From(DFrom)..Number.From(DTo)},
   
    Source = List.Transform(List0, (d) =>
    let
        D1 = Date.ToText(Date.From(List1{d}),"dd/MM/yyyy"),
        WebAdd = Initialweb & MaGD & EndWeb & D1,
        Source0 = Web.Page(Web.Contents(WebAdd))[Data]{0},
        Source1 = Table.AddColumn(Source0, "Date", each Date.From(List1{d}))
    in Source1),
    ColumnList = Table.ColumnNames(Source{0}),
    SourceN= Table.FromList(Source,Splitter.SplitByNothing()),
    Result =Table.ExpandTableColumn(SourceN,"Column1",ColumnList),
    ReplaceP = Table.ReplaceValue(Result," (%)","",Replacer.ReplaceText,{"Tỷ trọng"}),
    DataType = Table.TransformColumnTypes(ReplaceP,{{"Giá", type number}, {"Khối lượng", type number}, {"Date", type date}, {"Tỷ trọng", type number}})

in
    DataType

Tôi cho rằng Power query lấy đủ dữ liệu hơn VBA code, lại còn có thể thêm cột ngày

ketoan113 · 15/11/22

ptm0412 đã viết:

Nếu dùng code lấy dữ liệu từ web, chi bằng lấy bằng M-code của Power query.

PHP:

let
    MaGD= Excel.CurrentWorkbook(){[Name = "MaGD"]}[Content][Column1]{0},
    DFrom = Excel.CurrentWorkbook(){[Name = "DFrom"]}[Content][Column1]{0},
    DTo = Excel.CurrentWorkbook(){[Name = "DTo"]}[Content][Column1]{0},
    Initialweb = "https://s.cafef.vn/Lich-su-giao-dich-",
    EndWeb ="-6.chn?date=",
    List0 = {0..Number.From(DTo) - Number.From(DFrom)},
    List1 = {Number.From(DFrom)..Number.From(DTo)},
  
    Source = List.Transform(List0, (d) =>
    let
        D1 = Date.ToText(Date.From(List1{d}),"dd/MM/yyyy"),
        WebAdd = Initialweb & MaGD & EndWeb & D1,
        Source0 = Web.Page(Web.Contents(WebAdd))[Data]{0},
        Source1 = Table.AddColumn(Source0, "Date", each Date.From(List1{d}))
    in Source1),
    ColumnList = Table.ColumnNames(Source{0}),
    SourceN= Table.FromList(Source,Splitter.SplitByNothing()),
    Result =Table.ExpandTableColumn(SourceN,"Column1",ColumnList),
    ReplaceP = Table.ReplaceValue(Result," (%)","",Replacer.ReplaceText,{"Tỷ trọng"}),
    DataType = Table.TransformColumnTypes(ReplaceP,{{"Giá", type number}, {"Khối lượng", type number}, {"Date", type date}, {"Tỷ trọng", type number}})

in
    DataType

Tôi cho rằng Power query lấy đủ dữ liệu hơn VBA code, lại còn có thể thêm cột ngày

View attachment 283367

file bác em tải về check thấy báo lỗi bác ơi
tks

huhumalu · 15/11/22

Anh gửi lại file giúp với. Em load file bị lỗi.
Cái M-code của Power query là em hoàn toàn không có biết gì.

ptm0412 · 15/11/22

huhumalu đã viết:
Anh gửi lại file giúp với. Em load file bị lỗi.
Cái M-code của Power query là em hoàn toàn không có biết gì.

Bạn tải lại file bài trên. Tùy chọn xlsm hoặc xlsx

ketoan113 · 15/11/22

ptm0412 đã viết:
Bạn tải lại file bài trên. Tùy chọn xlsm hoặc xlsx

file bác bị lỗi ,em chạy ko lấy dc data ạ

ptm0412 · 15/11/22

ketoan113 đã viết:
file bác bị lỗi ,em chạy ko lấy dc data ạ

Không phải nhấn nút Run đâu nhé. Nhấn chuột phải và refresh

ketoan113 · 15/11/22

ptm0412 đã viết:
Không phải nhấn nút Run đâu nhé. Nhấn chuột phải và refresh

dạ để em thử lại

bác chụp e cái refresh cái, em tìm ko thấy ạ

huhumalu · 15/11/22

Có nhầm file không anh ?
Em nhấn cái nó tè le luôn.

ketoan113 · 15/11/22

huhumalu đã viết:
View attachment 283372
Có nhầm file không anh ?
Em nhấn cái nó tè le luôn.

em chạy nó cũng ra như vây
file này ko ổn bằng của bác huhumalu ạ

huhumalu · 15/11/22

ketoan113 đã viết:
em chạy nó cũng ra như vây
file này ko ổn bằng của bác huhumalu ạ

Hai phương án khác nhau bạn ơi.
Cách này không giống cách mình. Cái mình đang phải mượn bên thứ 3.
Cách của anh Mỹ @ptm0412 mình đang tìm hiểu thêm.

ketoan113 · 15/11/22

huhumalu đã viết:
Hai phương án khác nhau bạn ơi.
Cách này không giống cách mình. Cái mình đang phải mượn bên thứ 3.
Cách của anh Mỹ @ptm0412 mình đang tìm hiểu thêm.

dạ vâng ạ
em ko bit

VetMini · 15/11/22

ptm0412 đã viết:
Không phải nhấn nút Run đâu nhé. Nhấn chuột phải và refresh

Bạn hiểu mấy từ ấy hả? Chúc mừng đã đạt cảnh giới.

ptm0412 · 15/11/22

VetMini đã viết:
Bạn hiểu mấy từ ấy hả? Chúc mừng đã đạt cảnh giới.

Cảnh giới có sẵn

, chỉ là có khó chịu hay không thôi.

ketoan113 đã viết:
em chạy nó cũng ra như vây
file này ko ổn bằng của bác huhumalu ạ

Bạn thử cả 2 file chưa? Lấy xlsx này, còn xlsm đã sửa lỗi ở trên. Lỗi xảy ra do dùng file của bạn ở bài 1 và viết power query, phải lưu mở lên lại 2, 3 lần để excel tự sửa lỗi

ketoan113 · 16/11/22

ptm0412 đã viết:
Cảnh giới có sẵn , chỉ là có khó chịu hay không thôi.

Bạn thử cả 2 file chưa? Lấy xlsx này, còn xlsm đã sửa lỗi ở trên. Lỗi xảy ra do dùng file của bạn ở bài 1 và viết power query, phải lưu mở lên lại 2, 3 lần để excel tự sửa lỗi

em chạy nó báo gì vậy bác ??

Bài đã được tự động gộp: 16/11/22

ptm0412 đã viết:
Cảnh giới có sẵn , chỉ là có khó chịu hay không thôi.

Bạn thử cả 2 file chưa? Lấy xlsx này, còn xlsm đã sửa lỗi ở trên. Lỗi xảy ra do dùng file của bạn ở bài 1 và viết power query, phải lưu mở lên lại 2, 3 lần để excel tự sửa lỗi

em gõ ngày không có giao dịch (vd ngày 12/11/2022 ko giao dịch) thì báo lỗi ko lấy dược ạ

nếu được chỉnh dùm em cột date để sang bên trái (cot A) được ko ạ? em cảm ơn bác

befaint · 16/11/22

ketoan113 đã viết:
tks bác

Tờ ca sờ bác tức là tao không sợ bác hả bạn? Hay là tối khách sạn?
Thôi thôi, mình hổng dám đâu.

ketoan113 · 16/11/22

befaint đã viết:
Tờ ca sờ bác tức là tao không sợ bác hả bạn? Hay là tối khách sạn?
Thôi thôi, mình hổng dám đâu.

tks = cám ơn bác

tôi báo cáo admin về comment của bác rồi nhá

bác rảnh quá

befaint · 16/11/22

ketoan113 đã viết:
tks = cám ơn bác

tôi báo cáo admin về comment của bác rồi nhá

bác rảnh quá

Biết sai mà sửa là tốt, ai cũng ghi nhận.

'báo cáo' cũng rất tốt, chuẩn bị tinh thần nhận thêm một bài giảng của lão cờ tờ nữa nhé bạn.

ptm0412 · 16/11/22

Lấy lại file. Sửa được lỗi khi ngày bắt đầu là ngày không giao dịch, chưa sửa được trường hợp ngày cuối. Có gì nếu nó báo lỗi chọn dư vài ngày
Cứ thử với mã công ty khác

PHP:

let
    MaGD= Excel.CurrentWorkbook(){[Name = "MaGD"]}[Content][Column1]{0},
    DFrom = Excel.CurrentWorkbook(){[Name = "DFrom"]}[Content][Column1]{0},
    DTo = Excel.CurrentWorkbook(){[Name = "DTo"]}[Content][Column1]{0},
    Initialweb = "https://s.cafef.vn/Lich-su-giao-dich-",
    EndWeb ="-6.chn?date=",
    List0 = {0..Number.From(DTo) - Number.From(DFrom)},
    List1 = {Number.From(DFrom)..Number.From(DTo)},
   
    Source = List.Transform(List0, (d) =>
    let
        D1 = Date.ToText(Date.From(List1{d}),"dd/MM/yyyy"),
        WebAdd = Initialweb & MaGD & EndWeb & D1,
        Source0 = Web.Page(Web.Contents(WebAdd))[Data]{0},
        Source1 = Table.AddColumn(Source0, "Date", each Date.From(List1{d}))
    in Source1),
    ColumnList = Table.ColumnNames(Source{List.Count(Source)-1}),
    SourceN= Table.FromList(Source,Splitter.SplitByNothing()),
    Result =Table.ExpandTableColumn(SourceN,"Column1",ColumnList),
    ReplaceP = Table.ReplaceValue(Result," (%)","",Replacer.ReplaceText,{"Tỷ trọng"}),
    ReplacePr = Table.ReplaceValue(ReplaceP,"Giá",null,Replacer.ReplaceValue,{"Giá"}),
    ReplaceTT = Table.ReplaceValue(ReplacePr,"Tỷ trọng",null,Replacer.ReplaceValue,{"Tỷ trọng"}),
    DataType = Table.TransformColumnTypes(ReplaceTT,{{"Giá", type number}, {"Khối lượng", type number}, {"Date", type date}, {"Tỷ trọng", type number}}),
    Reorder = Table.ReorderColumns(DataType,{"Date", "Giá", "Khối lượng", "Tỷ trọng"})

in
    Reorder

huhumalu · 16/11/22

ptm0412 đã viết:
Lấy lại file. Sửa được lỗi khi ngày bắt đầu là ngày không giao dịch, chưa sửa được trường hợp ngày cuối. Có gì nếu nó báo lỗi chọn dư vài ngày
Cứ thử với mã công ty khác

Do cái web này :
+ Ngày không giao dịch nó vẫn ra cái header chỉ không có dữ liệu.
+ Ngày hiện tại (hôm nay) trước 9h sáng (giờ mở phiên) thì vẫn lấy kết quả của ngày trước đó.
Em cũng phải sửa đi sửa lại mấy lần.

ptm0412 · 16/11/22

ketoan113 đã viết:
tks = cám ơn bác

tôi báo cáo admin về comment của bác rồi nhá

bác rảnh quá

Tôi reject cái báo cáo của bạn. Trong bài #34 tôi có ghi là "có khó chịu hay không", nghĩa là nếu bình thường tôi sẽ khó chịu khi bài viết được viết tắt kiển chat chit như ko, dc, ntn, ... hoặc chêm từ tiếng Anh như tks, hi, thank, ...
Chêm tiếng Anh là không lịch sự đối với người Việt, và viết tắt không định nghĩa trước thì người ta có quyền đoán nghĩa. Khi đoán nghĩa sai thì người hỏi bị thiệt thòi. Huống hồ kiểu chat chit là vi phạm nội quy.

nhờ viết dùm code vòng lập lấy data từ ngày đến ngày

Thành viên hoạt động

File đính kèm

Bad Excel Member

File đính kèm

Thành viên hoạt động

Thành viên tích cực

Bad Excel Member

Thành viên hoạt động

Bad Excel Member

Thành viên hoạt động

Thành viên tích cực

Thành viên hoạt động

Thành viên tích cực

Thành viên hoạt động

Ăn cùng góc phố

Bad Excel Member

File đính kèm

Thành viên hoạt động

|||||||||||||

Thành viên hoạt động

|||||||||||||

Bad Excel Member

File đính kèm

Thành viên tích cực

Bad Excel Member