网页提取

cumulonimbus

ccwan 发表于 2014-4-13 10:44

经鉴定，少了两行

缔造者

cumulonimbus 发表于 2014-5-4 16:29
经鉴定，少了两行

测试成功！

缔造者

ccwan 发表于 2014-5-4 13:37

谢谢！
向你致敬！

学不完用不尽

ccwan 发表于 2014-4-13 10:44

老师您好！
现在为什么提取不到数据？提示：下标越界。

ccwan

我试着没有问题的

学不完用不尽

ccwan 发表于 2015-5-1 09:39
我试着没有问题的

谢谢ccwan老师！
程序没问题，是我把工作表名称输错了，致使在本工作簿里查询不到此工作表而出现错误。

good8195

ccwan 发表于 2014-5-4 13:39
附件

請問這能否抓gmail的信件內容?

缔造者

ccwan 发表于 2014-5-4 13:39
附件

老师您好！
再次麻烦您一下，我想把这个程序由根据日期提取数据改为根据期号提取数据，请您在百忙中抽点小空帮忙改改。谢谢！
提取.rar (20.21 KB, 下载次数: 5)

2016-7-4 20:04 上传

点击文件名下载附件

YZC51

缔造者 发表于 2016-7-4 20:04
老师您好！
再次麻烦您一下，我想把这个程序由根据日期提取数据改为根据期号提取数据，请您在百忙中抽点 ...

请测试

1. Sub YZC51()
   
2.     hh = Cells(Cells.Rows.Count, 2).End(xlUp).Row
   
3. Range("b5:AZ" & hh) = ""
   
4.     bb$ = [b1]: ccc$ = [c1]
   
5. 
   
6.     With CreateObject("MSXML2.XMLHTTP")
   
7.         URL = "http://www.hn481.com/Tubiao/Index.aspx" '& Rnd
   
8.         .Open "POST", URL, False
   
9.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
10.         .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"
    
11.         stext = .responsetext
    
12.         strtext = "<table>" & Split(Split(stext, "<tbody id=""cpdata"">")(1), "<div id=""wrapper"">")(0) & "</table>"
    
13.         strtext = Replace(strtext, "font color=white", "font color=red")
    
14. 'Debug.Print Mid(stext, 9000, 3000)
    
15.     End With
    
16.     With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
    
17.         .SetText strtext
    
18.         .PutInClipboard
    
19.     End With
    
20.     Range("b5").PasteSpecial
    
21.     Cells.Font.Size = 9
    
22.     Range("b5:az" & hh).Interior.ColorIndex = xlNone
    
23. End Sub
    

复制代码

缔造者

YZC51 发表于 2016-7-5 08:58
请测试

测试通过，非常感谢，谢谢！