Lấy tỷ giá vàng, ngoại tệ bằng excel

[ruadangyeu]

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à

 

[lachinhan]

He he , cái này hay đấy, nhưng sau bác rùa rao bán bản quyền trên forum vậy ??? tặng anh em đi Bác Rùa ơi

 

[ruadangyeu]

Tết đến nơi rồi mà bí tiền quá
Ngày xưa nhỏ còn có tiền mùng tuổi để tiêu tết bây giờ thì...
Định kiếm chác tí nhưng thấy anh em nhiệt tình thế này sao sao mà bán được nữa

 

[choncam]

Bác chơi file này hay ghê, nhưng em muốn Bác cho em xin Ngân hàng Ngoại Thương (Vietcombank) Bác có thể link cho em được không?

 

[Mr Okebab]

Tết đến nơi rồi mà bí tiền quá
Ngày xưa nhỏ còn có tiền mùng tuổi để tiêu tết bây giờ thì...
Định kiếm chác tí nhưng thấy anh em nhiệt tình thế này sao sao mà bán được nữa

Hơi bị hay, mừng tuổi thì không được.
Nếu là "Rùa đang yếu"thì sẽ có khoản trợ cấp "độc hại"

OK ??

 

[master_crazy]

Exchange Rates của Ngân hàng ngoại thương nè Choncam:

Private Sub CommandButton1_Click()
Dim objWeb As QueryTable
Dim sWebTable As String
'Trong ma html cua site nay ty gia duoc luu trong table thu 3
sWebTable = 1
Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;http://www.vietcombank.com.vn/ExchangeRates/", _
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

 

[ndu96081631]

Exchange Rates của Ngân hàng ngoại thương nè Choncam:

Private Sub CommandButton1_Click()
Dim objWeb As QueryTable
Dim sWebTable As String
'Trong ma html cua site nay ty gia duoc luu trong table thu 3
sWebTable = 1
Set objWeb = ActiveSheet.QueryTables.Add( _
Connection:="URL;http://www.vietcombank.com.vn/ExchangeRates/", _
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

Chiêu khác:

Sub ExchangeRates()
  ThisWorkbook.FollowHyperlink "http://www.vietcombank.com.vn/ExchangeRates/ExrateXLS.aspx"
End Sub