|
竹下さん ありがとうございます。 まだ上手くダウンロードできません。 下のVBAのコードで試しています。 どこが悪いのかご教示お願いします。
------------------------------------------------- Dim retavl As Long Dim readcount As Long Dim dlcount As Long Dim lastfiletimestamp As String Dim buff As String Dim filename As String JVLink1.JVInit ("UNKNOWN")
retval = JVLink1.JVOpen("DIFF", "20140101000000", 3, readcount, dlcount, lastfiletimestamp) retval = 1 While retval <> 0 retval = JVLink1.JVRead(buff, 40000, filename) If Left(buff, 3) = "SEB" Then Open "D:\馬毎データ(外).dat" For Append As #1 Print #1, buff Close #1 End If DoEvents Wend JVLink1.JVClose |