自动获取美元最新汇率
摘要：
Sub MACRO1()With CreateObject("Msxml2.XMLHTTP").Open "GET", "http://www.google.cn/search?&q=1usd%3D%3Frmb", False.SendMsgBox Split(Split(.responseTex... 阅读全文
posted @ 2007-10-11 23:43 王峰炬 阅读(116) 评论(0) 推荐(0) 编辑
