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

VBA能否編寫自動補充指定品種數據 [金字塔]

  • 咨詢內容:

        我想偷懶,哈哈。有沒有可以用VBA編寫自動補充指定品種的歷史行情數據的,給個思路就行;

       下面是論壇精華里的自動補分筆數據,是不是按照這個類似的,代碼不是看得太懂;

     

     

    Sub SJBC()
    '16~17點開始補分筆數據
    if application.ReceiveDataStatus=0 then application.ReceiveData(1)
    Application.PeekAndPump
    application.SendMessage(33882)
    call application.Settimer(1,600000)
    call application.Settimer(2,9000000)
    Set Wrap = CreateObject("DynamicWrapper")
    Wrap.Register "user32.dll","FindWindowA","i=ss","f=s", "r=l"
    Wrap.Register "user32.dll","FindWindowExA","i=llss","f=s", "r=l"
    Wrap.Register "user32.dll","SendMessageA","i=lull","f=s", "r=l"
    h = Wrap.FindWindowA("#32770","數據接收")
    tab=Wrap.FindWindowExA(h,0,"SysTabControl32","")
    TCM_SETCURFOCUS=4912
    WM_SETFOCUS=7
    WM_KEYDOWN=256
    WM_KEYUP=257
    BM_CLICK=245
    Wrap.SendMessageA tab,TCM_SETCURFOCUS,2,0
    h1=Wrap.FindWindowExA(h,0,"#32770","自定義補數據")
    cb=Wrap.FindWindowExA(h1,0,"ComboBox","")
    Wrap.SendMessageA cb,WM_SETFOCUS,0,0
    Wrap.SendMessageA cb,WM_KEYDOWN,VK_DOWN,0
    Wrap.SendMessageA cb,WM_KEYUP,VK_DOWN,0
    bt=0
    bt=Wrap.FindWindowExA(h1,0,"Button","開始補充")
    Wrap.SendMessageA bt,BM_CLICK,0,0
    if bt<>0 then todayhas=1
    End Sub

     

  • 金字塔客服: VBA不提供直接的方法操作補數據,你帖子提到的代碼是通過WINDOWS的API通過模擬鼠標操作來實現自動數據補充的

     

  • 用戶回復: 謝謝回復,我知道了!那我還是自己點點好了;謝謝!

 

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

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


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 国产桃色无码视频在线观看| 痴汉电车中文字幕| 成人免费在线观看网站| 伊人222综合| 一个色中文字幕| 日本特黄高清免费大片爽| 亚洲视频一区在线| 老司机天堂影院| 日本一本在线观看| 免费成人在线电影| 38部杂交小说大黄| 日韩a视频在线观看| 别揉我胸啊嗯~| 黑人与中国女一级毛片不卡| 性xxxx视频播放免费| 亚洲AV永久无码精品漫画 | 成人精品一区二区三区中文字幕 | 成人爽爽激情在线观看| 成人自拍视频网| 亚洲AV成人无码天堂| 激情欧美日韩一区二区| 日韩高清第一页| 欧美一级特黄乱妇高清视频| 婷婷五月综合缴情在线视频| 亚洲欧美日韩中另类在线| 美女网站色在线观看| 国产成人精品一区二三区| 一级特黄录像在线观看| 日韩在线第二页| 你懂得的在线观看免费视频| 日本一二三精品黑人区| 性色欲网站人妻丰满中文久久不卡| 久草福利资源站| 精品久久久久久无码人妻热| 国产午夜在线视频| aaaaaav| 把水管开水放b里是什么感觉| 亚洲欧美一区二区三区日产| 荐片app官网下载ios怎么下载 | 97国产在线播放| 国产精品吹潮香蕉在线观看|