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

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  有需要幫忙請點擊這里留言!!!進行 有償 編寫!不貴!點擊查看價格!


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

相關文章

    沒有相關內容
主站蜘蛛池模板: 男女猛烈无遮掩免费视频| 2018中文字幕在线观看| 日韩欧群交p片内射中文| 人人玩人人添人人澡mp4| 久久国内精品自在自线400部o| 麻豆第一区MV免费观看网站| 在车上狠狠的吸她的奶| 久99久无码精品视频免费播放| 欧美人与z0xxxx另类| 免费a级毛片无码av| 蜜桃成熟时1997在线看免费看| 国产精品一区二区无线| av天堂永久资源网| 成人黄软件网18免费下载成人黄18免费视频 | 一出一进一爽一粗一大视频| 日韩精品一区二区三区国语自制 | 小h片在线播放| 久久亚洲国产精品五月天婷| 欧美国产亚洲一区| 亚洲韩国在线一卡二卡| 精品香蕉在线观看免费| 国产办公室gv西装男| 丝袜情趣在线资源二区| 在线观看国产成人AV片| 一级做a爰片欧美一区| 日本一区二区三区在线观看 | 中文字幕第一页在线| 日韩视频中文字幕专区| 亚洲天堂一区在线| 特黄特黄aaaa级毛片免费看| 双女车车好快的车车有点污| 里番acg里番龙| 国产成人精品永久免费视频| 亚洲精品无码av人在线观看| 老司机午夜在线视频免费观| 国产成人精品午夜二三区波多野| 91华人在线视频| 大香伊蕉在人线国产75视频| 不用付费的黄色软件| 日日碰狠狠添天天爽爽爽| 久久这里有精品视频|