Làm cách nào để import trang web vào Excel

[dcongphuc]

Các bác cho em hỏi làm cách nào import trang web vào bảng tính Excel để tính toán trực tiếp theo thời gian thực đang thể hiện số liệu trên trang web đó, ví dụ như trang web có địa chĩ sau:http://www.bsc.com.vn/OP/Main.htm. Cám ơn các bác nhiều.

 

[tqhung65]

Bạn copy địa chỉ trang web
Trong Excel, chọn Data / Import External Data / New Web Query...
Dán địa chỉ trang web trên vào hộp Address, nhấn nút Go, chờ giây lát, nhấn nút Import.

 

[vnou]

Bác cho hỏi là cách này có cập nhật đươc thông tin thường xuyên không vậy?!? Em cũng vừa làm thử nhưng nó chỉ import cái "khung information" vào thôi chứ nó không import thông tin trong khung đó vào....em làm sai gì chăng ?? (em dùng excel 2007). Thanks bác nhiều

 

[SoiBien]

Trang web bạn cung cấp trên sử dụng Frame, bạn muốn import vào excel được thì phải dùng trang web này

http://www.bsc.com.vn/OP/Requester.htm


muốn refresh liên tục theo một khoảng thời gian định trước thì bạn dùng thêm 2 macro, một để refresh Web query, một để đặt time cho nó tự động refresh sau một khoảng thời gian nhất định.
VD

[color=darkblue]Sub[/color] refreshwebquery()
[color=green]'[/color]
[color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] [color=darkblue]Next[/color]
    Sheets("query").Select
    Selection.QueryTable.Refresh BackgroundQuery:=[color=darkblue]False[/color]
    autorefresh
[color=darkblue]End[/color] [color=darkblue]Sub[/color]
[color=darkblue]Sub[/color] autorefresh()
Application.OnTime Now + TimeValue("0:00:05"), "refreshwebquery"
[color=darkblue]End[/color] Sub

 

[stulipig]

Trang web bạn cung cấp trên sử dụng Frame, bạn muốn import vào excel được thì phải dùng trang web này

http://www.bsc.com.vn/OP/Requester.htm


muốn refresh liên tục theo một khoảng thời gian định trước thì bạn dùng thêm 2 macro, một để refresh Web query, một để đặt time cho nó tự động refresh sau một khoảng thời gian nhất định.
VD

[COLOR=darkblue]Sub[/COLOR] refreshwebquery()
[COLOR=green]'[/COLOR]
[COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]Resume[/COLOR] [COLOR=darkblue]Next[/COLOR]
    Sheets("query").Select
    Selection.QueryTable.Refresh BackgroundQuery:=[COLOR=darkblue]False[/COLOR]
    autorefresh
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]Sub[/COLOR] autorefresh()
Application.OnTime Now + TimeValue("0:00:05"), "refreshwebquery"
[COLOR=darkblue]End[/COLOR] Sub

Cám ơn Anh/Chị đã hướng dẫn.
Mình cũng đang trong thời gian đầu tìm hiểu về VBA. Sau khi đọc bài viết của bạn mình cũng áp dụng được. Nhưng không biết tắt chức năng Refresh bằng cách nào, anh/chị có thể hướng dẫn mình cách viết code để tắt autorefresh được không?
Xin cảm ơn.

 

[hoabien82]

Hi, chào mọi người. Mình đang cần lấy thông tin và cập nhật xử lý liên tục từ trang web của sàn vàng ACB để phân tích bằng excel. Nhưng k hiểu sao lại import trang web này như cách của bạn hướng dẫn thì lai k thấy số liệu gì hết cả. Có ai làm được, xin chỉ giáo nhé! Cám ơn nhiều nhiều!
http://www.acb.com.vn/contentssharing/banggiatructuyen.jsp
Chân thành!
Huy Hải