交易软件博一大师如何将数据导出到EXCEL？

博艺主数据传输至飞狐经销商VBS

Sub Main()'脚本主程序，请在这里写主程序代码。

DateNum=10 '0表示所有导入。初始化时，全部导入，建议以后只更新最后几天的数据。10表示仅导出最近10天。

StrFile = " E:\ securities Data \ pobo \ Data \ Nye fut \ Day \ conc . Day " '博一大师每日档案(美原油连续)

file name = " c:\ txt day \ ididconc . txt " '导出文件(飞狐经销商标准文本文件)。

PoboToFoxtraderTXT文件，文件名，日期

' End Sub '脚本主程序结束。

Sub PoboToFoxtraderTXT(strFile，fileName，dateNum)

Const ForReading = 1，ForWriting = 2，ForAppending = 8

const tristeusedefault =-2，TristateTrue = -1，TristateFalse = 0

Dim对象流，fso，加格(10)

set objStream = CreateObject(" ADODB。流”)

objStream。Type = 1

objStream。打开

objStream。LoadFromFile strFile

如果dateNum=0，则

dateNum = objStream.Size/32

ElseIf dateNum & lt然后是objStream.Size/32

dateNum=dateNum

其他

dateNum=objStream。尺码/32

如果…就会结束

objStream.position = objStream。Size-dateNum*32

对于i = 1到dateNum

readFile = AscB(objStream。读作(1))+AscB(objStream。读作(1))*256+AscB(objStream。读作(1))* 256 * 256+AscB(objStream。读作(1))*256*256*256

nian = readFile\1048576

岳= readFile \ 65536-nian * 16+100

ri =(readFile Mod 65536)\ 256 \ 8+100

riQi = CStr(nian)+"/"+Right(CStr(yue)，2)+"/"+Right(CStr(ri)，2)

对于j = 1到4

readFile = AscB(objStream。读作(1))+AscB(objStream。读作(1))*256+AscB(objStream。读作(1))* 256 * 256+AscB(objStream。读作(1))*256*256*256

佳格(j) =CStr(readFile/1000)+" "

然后

Objstream。position = objstream。position+12 '体积和位置的数据结构未知，暂不导出！

舒初=舒初+日奇+" "+佳哥(2)+佳哥(3)+佳哥(4)+佳哥(1)+vbCrLf

日奇= " "

然后

objStream。关闭

Set objStream = Nothing

Set fso=CreateObject("Scripting。文件系统对象”)

如果fso。FolderExists("C:\TXTDAY ")然后

i=0

其他

fso。CreateFolder ("C:\TXTDAY ")

如果…就会结束

设置MyFile=fso。OpenTextFile(文件名，ForWriting，True，TristateFalse)

我的文件。WriteLine书橱

MyFile.close

设置MyFile = Nothing

设置fso =无

末端接头