例子：
Sub GetData() Dim Xl As Object Set Xl = CreateObject("MiCROSOFT.XMLHTTP") Xl.Open "GET", "http开头的网络地址.txt", False Xl.send "" Range("A1") = Xl.responseTextEnd Sub
