|
请测试
- Sub YZC51()
- hh = Cells(Cells.Rows.Count, 2).End(xlUp).Row
- Range("b5:AZ" & hh) = ""
- bb$ = [b1]: ccc$ = [c1]
- With CreateObject("MSXML2.XMLHTTP")
- URL = "http://www.hn481.com/Tubiao/Index.aspx" '& Rnd
- .Open "POST", URL, False
- .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- .send "__VIEWSTATE=%2FwEPDwUJMzcwMDgxNjg1ZGSZszi3MP0rjTOzG%2F4tSpvMa%2FrcBg%3D%3D&__EVENTVALIDATION=%2FwEWCQLAkZ2LAwLdwIe2CAL6%2BO2aAQKH1MzlCAKM54rGBgL0pLPHDAKdxYHOAQL6rKiSDwK7q7GGCCLyKqovVi9S%2Brryg%2FsBvdGJDkXD&txtLoginName=&txtLoginPwd=&txtBeginTime=&DropDownList1=asc&Button1=&txtStartIssue=" & bb & "&txtEndIssue=" & ccc & "&Button2=1&txtCtype=-2&checkbox3=checkbox"
- stext = .responsetext
- strtext = "<table>" & Split(Split(stext, "<tbody id=""cpdata"">")(1), "<div id=""wrapper"">")(0) & "</table>"
- strtext = Replace(strtext, "font color=white", "font color=red")
- 'Debug.Print Mid(stext, 9000, 3000)
- End With
- With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
- .SetText strtext
- .PutInClipboard
- End With
- Range("b5").PasteSpecial
- Cells.Font.Size = 9
- Range("b5:az" & hh).Interior.ColorIndex = xlNone
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|