改成下面的代码试试：

复制内容到剪贴板

代码:

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=E:\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;

谢谢！

谢谢南客老师！要等明天开盘后才能见分晓。谢谢！谢谢！

谢谢

南客老师：我将最新的"体检数据"公式引入后,"休检"正常了，"主力仓位"不正常了,为了尽量少烦老师我就依葫芦画瓢,对照着老师的新公式将老公式逐行逐词地比对,修改，结果不成功.现将修改后的公式上传，请老师看看毛病究竟出在什么地方.

今早开盘后无异常，很稳定，只是切换股票时较慢，我己经很满足了.万分感谢南客老师！谢谢！

两个公式的代码，其实核心是一样的，只不过换个Excel的文件名罢了，我前面贴过2合一的代码(第3页、第30楼)。
把你传上的代码，修改如下：

复制内容到剪贴板

代码:

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;

[ 本贴由 南客 于 2004-4-6 17:03 最后编辑 ]

公式稍慢就没办法了，因为切换个股时，要重新打开文件，并筛选当前个股的数据，还要把相应日期的数据跟对应的K线对齐，进行大量的运算。

非常谢谢南客老师！有一个异想天开的想法﹕能否将Excel或Access作为飞狐的一个内部文件保存，如同日线数据一样,在技术上有可能吗？当然不能涉及飞狐本身的核心机密.请老师不要见笑,只是想想而己.

当然可以啦

老师有兴趣教吗？我的脸有点红了！

难度比较大些，三言两语说不清

引用:

南客 于 2004-4-8 02:41 写道:
难度比较大些，三言两语说不清

看了老师此贴，心里真是矛盾极了.老师为了我的公式化了那么多的时间和精力，还不厌其烦地反复修改，最终使我的心愿得以实现,我的心里很过意不去，又无以回报，本不该再有其他要求.但是心里又很想向老师学点知识，故而有了象将Excel Access作为飞狐内部文件保存啦，还有将分笔成交数据保存后怎样在日周期调用啦等等想法,心里想又却于开口但又很渴望学，怎么办呢？？？矛盾呐！

我从头细看到了90楼，看到了老师乐于助人的热心肠，我对此内容很感兴趣，很想也学到一点知识，希望也能得到老师的指点，可我是一只大笨鸟哦。
                                     学生：zhh0

南客老师你好：
    我有一个愿望（见附图），你帮我实现好吗？

好好好

南客真大师也

目前我还没发现有南客解决不了的问题！

谢谢

谢谢南客老师。学习了。

引用:

南客 于 2004-4-5 14:41 写道:
改成下面的代码试试：
[code]
fc:0,linethick0;
fy:=year; fm:=month; fd:=day;
gpdm:=stklabel;
<%
gpdm=ffl.vardata("gpdm")
vc=ffl.vardata("fc")
vy=ffl.vardata("fy&quo ...

南客老师您好!趁您在线上,赶紧向老师请教一个难题:如果将电子表格做成象老师要求的那样 ,并且是每只股票一页工作表或者一个"Excel",那公式作怎样的改动才能正确显示图形呢?恳请老师给予帮助!万分感激!

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

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

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

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