Làm sao cập nhật tự động bảng giá cổ phiếu trong Excel

[tinybonds]

ai chỉ mình cách cập nhật thông in vào 1 bạn 1 cách tự động , theo ngày .Mình có 1 bản DL gom nhieu cong ty , mình muốn mỗi ngày cập nhật vào trang chính , sao đó các congty se lay du liệu từ đó cập nhật .

 

[tsf]

ai chỉ mình cách cập nhật thông in vào 1 bạn 1 cách tự động , theo ngày .Mình có 1 bản DL gom nhieu cong ty , mình muốn mỗi ngày cập nhật vào trang chính , sao đó các congty se lay du liệu từ đó cập nhật .

Hố hố, vậy là sao, ai hiểu hết, tui dẫn đi..
Mời up file lên yêu cầu chi tiết, mọi việc sẽ nhanh chóng và sáng tỏ.

 

[tinybonds]

Mình có 1 bảng cập nhật hằng ngày trị giá cổ phiều của các công ty . Rồi có rất nhiều bản về từng công ty . Mình muốn khi cập nhật vào Bảng chính nó sẽ tự động bỏ thông tin vào các công ty , theo từng ngày.

 

[tsf]

Mình có 1 bảng cập nhật hằng ngày trị giá cổ phiều của các công ty . Rồi có rất nhiều bản về từng công ty . Mình muốn khi cập nhật vào Bảng chính nó sẽ tự động bỏ thông tin vào các công ty , theo từng ngày.

Có đầy trên diễn đàn đấy. Bạn search mục đại loại như là: "tự động cập nhật dữ liệu trong excel".
Ý tui nói là: bạn gởi file thì mọi người có nhiều ý kiến, đỡ mất thời gian không nào. Đoán kg lầm thì bạn sợ thông tin mật của bạn thôi. Theo tui, chả có gì.

 

[tinybonds]

mình ko biết up lên đây . chứ có gì đâu mà sợ

 

[tinybonds]

.xls bạn vào xem thữ đây là danh sach rat nhieu cong ty , Moi Code la 1 cong ty . Minh muon lay DL cua tung cong ty bo vao 1 file rieng

 

[tedaynui]

bài mình vừa post mất tiêu rồi ta . http://www.stock-vietnam.com/data/Upload_file/All/Trading%20summary-HCM%20Market-02-08-2007.xls .Bạn coi lại thữ nha mình muốn cập nhật theo ngày . Mỗi ngày các file mang tên Công ty se lấy DL từ đây vào

Chào bạn
Mình mượn code trên GPE để diễn tả theo yêu cầu của bạn.
1/ Khi bạn giải nén và mở file Main ra thì bạn chịu khó Update Link lại file Temp.xls (trong thư mục vừa bung nén)
2/ Mình Link mỗi Cty 1 sheet (nếu mỗi File thì cách làm tương tự)
3/ khi click nút UpDate thì Excel sẽ down file Trading Summary về cùng thư mục file Main.xls có tên là Temp.xls
Vấn đề quan trọng là tự động down file Trading Summary về và phần còn lại thì có lẽ bạn thay đổi linh hoạt theo ý mình rồi đúng không.

TDN

 

[tinybonds]

Mình biết ít về excel lắm bạn có thề chỉ mình rõ tí đc ko ? Các công ty khác còn lại làm thế nào . Còn việc làm theo ý mình ... chắc là ko đc . Với mình còn làm 1 trường Ngày nữa .Để sau này vẽ biểu đồ . Cám ơn bạn nhiều nha .

 

[tedaynui]

Mình biết ít về excel lắm bạn có thề chỉ mình rõ tí đc ko ? Các công ty khác còn lại làm thế nào . Còn việc làm theo ý mình ... chắc là ko đc . Với mình còn làm 1 trường Ngày nữa .Để sau này vẽ biểu đồ . Cám ơn bạn nhiều nha .

Tạm thời mình làm trên 1 file và trên file này có nhiều Sheet. Mỗi sheet là 1 Cty. Như vậy bạn xem có đạt được theo yêu cầu của bạn về việc cập nhật số liệu mỗi khi click nút Update chưa ? Nếu thấy được rồi thì sau đó mới tách các Sheet ra thành từng File (Mỗi file là 1 Cty - vì nhiều CTy quá. Hi hi) và việc thêm cột ngày ... thì thấy được mới làm tiếp chứ.
Mến!

 

[tinybonds]

Nó báo lỗi bạn ơi

Bạn xem lại dùm mình nha .

 

[LikeIt]

Bạn vào tôl/ macro/ security/macro, rồi bạn kích vào chữ medium. Nhớ khi mở các file có macron phải kích vào enable macro thì file đó mới hoạt động theo đúng như lênh trong macro đã viết. thân

 

[tinybonds]

hix hix phiền các bạn thật mà nó báo lỗi nữa rồi .

 

[Lam_A0]

Bạn click vào Show Help!

 

[tinybonds]

bấm vào đấy toàn tiếng anh ko biết cái chi cả http://http://www.stock-vietnam.com/data/Upload_file/All/error70.jpg

 

[tedaynui]

Gởi Tinybonds
Bạn click Debug xem bị lỗi dòng nào.
Mình đã test thử và chạy OK mà.

TDN

 

[tinybonds]

Loi chữ màu đỏ
If Dir(vLocalFile) <> "" Then Kill vLocalFile

Option Explicit
Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", vWebFile, False 'Mo trang web voi phuong thuc get
oXMLHTTP.Send

Do While oXMLHTTP.readyState <> 4
DoEvents
Loop

oResp = oXMLHTTP.responseBody 'tra ve ket qua

'ghi file ra o cung
vFF = FreeFile
If Dir(vLocalFile) <> "" Then Kill vLocalFile
Open vLocalFile For Binary As #vFF
Put #vFF, , oResp
Close #vFF

Set oXMLHTTP = Nothing
End Function

Sub DownFile()
SaveWebFile "http://www.stock-vietnam.com/data/Upload_file/All/Trading%20summary-HCM%20Market-02-08-2007.xls", ActiveWorkbook.Path & "\temp.xls"
End Sub

 

[tinybonds]

Nó chạy rồi bạn ơi . Cập nhật đc rồi . Giờ bạn chĩ mình nốt phần nó sẽ cập nhật mỗi ngày . Với các file nha ^^ thanks bạn nhềiu lắm nó chạy mừng ghê luôn.

 

[tedaynui]

Nó chạy rồi bạn ơi . Cập nhật đc rồi . Giờ bạn chĩ mình nốt phần nó sẽ cập nhật mỗi ngày . Với các file nha ^^ thanks bạn nhềiu lắm nó chạy mừng ghê luôn.

Nếu ưng ý thì phần còn lại đơn giản rồi. Bạn làm tương tự như sau. Thay vì mỗi Cty 1 sheet. Bậy giờ bạn làm mỗi Cty 1 file (khoảng 110 Cty thì phải - Chắc chết luôn). Vậy là xong. Mình nghĩ bạn nên để trên 1 file mỗi Cty 1 sheet sẽ dễ theo dõi, dễ thao tác hơn nhiều.
TDN

 

[tinybonds]

Mà bạn ơi sao nó ko xuống hàng . Mình cập nhật thì cái cũ mất . Mình nói rõ cái này tí . Cái Bảng excel này là nhân viên mình cập nhật mỗi ngày . Bạn cho mình ý kiến nha .

 

[tedaynui]

Mà bạn ơi sao nó ko xuống hàng . Mình cập nhật thì cái cũ mất . Mình nói rõ cái này tí . Cái Bảng excel này là nhân viên mình cập nhật mỗi ngày . Bạn cho mình ý kiến nha .

Hi hi. Muốn dữ liệu mới xuống hàng thì Phải sửa VBA rồi. Tên file down về là Temp1, Temp2, ... và các file link công thức cũng sửa lại tí mới phù hợp được bạn ơi
TDN