请教网页数据提取

c2222y

老师能不能帮忙修正下面代码，现在只能提取网页里表格的标题，无法提取下面的数据。
Sub 提取()
On Error Resume Next
Cells.ClearContents
        With CreateObject("msxml2.xmlhttp")
                .Open "GET", href = "../jqGridExp.do?action=export&rpt=workorders_buffer", False
                .send
                pageSize = Split(Split(.responseText, ":")(4), ",")(0)
                .Open "GET", href = "../jqGridExp.do?action=export&rpt=workorders_buffer", False
                .send
                strText = "<table>" & Replace(.responseText, "<br/>", "</td>\n<td>") & "</table>"
                        With CreateObject("htmlfile")
                                ReDim arrdata(1 To pageSize, 1 To 4)
                                .write strText
                                i = 0
                                        For Each tr In .all.tags("table")(0).Rows
                                                i = i + 1
                                                j = 0
                                                        For Each td In tr.Cells
                                                                j = j + 1
                                                                arrdata(i, j) = Replace(td.innertext, " ", "")
                                                        Next
                                        Next
                        End With
                Range("b2", "b" & UBound(arrdata) + 1).NumberFormatLocal = "@"
                Cells(1, 1).Resize(i, 4).Value = Array("生产任务单号", "物料名称", "当前状态", "金额")
                Cells(2, 1).Resize(i, 4).Value = arrdata
        End With
End Sub

cwpccna

1. Sub 提取()
   
2. On Error Resume Next
   
3. Cells.ClearContents
   
4.         With CreateObject("msxml2.xmlhttp")
   
5.                 .Open "GET", href = "../jqGridExp.do?action=export&rpt=workorders_buffer", False
   
6.                 .send
   
7.                 pageSize = Split(Split(.responseText, ":")(4), ",")(0)
   
8.                 .Open "GET", href = "../jqGridExp.do?action=export&rpt=workorders_buffer", False
   
9.                 .send
   
10.                 strText = "<table>" & Replace(.responseText, "<br/>", "</td>\n<td>") & "</table>"
    
11.                         With CreateObject("htmlfile")
    
12.                                 ReDim arrdata(1 To pageSize, 1 To 4)
    
13.                                 .write strText
    
14.                                 i = 0
    
15.                                         For Each tr In .all.tags("table")(0).Rows
    
16.                                                 i = i + 1
    
17.                                                 j = 0
    
18.                                                         For Each td In tr.Cells
    
19.                                                                 j = j + 1
    
20.                                                                 arrdata(i, j) = Replace(td.innertext, " ", "")
    
21.                                                         Next
    
22.                                         Next
    
23.                         End With
    
24.                 Range("b2", "b" & UBound(arrdata) + 1).NumberFormatLocal = "@"
    
25.                 Cells(1, 1).Resize(i, 4).Value = Array("生产任务单号", "物料名称", "当前状态", "金额")
    
26.                 Cells(2, 1).Resize(i, 4).Value = arrdata
    
27.         End With
    
28. End Sub

复制代码

c2222y

不要沉了啊

mxf21cn

网址都没有怎么，怎么帮呀？
href = "../jqGridExp.do?action=export&rpt=workorders_buffer", 这个链接不完整，你是怎么取到数据的呢？

c2222y

mxf21cn 发表于 2018-8-10 19:42
网址都没有怎么，怎么帮呀？
href = "../jqGridExp.do?action=export&rpt=workorders_buffer", 这个链接不 ...

是内网的网址，点这个衔接可以从内网网址上导出EXCEL格式的数据

mxf21cn

c2222y 发表于 2018-8-11 18:12
是内网的网址，点这个衔接可以从内网网址上导出EXCEL格式的数据

那你就继续split 呗

c2222y

mxf21cn 发表于 2018-8-11 19:12
那你就继续split 呗

有具体的方法不？额小白一个

mxf21cn

c2222y 发表于 2018-8-11 23:18
有具体的方法不？额小白一个

把  。responseText    的内容发出来  ，需要那部分标记下，再帮你看看吧