求高手將這段VBA代碼轉成pb代碼，跪謝-有解無憂

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

uj5u.com熱心網友回復：

參考樓主 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來實作

uj5u.com熱心網友回復：

你好，我是想去行情的歷史資料，必須從檔案中提取

uj5u.com熱心網友回復：

參考 2 樓 shennongjia 的回復:

你好，我是想去行情的歷史資料，必須從檔案中提取

有空的時候我寫個例子試試

轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/31482.html

標籤：腳本語言

上一篇：pb呼叫webservice錯誤，請各位幫忙看看{在線等}

下一篇：pb 讀取文本檔案，列印的問題