自动获取美元最新汇率 Sub MACRO1()With CreateObject("Msxml2.XMLHTTP").Open "GET", "http://www.google.cn/search?&q=1usd%3D%3Frmb", False.SendMsgBox Split(Split(.responseText, "1美元 =")(1), "人民币")(0)End WithEnd Sub