很久没再看 这个贴 子，没有想到上面还有提问。

有什么具体问题的话，发个贴 子，请给我发短消息并把贴子的链接告诉我。只要我有空，会尽量帮忙解决。

谢谢南客老师！

有南客这样的老师很难得啊!

南客老师，您好！
      重温了老师的帖子，酝酿了二个想法，还请老师帮助：
1).将沪深二地A股的收盘价、涨幅、成交量数据一次性输出到Excel。
2).现有一Excel，里面已有不同股票的有关数据,现要将各股票的C、ZF、V按照日期等一一对应一次性输出到Excel.(上传Excel)
肯定又要老师费神劳力了,谢谢老师！谢谢！期盼着。(h)(h)(h)

看这一楼的帖子花了一下午时间。
斑竹确实辛苦而且热心，很感动！
可以把自己计算出来的数据，用VB写个程序，转换成“自定义数据”能够识别的TXT格式，导入进去，再写公式引用，比以上提到的办法要简单得多！
另外，闲人是在使用“大单统计”来跟踪主力仓位，筛选标准是单笔成交量大于100手，然后进行统计，对吗？这些功能都可以在飞狐直接实现

本贴由 gm2000 于 2005-10-6 16:02 最后编辑

引用:

fc:0,linethick0;
fy:=year; fm:=month; fd:=day;
gpdm:=stklabel;
<%
gpdm=ffl.vardata("gpdm")
vc=ffl.vardata("fc")
vy=ffl.vardata("fy")
vm=ffl.vardata("fm")
vd=ffl.vardata("fd")
n=ffl.vardata("n")
last=ubound(vc)
  Dim Conn, Rs, Driver, DBPath
   TableName="Sheet1"
  'On Error Resume Next
  Set Conn = CreateObject("ADODB.Connection")
  Driver = "Driver={Microsoft excel Driver (*.xls)};"
  DBPath = "DBQ=F:\FoxTrader_V3\各股主力仓位.xls"  
  Conn.Open Driver & "ReadOnly=0;" & DBPath
  Set Rs = CreateObject("ADODB.Recordset")
  SQL=("SELECT * FROM [Sheet1$] where 名称 Like '%" & gpdm &"%'")  
  Rs.Open SQL, Conn, 3, 2
  if Err.Number <> 0 or Rs.Recordcount=0 then
     'msgbox "数据不存在"
  else
    j=1
    for i=0 to last
         vdate1=DateSerial(vy(i),vm(i),vd(i))
         vdate2=Cdate(mid(rs(j).name,2,len(rs(j).name)-1))
        while vdate1>vdate2
          j=j+1
          if j>rs.fields.count-1 then Exit for
          vdate2=Cdate(mid(rs(j).name,2,len(rs(j).name)-1))
        wend
        if vdate1=vdate2 then
          vc(i)=Rs(j).Value
          j=j+1
          if j>rs.fields.count-1 then Exit for
        end if
    next
  end if
ffl.vardata("fc")=vc
%>
STICKLINE(fc>0,0,fc,5,1),colorred;
STICKLINE(fc<0,0,fc,5,1),colorgreen;

:clap:

:@:@

D

，习习。

ok

非常感谢

我怎  原样复制到 飞狐里 老提示    执行vbs出错     这个提示? 也不显示 到底是那句错误了 晕

如何得到飞狐板块指数过去的5分线k线,有没有办法？

引用:

原帖由 ls 于 2006-3-11 21:21 发表
如何得到飞狐板块指数过去的5分线k线,有没有办法？

没有办法

用了南客老师的输出数据到exce程序在六十分钟，可是只能看到一天四个收盘价数据，请老师能否改一下代码能完全输出日期、时间、开盘价、最高、最低、收盘和成交量的完整代码，请南客老师、斑竹或各位高手帮我一下，尽快完成这个公式代码的编程，谢谢了。

ok

有一个类似问题,急请高手解答.
想把自选股的代码与MACD值输出到一个文本文件内去,代码如下,怎么调试都不成功.发现是将数组变量DmStr[k]和MacdStr[k]而不是序列转入到VBS不能成功,恳请各位大虾给予帮助,小的在此致谢了.

bk:='自选股';
StkSum:=StkCount(bk);
zsgs:='macd.macd';
Variable: dmStr[StkSum]='';
Variable: MacdStr[StkSum]='';
for k=1 to StkSum do
begin
dm:=StkFromBlk(bk,k);
dmStr[k]:=dm;
tempPrice:=StkIndi(dm,zsgs,0,-1);
MacdStr[k]:=tempPrice[dataCount];
end;
<%
StockCode=FFL.VarData("dmStr")
StockNumber=FFL.VarData("StkSum")
Macd=FFL.VarData("MacdStr")
dim fso3,txtf3
Set fso3 = CreateObject("Scripting.FileSystemObject")
create=True
Set txtf3=fso3.OpenTextFile("c:\CurrentPrice.txt",2,create)
for i=1 to StockNumber
S= CStr(StockCode(i)) &","&CStr(Macd(i))
txtf3.WriteLine(S)
S=""
next
txtf3.Close
%>