将自编公式数据动态转到EXCEL中 可我不会用 是位叫南客的老师的
fc:c;fy:=year; fm:=month; fd:=day; gpname:=stkname;                              
<%
vstkname=ffl.vardata("gpname")
vc=ffl.vardata("fc")
vy=ffl.vardata("fy")
vm=ffl.vardata("fm")
vd=ffl.vardata("fd")
Set oExcel= CreateObject("excel.application")  
oExcel.Visible = false  '   
oExcel.Workbooks.Add
Set oSheet = oExcel.Workbooks(1).Worksheets("sheet1")
oSheet.Activate
Set oTitle = oSheet.Range("A1")
oTitle.Value = vstkname+"　收盘价"
for i=0 to ubound(vc)
  vdate=DateSerial(vy(i), vm(i), vd(i))

  oSheet.Cells(i+2,1).Value=vdate
  oSheet.Cells(i+2,2).Value=round(vc(i),2)
next
Set oExcel = Nothing  
%>

很有用的 可怎么没有感兴趣的？ 难道。。。。

没用，就是一个收盘价线.......

您知道他写的是什么嘛？
那天我就在聊天室里，
南客没说什么，公式一放在哪里，就完了，中间问问题的都是问股票的。

将  oExcel.Visible = false  '    这句改为 oExcel.Visible = True   你将知道这段代码的使用方法，前提是你已经安装了EXCEL。

大冷老师:能否将此公式改成每个交易日逐笔数据转成EXCEL。谢谢！

谢谢楼主大大的分享!!!