- Tham gia
- 9/10/06
- Bài viết
- 180
- Được thích
- 185
Công ty em làm kinh doanh ve chai với lại sắt vụn thương hay giao dịch với nước ngoài, mỗi ngày giá trị giao dịch lên đến hàng tỷ đô la. Giám đốc và các nhân viên rất bận(Phân loại ve chai và sắt vụn bán cho có giá) nên không có thời gian lên mạng xem tỷ giá. Vì vậy ban giám đốc quyết định đầu tư một dự án phần mềm(Trị giá nhiều cân sắt vụn) có chức năng cập nhật tỷ giá trực tuyến và giao cho ruadangyeu phụ trách. Sau đây là mã của chương trình.
(Các cơ quan tổ chức có nhu cầu xin liên hệ với ruadangyeu để mua bản quyền sử dụng)
Private Sub tygia_Click()
Dim objWeb As QueryTable
Dim sWebTable As String
'Trong ma html cua site nay ty gia duoc luu trong table thu 3
sWebTable = 3
Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;http://www.vnmedia.vn/giavang_tygia.asp", _
Destination:=Range("A1"))
With objWeb
.WebSelectionType = xlSpecifiedTables
.WebTables = sWebTable
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Set objWeb = Nothing
Range("A22:E22").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "Website: http://www.ruadangyeu.info"
End Sub
Anh em nào mê số đề với lại bóng đá thì làm một cái chơi nhé, cũng tương tự thôi mà
(Các cơ quan tổ chức có nhu cầu xin liên hệ với ruadangyeu để mua bản quyền sử dụng)
Private Sub tygia_Click()
Dim objWeb As QueryTable
Dim sWebTable As String
'Trong ma html cua site nay ty gia duoc luu trong table thu 3
sWebTable = 3
Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;http://www.vnmedia.vn/giavang_tygia.asp", _
Destination:=Range("A1"))
With objWeb
.WebSelectionType = xlSpecifiedTables
.WebTables = sWebTable
.Refresh BackgroundQuery:=False
.SaveData = True
End With
Set objWeb = Nothing
Range("A22:E22").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "Website: http://www.ruadangyeu.info"
End Sub
Anh em nào mê số đề với lại bóng đá thì làm một cái chơi nhé, cũng tương tự thôi mà
File đính kèm
Lần chỉnh sửa cuối: