自动获取美元最新汇率

Sub MACRO1()
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://www.google.cn/search?&q=1usd%3D%3Frmb", False
.Send
MsgBox Split(Split(.responseText, "1美元 =")(1), "人民币")(0)
End With
End Sub