获取不到数据，哪里不对？？？

wjnds

请问为什么获取不了数据，如何修改？部分代码片段：

test.rar (37.64 KB, 下载次数: 15)

2020-12-6 03:00 上传

点击文件名下载附件

microyip

你把生成的strUrl放上网页打开看看就知道自己错在哪了

wjnds

microyip 发表于 2020-12-6 12:26
你把生成的strUrl放上网页打开看看就知道自己错在哪了

谢谢指点，贴出来的仅是部分代码。url后面有个+ stocks，stocks在之前定义过了为A列第4行开始的数据。

wjnds

帖子太沉了

wjnds

能获取到数据了，但只能获取第一个单元格的数据。。。

1. Dim xmlhttp As Object, json As Object
   
2. Dim strUrl As String
   
3. Dim intI As Integer
   
4. 
   
5. Set xmlhttp = CreateObject("msxml2.xmlhttp")
   
6. Set json = CreateObject("msscriptcontrol.scriptcontrol")
   
7. 
   
8. For intI = 4 To Range("A65536").End(xlUp).Row
   
9.     strUrl = "http://f10.eastmoney.com/PC_HSF10/NewFinanceAnalysis/MainTargetAjax?type=0&code=" & Trim(Range("A" & intI).Value)
   
10.     With xmlhttp
    
11.         xmlhttp.Open "GET", strUrl, False
    
12.         xmlhttp.send
    
13.         With json
    
14.             .Language = "jscript"
    
15.             .addcode "var mydata=" & xmlhttp.responsetext
    
16.             Set json = .codeobject.mydata
    
17.         End With
    
18.         
    
19.         Cells(intI, arrSrartColumn + 11) = CallByName(CallByName(json, "0", VbGet), "jbmgsy", VbGet)    '基本每股收益
    
20.         Cells(intI, arrSrartColumn + 12) = CallByName(CallByName(json, "0", VbGet), "kfjlr", VbGet)     '扣非净利润
    
21.         Cells(intI, arrSrartColumn + 13) = CallByName(CallByName(json, "0", VbGet), "zcfzl", VbGet)     '资产负债率
    
22.     End With
    
23. Next

复制代码