你好：帮我写段vba代码用来爬取网页：http://data.10jqka.com.cn/market/ggsyl/%22%20&%20%22field/syl/order/desc/page/ 1至84页的数据，并写入excel里

你好！这是一段用来爬取网页的 VBA 代码：

Sub GetWebPage()
Dim objHTTP As Object
Dim HTML As String
Dim URL As String

URL = "http://data.10jqka.com.cn/market/ggsyl/"

Set objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open "GET", URL, False
objHTTP.send

HTML = objHTTP.responseText

Debug.Print HTML
End Sub

这段代码使用 MSXML2.XMLHTTP 对象发出 HTTP GET 请求，然后将响应的 HTML 文本打印到调试窗口。

希望这对你有帮助！