vba 写文件和 打开网页获取源码

将字符串保存到文件：
           Open "C:\Users\zdl\Desktop\jingdong\right2.html" For Output As #1
           Print #1, txtContent
           Close #1
打开网页获取内容：
 Set objXML2 = CreateObject("Microsoft.XMLHTTP")
                     With objXML2
                        .Open "GET", " http://search.jd.com/Search?keyword=" & unicode & "&enc=utf-8&wq=" & unicode & "&pvid=kj0couei.7qi4c8#keyword=" & unicode & "&enc=utf-8&qrst=1&rt=1&stop=1&vt=2&sttr=1&click=&psort=&page=3", False
                       ' .Open "GET", " http://search.jd.com/Search?keyword=%E8%B8%9D%E9%9D%B4&enc=utf-8&qrst=1&rt=1&stop=1&vt=2&sttr=1&click=&psort=&page=3", False
                        .send
                        If objXML2.Status = 200 Then
                            txtContent2 = .responsetext
                            jiage = Split(txtContent2, "data-price=" & Chr(34))
                            For temp = 1 To UBound(jiage)
                                jiage2 = Split(jiage(temp), Chr(34))
                        'MsgBox arr4(0)
                        'GoTo jieshu
                                Sum = Sum + CCur(jiage2(0))
                            Next temp
                            'MsgBox Sum
                        End If
                    End With
注意html的大小写问题，还有网站位置可能变化，把获取的网页保存到文件就好了