人人爽天天爽夜夜爽qc-人人爽天天爽夜夜爽曰-人人天天爱天天做天天摸-人人天天夜夜-色网站在线-色网站在线看

您現在的位置:程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識>>正文內容

導出到excel時發生的故障 [金字塔]

  • 咨詢內容:

    用論壇軟件導出即時數據到excel時:

     

     MyXL.Application.activesheet.Range("D" & Cstr(j+1))  =  report1.LastHigh
       MyXL.Application.activesheet.Range("E" & Cstr(j+1))  =  report1.LastLow

     

    上述語句導出的總是前天的數據 而不是昨天的。請問這是什么問題?謝謝

     

  • 金字塔客服: 你導出哪個品種的幾分鐘數據

     

  • 用戶回復:

    導出的是期指當月 上證指數 滬深300,日線數據。lastclose都對,但lasthigh和lastlow 都是前天的,試了很久,都是這樣,為什么呢?

     

  • 網友回復:

    再多給出一些代碼看看,

    你檢查檢查,有沒哪些語句會導致j變化

     

  • 網友回復:

    Public MyXL
    private StockCode(30),StockMarket(30)
    Sub APPLICATION_VBAStart()
     Call Application.SetTimer(10, 500)
     GetExcelFile("D:\Stock.xlsx")
    End Sub
    Sub APPLICATION_Timer(ID) 
     GetStockCode
     GetNewPrice
    end sub
    Sub GetNewPrice()
      dim i
     dim j
     on error resume next
     i=CDbl(Document.GetPrivateProfileString("Stock","StockCount",1,"D:\StockCode.INI"))
     For j=1 to i
      application.MsgOut "正在導出:" & StockCode(j) & "行情..."
       Set Report1 = marketdata.GetReportData(StockCode(j),StockMarket(j))
       MyXL.Application.activesheet.Range("A" & Cstr(j+1)) =  StockCode(j)
       MyXL.Application.activesheet.Range("B" & Cstr(j+1)) = Report1.NewPrice
       MyXL.Application.activesheet.Range("C" & Cstr(j+1))  =  Report1.LastClose
       MyXL.Application.activesheet.Range("D" & Cstr(j+1))  =  Report1.LastHigh
       MyXL.Application.activesheet.Range("E" & Cstr(j+1))  =  Report1.LastLow
       MyXL.Application.activesheet.Range("F" & Cstr(j+1))  =  Report1.Open
       MyXL.Application.activesheet.Range("G" & Cstr(j+1))  =  Report1.High
       MyXL.Application.activesheet.Range("H" & Cstr(j+1))  =  Report1.Low
       
     Next 
    End Sub
    '取得要監控的品種代碼
    Sub GetStockCode()
     dim i
     dim j
     i=CDbl(Document.GetPrivateProfileString("Stock","StockCount",1,"D:\StockCode.INI"))
     For j=1 to i
      StockCode(j)=Document.GetPrivateProfileString("Stock","Code" & Cstr(j),"","D:\StockCode.INI")  '品種號碼
      StockMarket(j)=Document.GetPrivateProfileString("Stock","Market" & Cstr(j),"","D:\StockCode.INI") '交易所代碼
      'application.MsgOut "i:" & i & "," & stockcode(j) & "," & StockMarket(j)
     Next
    End Sub
    '打開Excel
    Sub GetExcel()
        Const ERR_APP_NOTRUNNING = 429
     
        On Error Resume Next
        Set MyXL = GetObject(, "Excel.Application")
        If Err = ERR_APP_NOTRUNNING Then
            Set MyXL = CreateObject("Excel.Application")
        End If
       
        MyXL.Application.Visible = True
    End Sub
    '打開某個excel文件
    Sub GetExcelFile(sFileName)
        '此過程暫停使用,替代過程為:GetExcel
        Dim sWinName                '窗口名
        Dim iPos
       
        '測試 Microsoft Excel 的副本是否在運行。
        On Error Resume Next    '延遲錯誤捕獲。
        '不帶第一個參數調用 Getobject 函數將
        '返回對該應用程序的實例的引用。
        '如果該應用程序不在運行,則會產生錯誤。
        Set MyXL = GetObject(, "Excel.Application")
        If Err.Number <> 0 Then
      Set MyXL = CreateObject("Excel.Application")
     End if
        '將對象變量設為對要看的文件的引用。
        Set MyXL = GetObject(sFileName)
       
        iPos = InStrRev(sFileName, "\", -1, vbTextCompare)
        sWinName = Mid(sFileName, iPos + 1, Len(sFileName) - iPos - 4)
       
        '設置其 Application 屬性,顯示 Microsoft Excel。
        '然后使用 MyXL 對象引用的 Windows 集合
        '顯示包含該文件的實際窗口。
        MyXL.Application.Visible = True
        MyXL.Application.ScreenUpdating = True
        MyXL.Parent.Windows(1).Activate
        MyXl.Application.Sheets(1).Visible=true
    End Sub
    '關閉Excel
    Sub CloseExcel()
        On Error Resume Next
        MyXL.Application.DisplayAlerts = False
        'MyXL.Application.Save
        MyXL.Application.Quit
    '    Set MyXL = Nothing    '釋放對該應用程序
    End Sub
    --------------------------------------------------------------------------

     

    這是全部。請檢查,謝謝。如果仍有問題,我擬明日去公司當面咨詢??煞袼叫烹娫捖撓?。

 

有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友

可聯系技術人員 QQ: 1145508240  有需要幫忙請點擊這里留言!?。? title=進行 有償 編寫!不貴!點擊查看價格!


【字體: 】【打印文章】【查看評論

相關文章

    沒有相關內容
主站蜘蛛池模板: 成人在线观看不卡 | 在线观看国产精品麻豆 | 欧美a在线 | 在线看片网站 | 极品三级 | 77788色淫网站免费观看 | 国产片一区二区三区 | 精品国产欧美一区二区三区成人 | 成人激情视频网站 | 成人69视频在线观看免费 | 可以在线看黄的网站 | 欧美日韩免费一区二区在线观看 | 欧美极度另类videos高清 | 日韩激情淫片免费看 | 亚洲丝袜国产 | 91精品国产免费自在线观看 | 一级毛片免费观看不卡视频 | 另类视频在线观看 | 亚洲日韩在线视频 | 午夜视频免费看 | 国产黄大片在线观看视频 | 夜夜想夜夜爽天天爱天天摸 | 国产欧美亚洲三区久在线观看 | 福利视频精品 | 在线观看免费视频黄 | 国产成人啪精品视频免费软件 | 免费视频色 | 免费观看欧美一区二区三区 | 青草视频网 | 亚洲欧美国产日本 | 天天干干干 | 夜色影院在线观看 | 午夜伦理片在线观看 | 男女扒开双腿猛进入免费看污 | 午夜伦理网 | 国产精品自产拍视频观看 | 国产成人精品视频2021 | 日韩理论 | 2020久久精品亚洲热综合一本 | 日韩永久免费进入2015 | 成人涩涩网站 |