主题：请教，怎样将行情四价写入一个二进制文件中

debugfile是用在后台策略上的，在vba策略中，只能使用filesystemobject对象了，这是我从网上搜索的代码，你自己参照代码就能搞定吧。

 

Dim fsObj, file

'写

Set fsObj = CreateObject("Scripting.FileSystemObject")

Set file = fsObj.CreateTextFile("c:\test.txt", True)

file.WriteLine ("test" )

file.Close

'读

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

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim fileObj, fileInfo, retObj, strInfo, strPath As String

Set fileObj = CreateObject("Scripting.FileSystemObject")

strPath = "c:\test.txt"

Set fileInfo = fileObj.GetFile(strPath)

Set retObj = fileInfo.OpenAsTextStream(ForReading, TristateUseDefault)

strInfo = retObj.ReadLine

retObj.Close

 

去搜一下，vba读写二进制文件，应该有的，变量有open、high、low、close、vol等可以通过对象histroydata返回。