交易軟件博壹大師如何將數據導出到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 =無

末端接頭