求高手将这段VBA代码转成pb代码，跪谢

[shennongjia]

Sub 从通达信取某只股票数据()
'On Error GoTo EH
Dim Bs() As Byte
Dim arr()
Open ThisWorkbook.Path & "\SZ399300.day" For Binary As #1 '可以指向通达信安装目录下的“\Vipdoc\sh\lday”或者“\Vipdoc\sz\lday”的“xxxxxxxx.day”文件
ReDim Bs(1 To LOF(1)) '将数据保存到字节，从1开始计数，每8字节表示一个数，低位在前，高位在后
Get #1, , Bs
Close #1
ReDim arr(1 To UBound(Bs) / 4)
For i = 1 To UBound(Bs) / 4
arr(i) = Bs((i - 1) * 4 + 4) * 16 ^ 6 + Bs((i - 1) * 4 + 3) * 16 ^ 4 + Bs((i - 1) * 4 + 2) * 16 ^ 2 + Bs((i - 1) * 4 + 1)
a = Int((i - 1) / 8) + 2
b = i Mod 8
If b = 0 Then b = 8
Cells(a, b) = arr(i)

Next i
[a1:h1] = Split("日期,开盘价(分),最高价(分),最低价(分),收盘价(分),成交额(分),成交量,未知", ",")
End Sub

[WorldMobile]

引用 楼主 shennongjia 的回复:

Sub 从通达信取某只股票数据()
'On Error GoTo EH
Dim Bs() As Byte
Dim arr()
Open ThisWorkbook.Path & "\SZ399300.day" For Binary As #1 '可以指向通达信安装目录下的“\Vipdoc\sh\lday”或者“\Vipdoc\sz\lday”的“xxxxxxxx.day”文件
ReDim Bs(1 To LOF(1)) '将数据保存到字节，从1开始计数，每8字节表示一个数，低位在前，高位在后
Get #1, , Bs
Close #1
ReDim arr(1 To UBound(Bs) / 4)
For i = 1 To UBound(Bs) / 4
arr(i) = Bs((i - 1) * 4 + 4) * 16 ^ 6 + Bs((i - 1) * 4 + 3) * 16 ^ 4 + Bs((i - 1) * 4 + 2) * 16 ^ 2 + Bs((i - 1) * 4 + 1)
a = Int((i - 1) / 8) + 2
b = i Mod 8
If b = 0 Then b = 8
Cells(a, b) = arr(i)

Next i
[a1:h1] = Split("日期,开盘价(分),最高价(分),最低价(分),收盘价(分),成交额(分),成交量,未知", ",")
End Sub

这段代码是打开通达信目录下的一个文件，然后从里面分析股票价格，没必要用vba，你直接用pb来实现就行了

如果想用pb来实现股票价格，建议你用新浪股票接口，这个比较好用，参考链接如下

http://blog.csdn.net/simon803/article/details/7784682

取数据可以用geturl或者posturl，也可以用xmlhttp来实现

[shennongjia]

你好，我是想去行情的历史数据，必须从文件中提取

[WorldMobile]

引用 2 楼 shennongjia 的回复:

你好，我是想去行情的历史数据，必须从文件中提取

有空的时候我写个例子试试