东方财富网天天练

goldowl2011

Mark.Thanks a lot.good codes.

hwwyb

非常感谢，好多好的代码

tonny_wu

楼主强大，在运行1.开发式基金净值的时候出现“activex部件不能创建对象“的错误。如何调整？谢谢。我的excel2013.win8系统。谢谢。

ccwan

7完了就是10，楼主把8和9藏哪了？

onlycxb

ccwan 发表于 2015-3-27 10:51
7完了就是10，楼主把8和9藏哪了？

应该是没发出去。

onlycxb

东方财富网 > 数据中心 > 特色数据 > 股市日历    股市日历(2015-03-29)

1. 
   
2. Sub test()
   
3.     Dim strJs, P
   
4.     Cells.ClearContents
   
5.     With CreateObject("Microsoft.XMLHTTP")
   
6.         .Open "get", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GSRL&sty=GSRL&stat=10&fd=2015-03-29&sr=2&p=1&ps=1&js=(pc),(x)&callback=callback&_=1427621922927", False
   
7.         .send
   
8.         P = Split(.responsetext, ",")(0)
   
9.         .Open "get", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GSRL&sty=GSRL&stat=10&fd=2015-03-29&sr=2&p=1&ps=" & P & "&js={pages:(pc),data:[(x)]}&_=1427621922927", False
   
10.         .send
    
11.         '  Debug.Print .responsetext
    
12.         strJs = "var a=" & .responsetext & ";var b=a.data;var s=''; for(x in b){for(y in b[x]){s+=b[x][y]+'\t'};s+='\r'} "
    
13.     End With
    
14.     With CreateObject("MSScriptControl.ScriptControl")
    
15.         .Language = "javascript"
    
16.         strJs = .Eval(strJs)
    
17.     End With
    
18.     Arr = Split(strJs, vbCr)
    
19.     With ActiveSheet
    
20.         .[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
    
21.         .[a:a].TextToColumns Destination:=Range("A1")
    
22.     End With
    
23. End Sub
    

复制代码

onlycxb

补充8：
问题来源http://club.excelhome.net/forum. ... 438&pid=8144024
东方财富网 > 数据中心 > 特色数据 > 股市日历   股市日历(2015-03-29

1. Sub test()
   
2.     Dim strJs, P
   
3.     Cells.ClearContents
   
4.     With CreateObject("Microsoft.XMLHTTP")
   
5.         .Open "get", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GSRL&sty=GSRL&stat=10&fd=2015-03-29&sr=2&p=1&ps=1&js=(pc),(x)&callback=callback&_=1427621922927", False
   
6.         .send
   
7.         P = Split(.responsetext, ",")(0)
   
8.         .Open "get", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GSRL&sty=GSRL&stat=10&fd=2015-03-29&sr=2&p=1&ps=" & P & "&js={pages:(pc),data:[(x)]}&_=1427621922927", False
   
9.         .send
   
10.         '  Debug.Print .responsetext
    
11.         strJs = "var a=" & .responsetext & ";var b=a.data;var s=''; for(x in b){for(y in b[x]){s+=b[x][y]+'\t'};s+='\r'} "
    
12.     End With
    
13.     With CreateObject("MSScriptControl.ScriptControl")
    
14.         .Language = "javascript"
    
15.         strJs = .Eval(strJs)
    
16.     End With
    
17.     Arr = Split(strJs, vbCr)
    
18.     With ActiveSheet
    
19.         .[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
    
20.         .[a:a].TextToColumns Destination:=Range("A1")
    
21.     End With
    
22. End Sub
    

复制代码

onlycxb

Sub test()
    Dim strJs, P
    Cells.ClearContents
    With CreateObject("Microsoft.XMLHTTP")
        .Open "get", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GSRL&sty=GSRL&stat=10&fd=2015-03-29&sr=2&p=1&ps=1&js=(pc),(x)&callback=callback&_=1427621922927", False
        .send
        P = Split(.responsetext, ",")(0)
        .Open "get", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=GSRL&sty=GSRL&stat=10&fd=2015-03-29&sr=2&p=1&ps=" & P & "&js={pages:(pc),data:[(x)]}&_=1427621922927", False
        .send
        '  Debug.Print .responsetext
        strJs = "var a=" & .responsetext & ";var b=a.data;var s=''; for(x in b){for(y in b[x]){s+=b[x][y]+'\t'};s+='\r'} "
    End With
    With CreateObject("MSScriptControl.ScriptControl")
        .Language = "javascript"
        strJs = .Eval(strJs)
    End With
    Arr = Split(strJs, vbCr)
    With ActiveSheet
        .[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
        .[a:a].TextToColumns Destination:=Range("A1")
    End With
End Sub

onlycxb

最近发贴太费劲了

ak47ok

最近发贴太费劲了，