如何从这个网页提取表格数据,做成电子表格呢?谢谢
如何从这个网页提取表格数据,做成电子表格呢?谢谢如何从这个网页提取表格数据,做成电子表格呢?谢谢
http://xkkm.
好指导学校的学生选考科目。
[此贴子已经被作者于2018-8-8 15:09编辑过]
Function GetHTMLCode(Optional strURL As String) As String Dim objHttp As Object, strText As String Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") objHttp.Open "GET", strURL, False objHttp.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHttp.Send ("") strText = objHttp.responseText Set objHttp = Nothing GetHTMLCode = strText End Function