三七廿一的博客

Sub wzssqkj() Dim myHTTP As Object, s As String Set myHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 'json网页 With myHTTP .Open "GET", "http://www.cwl.gov.cn/cwl_admin/kjxx/findDrawNotice?name=ssq&issueCount=30", False .