Hỏi cách lấy tỷ giá USD hàng ngày từ web (3 người xem)

[ST-Lu!]

Ngày nào em cũng phải vào mạng lấy tỷ giá bình quân liên ngân hàng để hạch toán
trang web ngân hàng

Em muốn tỷ giá đó tự động cập nhật vào một file excell (sau khi click vào một button)
Tỷ giá này sẽ tự cập nhật và lưu theo ngày trong tháng

Liệu phương án của em có thể làm được không ạ?

cám ơn các anh

ST

 

[laulemroi]

Trong VBA,dùng WebBrowser control và HTMLDocument class mà lấy nội dung =HTML (page Source) của trang ý.Từ dó tìm ra vị trí của 1USD=?VNĐ.Nhưng mà hơi dài dòng.
Tốt nhất là vào site ý,tìm đến chỗ 1USD=?VNĐ là xong mà (rất nhanh).OK???

 

[xichdragon]

Theo tớ bạn làm như sau:
- tạo 1sheet mới
- Dùng data import, copy link của bạn vào ô địa chỉ
- Đợi
- Sau khi nó load hết web sẽ tự động fân vùng cho web đó, bạn chọn vào vùng chứa tỷ giá
- Bấm ok rồi chọn property, đặt refresh every ..min tùy bạn
- Dùng các hàm về chuỗi mà xử lý kết quả ở file báo cáo ( tách số từ chuỗi "1 USD=16.514,00 VNĐ")
Chắc là ok

 

[cadafi]

Ngày nào em cũng phải vào mạng lấy tỷ giá bình quân liên ngân hàng để hạch toán
trang web ngân hàng

Em muốn tỷ giá đó tự động cập nhật vào một file excell (sau khi click vào một button)
Tỷ giá này sẽ tự cập nhật và lưu theo ngày trong tháng

Liệu phương án của em có thể làm được không ạ?

cám ơn các anh

ST

Bạn xem hướng dẫn cách làm tại đây!
http://www.giaiphapexcel.com/forum/showthread.php?p=94088
http://www.giaiphapexcel.com/forum/showpost.php?p=74390&postcount=4

Mấu chốt là hình bên dưới. Bạn nghiên cứu thêm nhé!

 

[khongbietso]

Em muốn tỷ giá đó tự động cập nhật vào một file excell (sau khi click vào một button)
Tỷ giá này sẽ tự cập nhật và lưu theo ngày trong tháng

Liệu phương án của em có thể làm được không ạ?

cám ơn các anh

ST

Làm luôn cho đồng chí, cái này có sub auto_open nên khi mở file này là nó làm luôn nhiệm vụ load dữ liệu trên trang wweb về và bóc tách số liệu vào sheet2 và sheet3.
Ngoài ra có các nút CAP NHAT để chúng ta thử chạy lệnh cập nhật.
Nó sẽ dò xem ngày trên web đã tồn tại ở dòng cuối cùng của bảng chưa nếu chưa có sẽ thực hiện bóc tách. Còn đã có rồi nghĩa là đã được bóc tách trước đó
File này đồng chí chỉ cần thả vào schedule của win cho ngày chạy lần là OK
Nếu muốn chắc thì kiếm các schedule chạy ngày 2 đến 3 lần cho chắc vì biết đâu lúc chạy server của ngân hàng chết thì sao.

 

[ThuNghi]

Làm luôn cho đồng chí, cái này có sub auto_open nên khi mở file này là nó làm luôn nhiệm vụ load dữ liệu trên trang wweb về và bóc tách số liệu vào sheet2 và sheet3.
Ngoài ra có các nút CAP NHAT để chúng ta thử chạy lệnh cập nhật.
Nó sẽ dò xem ngày trên web đã tồn tại ở dòng cuối cùng của bảng chưa nếu chưa có sẽ thực hiện bóc tách. Còn đã có rồi nghĩa là đã được bóc tách trước đó
File này đồng chí chỉ cần thả vào schedule của win cho ngày chạy lần là OK
Nếu muốn chắc thì kiếm các schedule chạy ngày 2 đến 3 lần cho chắc vì biết đâu lúc chạy server của ngân hàng chết thì sao.

Sub Auto_Open()
    Dim objWeb As QueryTable
    Sheet1.Select
    Cells.Delete
    Set objWeb = ActiveSheet.QueryTables.Add( _
    Connection:="URL;http://www.sbv.gov.vn/vn/home/index.jsp", _
    Destination:=Range("A1"))
    With objWeb
        '.WebSelectionType = xlSpecifiedTables 'xlAll
        .WebTables = 8
        .Refresh BackgroundQuery:=False
        '.SaveData = True
    End With
    Set objWeb = Nothing
    
End Sub

With objWeb
'.WebSelectionType = xlSpecifiedTables 'xlAll
.WebTables = 8
.Refresh BackgroundQuery:=False
'.SaveData = True
End With
Tôi thử bỏ bớt 2 dòng thì cũng OK, và thay thử số 8 thành 1 ->10 thì mỗi lúc mỗi khác.
Nhờ Bác chỉ giúp các dòng lệnh trên. Tôi thay thử www.acb.com.vn vào nó cũng OK. Hay thật. Cám ơn Bác nhiều.

 

[laulemroi]

Ngày nào em cũng phải vào mạng lấy tỷ giá bình quân liên ngân hàng để hạch toán
trang web ngân hàng

Bạn thử xem cái này thế nào!

 

[khongbietso]

With objWeb
'.WebSelectionType = xlSpecifiedTables 'xlAll
.WebTables = 8
.Refresh BackgroundQuery:=False
'.SaveData = True
End With

With objWeb
'.WebSelectionType = xlSpecifiedTables 'xlAll
Dòng này dùng để xác định kiểu nội dung trang web về xlAll là tất cả trang web, xlSpecifiedTables là một vùng bảng nào đó. ở đây tôi xác định đc vùng cần lấy là bảng thứ 8 - cái này thì cứ thử cho chạy từ 1 đến bảng nào chứa nội dung cần lấy thì thôi, còn không thì cứ xlAll tải cả trang web về (không cần.WebTables = 8 nữa) rồi xác định vùng cần bóc sang các sheets.
.Refresh BackgroundQuery:=False
Không lấy dữ liệu từ web khi mở file, còn True thì nó tự động lấy nội dung (refresh) ngay khi file vừa mở ra (cái này đâu có cần vì đằng nào mình chả phải chạy từ đầu)
.SaveData = True
Ghi query này lại cùng với workbook.

Với cách lấy này chúng ta có thể lấy được nội dung của các trang web có dạng
http://www.vietcombank.com.vn/News/Vcb_News.aspx?ID=4175
Cho vòng for chạy từ 1 đến 4175 thì ta có thể lần lượt bóc được hết nội dung của vcb

Demo luôn cho đồng chí ở file đính kèm

 

[ST-Lu!]

Cám ơn anh rất nhiều
Do đặc trưng của công ty em. Nên không dùng tỷ giá hạch toán theo tháng, hay năm mà
tỷ giá hạch toán tỷ giá bình quân của liên ngân hàng
- Khi hạch toán công nợ: hạch toán theo tỷ giá bình quân liên ngân hàng
- Khi khách hàng thanh toán: hạch toán theo tỷ giá bán ra của ngân hàng Việt Com bank

Anh ơi liệu sheet 1 lưu được
+ Phương án một: chỉ lưu một tỷ giá USD bình quân hàng ngày vào sheet 1 theo thứ tự row (hiện tại chỉ lưu một ngày)
+ Phương án hai: sheet một giữ nguyên như bây giờ, nhưng những ngày sau cập nhật sẽ tự động offset sang bên phải (khi đó ta sẽ kiểm tra được tỷ giá của từng ngày)

Cám ơn anh rất nhiều

ST

 

[khongbietso]

Ngày nào em cũng phải vào mạng lấy tỷ giá bình quân liên ngân hàng để hạch toán
trang web ngân hàng

hóa ra chủ topic muôn lấy tỷ giá bình quân liên ngân hàng, đọc loáng thoáng nên lại lam ko đúng ý.
đây là bản đã thêm tỷ giá liên ngân hàng, chưa thử test dc xem ngày nào mà số liệu ko có thi có bị lỗi ko. tuy nhiên như hiện nay thì ổn

 

[ThuNghi]

hóa ra chủ topic muôn lấy tỷ giá bình quân liên ngân hàng, đọc loáng thoáng nên lại lam ko đúng ý.
đây là bản đã thêm tỷ giá liên ngân hàng, chưa thử test dc xem ngày nào mà số liệu ko có thi có bị lỗi ko. tuy nhiên như hiện nay thì ổn

Bạn làm luôn 1 file lấy tỉ giá ACB, đồng JPY thôi hộ cái. Tỉ giá này mỗi ngày thay đổi khoảng 7 lần. Thêm giờ change.
Cám ơn Bạn.
http://www.acb.com.vn/tygia/

 

[khongbietso]

Bạn làm luôn 1 file lấy tỉ giá ACB, đồng JPY thôi hộ cái. Tỉ giá này mỗi ngày thay đổi khoảng 7 lần. Thêm giờ change.
Cám ơn Bạn.
http://www.acb.com.vn/tygia/

Nhìn số bài viết của thunghi mình nghĩ bạn đủ sức để sửa cái sub bóc lấy tỷ giá của đồng JPY, còn việc nó thay đổi nhiều lần trong ngày thì kiếm cái task schedule đặt lịch mở file excel này, thêm lệnh ghi và đong excel trong code nữa là xong.

 

[xuantham]

Anh Thu Nghi ơi! Các bạn ơi!

Có cách nào lấy tỷ giá từ ngày.... đến ngày của 1 loại ngoại tệ nào đó được không? Mình sẽ gỏ vào loại ngoại tệ muốn search để update. Như vậy sẽ thuận tiện hơn nếu lở mấy ngày nào quên thì mấy hôm sau còn update lại được

 

[ThuNghi]

Anh Thu Nghi ơi! Các bạn ơi!

Có cách nào lấy tỷ giá từ ngày.... đến ngày của 1 loại ngoại tệ nào đó được không? Mình sẽ gỏ vào loại ngoại tệ muốn search để update. Như vậy sẽ thuận tiện hơn nếu lở mấy ngày nào quên thì mấy hôm sau còn update lại được

Cái này hay đấy, chưa nghĩ ra, tính cho ngày hệ thống trở về thời điểm lấy tỉ giá và cho next để lấy mà chưa biết cách làm. Các trang web tỉ giá có những trang sẽ có biểu đồ theo tháng, có trang không.
Ví dụ trang này.
http://www.acb.com.vn/tygia/chart/index.jsp

 

[sonktv]

Hàm tính tỷ giá

hóa ra chủ topic muôn lấy tỷ giá bình quân liên ngân hàng, đọc loáng thoáng nên lại lam ko đúng ý.
đây là bản đã thêm tỷ giá liên ngân hàng, chưa thử test dc xem ngày nào mà số liệu ko có thi có bị lỗi ko. tuy nhiên như hiện nay thì ổn

Chào bạn, bạn có thể giải quyết giúp tôi cái này được không vì tôi mới dùng thử nhưng không được. Bạn có thể test lại cho tôi được không.
Xin cảm ơn,

 

[tranhongle]

hóa ra chủ topic muôn lấy tỷ giá bình quân liên ngân hàng, đọc loáng thoáng nên lại lam ko đúng ý.
đây là bản đã thêm tỷ giá liên ngân hàng, chưa thử test dc xem ngày nào mà số liệu ko có thi có bị lỗi ko. tuy nhiên như hiện nay thì ổn

Làm luôn cho đồng chí, cái này có sub auto_open nên khi mở file này là nó làm luôn nhiệm vụ load dữ liệu trên trang wweb về và bóc tách số liệu vào sheet2 và sheet3.
Ngoài ra có các nút CAP NHAT để chúng ta thử chạy lệnh cập nhật.
Nó sẽ dò xem ngày trên web đã tồn tại ở dòng cuối cùng của bảng chưa nếu chưa có sẽ thực hiện bóc tách. Còn đã có rồi nghĩa là đã được bóc tách trước đó
File này đồng chí chỉ cần thả vào schedule của win cho ngày chạy lần là OK
Nếu muốn chắc thì kiếm các schedule chạy ngày 2 đến 3 lần cho chắc vì biết đâu lúc chạy server của ngân hàng chết thì sao.

Đồng chí cho em hỏi ngu tí, đây là ngôn ngữ lập trình ạ? có phải VBA hay SQL gì đó không? Em mù mờ cái này...tks

 

[AutoReply]

Đồng chí cho em hỏi ngu tí, đây là ngôn ngữ lập trình ạ? có phải VBA hay SQL gì đó không? Em mù mờ cái này...tks

Người mà bạn hỏi đã không còn tham gia diễn đàn 3 năm trước rồi bạn.
Nhìn thấy lần cuối 4 Tháng hai 2015 .
Cái bạn nhìn thấy là 1 ngôn ngữ lập trình rất cao siêu huyền bí, có thể đã thất truyền trong giới võ lâm đương đại. Thật đáng tiếc.

 

[VetMini]

Đừng trách, người ơi, mười năm rồi còn gì... (Lam Phương)