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

將指定期貨最新行情數據寫入Excel的代碼 [金字塔]

  • 咨詢內容:

    Public MyXL
    private StockCode(30),StockMarket(30)

    Sub APPLICATION_VBAStart()
     Call Application.SetTimer(10, 500)
     GetExcelFile("D:\Stock.xls")
    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("C" & Cstr(j+3)) =  StockCode(j)
      MyXL.Application.activesheet.Range("D" & Cstr(j+3)) =  report1.BuyPrice1
      MyXL.Application.activesheet.Range("E" & Cstr(j+3)) =  report1.SellPrice1
     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

     

    使用說明:

       1、新建一個模塊,將上述代碼復制到新建的模塊;

       2、在D:\建立一個Excel文件,命名為Stock.xls

       3、在D:\建立一個StockCode.ini文件,設置需要導出的代碼,格式如下:

         [Stock]
         StockCount=5           

         Code1=TWGD
         Market1=XH

         Code2=XHAP
         Market2=XH

         Code3=XHGT
         Market3=XH

         Code4=XHPD
         Market4=XH

         Code5=XHGT
         Market5=XH

         ...

        說明:StockCount=5那行指定要導出的期貨品種數

                下面的Code1是第一個品種的代碼,Market1是該商品的市場代碼,以下代碼依次按照序號往下編排。


     

     


     

  • 金字塔客服:

    使用此模塊可以同時導出15個左右品種的行情數據,每0.5秒導出一次,品種再多的話,可能會出現延時現象,我試過使用多個計時器同時導出,每一個計時器導出10個品種,可以減小延時現象,但是會出現運行不穩定,運行10幾分鐘就自動停止,如果金字塔的VBA后臺能支持多線程,可能就可以很好的解決這個問題。

     

     

  • 用戶回復: 請教版主:按照上面所說的操作,消息窗口顯示:正在導出:行情;EXCEL也打開了,就是沒有具體文件打開和顯示,不知道問題出在哪里?

     

  • 網友回復:

    先打開Excel文件,再啟動金字塔就行了。

     

     

  • 網友回復: 好像還是不行,EXCEL里面還是沒有信息; 1、ini文件我是用記事本方式建立的,是不是對?/ 2、另外如果我要取IF1106數據,品種的代碼:IF,商品的市場代碼:IF06,是嗎?如下 [Stock] StockCount=10 Code1=IF Market1=IF01 Code2=IF Market2=IF02 Code3=IF Market3=IF00 Code4=CU Market4=CU00 Code5=CU Market5=CUO8 謝謝斑竹

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

相關文章

    沒有相關內容
主站蜘蛛池模板: 青春草国产成人精品久久| 在线观看国产成人av片| 欧美日韩一区二区成人午夜电影 | 亚洲国产香蕉视频欧美| 青青视频国产在线播放| 男人j桶进女人p无遮挡免费| 欧美与黑人午夜性猛交久久久| 日本高清在线播放| 富二代琪琪在线观看| 国产精品手机在线亚洲| 日本一道高清一区二区三区 | 欧美人欧美人与动人物性行为| 日本在线视频一区二区| 夫前被强行侵犯在线观看| 国产精品免费一区二区三区四区 | 国产无遮挡又黄又爽网站| 午夜精品久久久久久久无码| 亚洲国产成人精品无码区在线秒播| 久久精品国产99国产精品澳门 | 三级在线看中文字幕完整版| 91国高清视频| 色黄网站aaaaaa级毛片| 日本高清在线免费| 美女毛片一区二区三区四区| 欧美日本国产VA高清CABAL| 欧美高清视频www夜色资源| 日韩免费在线看| 大陆三级理论电影有哪些| 国产成 人 综合 亚洲专| 亲胸揉胸膜下刺激网站| 久久综合国产乱子伦精品免费 | 日本强好片久久久久久AAA| 国产精品青草久久| 四虎影视永久免费观看地址| 亚洲人成电影网站| eeuss影院www在线观看免费 | 热久久这里是精品6免费观看| 精品乱人伦一区二区三区| 日韩精品中文字幕视频一区| 国语对白清晰好大好白| 国产V亚洲V天堂A无码|