获取股票即时数据 - VB6论坛

已结贴√ 问题点数：0 回复次数：11

获取股票即时数据

下面这段代码是从新浪下面这段代码是从新浪获取即时数据,是我从网上找到的,但是用VB6运行时提示"用户定义类型未定义",试了几次都不成功,总是提示"无效的内部过程",请高手看看该如何定义呢?
谢谢!!!
'======================================
Sub 获取股票实时价格()
'要求
Dim xmlhttp As MSXML2.XMLHTTP30
Set xmlhttp = New XMLHTTP30

Sheets("资金明细").Select
'Cells.Select

List = "sh000001,sz000001": '股票代码列表，用逗号分开

xmlhttp.Open "GET", "http://hq. + List, False
xmlhttp.send
strs = Split(xmlhttp.responseText, Chr$(10))
indexs = Split(Index, ",")

For i = 1 To UBound(strs) - 1
valueStr = Split(strs(i), ",")
'格式如下:
'0：股票名称，1：今开盘，2：昨收盘，3：当前价，4：最高价，5：高低价，6:买一价，7：卖一价，8：成交量(手)，9：成交额(元)，
'10：买一量(手)，11：买一价，12:买二量(手)，13：买二价，14:买三量(手)，15：买三价，16：买四量(手)，17：买四价，18：买五量(手)，19：买五价
'20：卖一量(手)，21：卖一价，22:卖二量(手)，23：卖二价，24:卖三量(手)，25：卖三价，26：卖四量(手)，27：卖四价，28：卖五量(手)，29：卖五价
'30：交易日期，31：交易时间
'var hq_str_sh601600="中国铝业,23.06,23.15,22.84,23.28,22.50,22.83,22.84,21192649,485084732,5274,22.83,2300,22.82,6600,22.81,54170,22.80,23389,22.79,10500,22.84,1400,22.85,34628,22.86,4400,22.87,18650,22.88,2008-04-11,15:05:33";
'此处可插入处理代码
Next i
End Sub
'======================================

搜索更多相关主题的帖子: 网上　新浪　股票代码　股票　用户　

第 2 楼

得分:5

学习，关注，谢谢楼主！

第 3 楼

得分:0

高手都去玩了吗?

第 4 楼

得分:0

期盼高手

第 5 楼

得分:5

代码不够详细，如果只凭这么些代码的话，肯定是不行的。像list啊，这些看起来静态变量，但都没有声明

都说到了.net年代，VB与C#都是一样的！
但为什么招聘的都是C#呢？

第 6 楼

得分:0

list只是一个放入代码的变量,
问题是出在list前面的一段代码,不知怎么设定才是正确的.

第 7 楼

得分:5

List = "sh000001,sz000001": '股票代码列表，用逗号分开
引號外面的冒號有什麼作用?
引用Microsofo XML V3.0 了嗎?

[ 本帖最后由 ta8607 于 2011-10-4 16:28 编辑 ]

不理会流言蜚语,努力做好份内事情,只做自己.

第 8 楼

得分:0

问题在"用户定义类型未定义",不知如何正确定义.

第 9 楼

得分:0

回复 7楼 ta8607

您的意思引用一下就是定义了吗?
谢谢,我试试

第 10 楼

得分:0

还是不行
有一段取网上股票数据的javascript代码, 运行后会显示获取的数据, 那位老师能改写成VB代码就好了.)

'======================================================================================
<html>
<head>
<script type="text/javascript" src="http://hq.,sh601008"
charset="gb2312"></script>
<script type="text/javascript">
     var elements1=hq_str_sh601006.split(",");
     var elements2=hq_str_sh601008.split(",");
  n0=elements1[0];
  n1=" O:"+elements1[1];
  n4=" H:"+elements1[4];
  n5=" L:"+elements1[5];
  n3=" C:"+elements1[3];
  n21=" h1:"+elements1[21];
  n20=" hs:"+elements1[20];
  n11=" l1:"+elements1[11];
  n10=" ls:"+elements1[10];
document.write(n0,n1,n4,n5,n3,n21,n20,n11,n10);

  nn0=elements2[0];
  nn1=" O:"+elements2[1];
  nn4=" H:"+elements2[4];
  nn5=" L:"+elements2[5];
  nn3=" C:"+elements2[3];
  nn21=" h1:"+elements2[21];
  nn20=" hs:"+elements2[20];
  nn11=" l1:"+elements2[11];
  nn10=" ls:"+elements2[10];
document.write(nn0,nn1,nn4,nn5,nn3,nn21,nn20,nn11,nn10);

</Script>
</head>
</html>
'=================================================================

[ 本帖最后由 szcjh 于 2011-10-5 13:58 编辑 ]