网页抓取数据代码求助

ming2018

谁可以帮忙写一下代码

duquancai

手机，没法写。

ming2018

1、网址:华泰证券股份有限公司上海共和新路证券营业部龙

ming2018

duquancai 发表于 2018-9-9 11:54
手机，没法写。

1、网址:华泰证券股份有限公司上海共入额(万)        卖出额(万)        净额(万)               

719404338

1. Sub t()
   
2. Dim arr(1 To 1000, 1 To 9), p%
   
3. With CreateObject("Microsoft.XMLHTTP")
   
4.        For p = 1 To 5
   
5.              .Open "GET", "http://data.eastmoney.com/DataCenter_V3/stock2016/jymx.ashx?pagesize=50&page=" & p & "&js=var%20xVUtQFae&param=&sortRule=-1&sortType=&gpfw=0&code=80154448&rt=25607722", True
   
6.              .Send
   
7.              Do Until .ReadyState = 4
   
8.                  DoEvents
   
9.              Loop
   
10.              brr = Split(StrConv(.responseBody, vbUnicode, &H804), "SName")
    
11.      
    
12.           For i = (p - 1) * 50 + 1 To UBound(brr) - 1 + (p - 1) * 50
    
13.           arr(i, 1) = Split(brr(i - (p - 1) * 50), """")(10)
    
14.           arr(i, 2) = Split(brr(i - (p - 1) * 50), """")(2)
    
15.           arr(i, 3) = Split(brr(i - (p - 1) * 50), """")(58)
    
16.           arr(i, 4) = Split(brr(i - (p - 1) * 50), """")(50)
    
17.           arr(i, 5) = Split(brr(i - (p - 1) * 50), """")(26)
    
18.           arr(i, 6) = Split(brr(i - (p - 1) * 50), """")(38)
    
19.           arr(i, 7) = Split(brr(i - (p - 1) * 50), """")(70)
    
20.           arr(i, 8) = Split(brr(i - (p - 1) * 50), """")(34)
    
21.           arr(i, 9) = Split(brr(i - (p - 1) * 50), """")(129)
    
22.                
    
23. Next i, p
    
24. [a2].Resize(UBound(arr), 9) = arr
    
25. End With
    
26. End Sub
    

复制代码

ming2018

719404338 发表于 2018-9-9 17:13

下面这两个能否也帮忙写一下，感谢。生成的股票代码能否6位数字

任飘渺

python 爬了500个

import xlwt
import requests
import json


def parse_page(url):
    headers={'User-Agent': 'Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/67.0.3396.87 Safari/537.36'}
    resp=requests.get(url,headers=headers)
    text=resp.text.strip('var aLWhGZTJ=')
    text=json.loads(text)
    datas=text['data']
    output(datas)

def output(datas):
    keys=tuple(datas[0].keys())
    print(keys)
    wb=xlwt.Workbook()
    sht=wb.add_sheet('无锡清扬',cell_overwrite_ok=True)
    n=1
    j=0
    for key in keys:
        sht.write(0,j,key)
        j+=1
    for x in range(len(datas)):
        i = 0
        for key in keys:
            sht.write(n,i,datas[x][key])
            i+=1
        n+=1

    wb.save('无锡清扬.xls')


def main():
    url='http://data.eastmoney.com/DataCenter_V3/stock2016/jymx.ashx?pagesize=500&page=1&js=var%20aLWhGZTJ¶m=&sortRule=-1&sortType=&gpfw=0&code=80174625&rt=25608261'
    parse_page(url)


main()

ming2018

任飘渺 发表于 2018-9-9 21:15
python 爬了500个

import xlwt

虽然我看不懂怎么用，还是谢谢。