作者steam ()
看板Trading
标题Re: [问题] 如何在EXCEL纪录DDE的资料
时间Thu Jul 31 16:58:03 2008
最近刚好在玩这个
比较简单的方法就设个timer
先在vba建立模组 然後加入下面几个副程式
------------------------------------
Sub Schedule()
DoEvents
If Sheet2.Cells(2, 1) = 1 Then '当这个栏位值为1的时候开始纪录
Call record '把DDE值抓到EXCEL的副程式
Call timer_Start 'timer开始
End If
End Sub
-------------------------------------
Sub timer_Start() '开始timer 每秒call Schedule一次
Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=True
End Sub
-------------------------------------
Sub timer_Stop()
On Error Resume Next '停止timer
Application.OnTime Now + TimeValue("00:00:01"), "Schedule", Schedule:=False
End Sub
-------------------------------------
Sub record() '纪录DDE资料的副程式
Sheet2.Cells(2, 2) = Sheet2.Cells(2, 2) + 1 '这栏用来记录现在行数
Sheet2.Cells(Sheet2.Cells(2, 2), 3) = Sheet1.Cells(1, 1)
'假设DDE要记录的值在 Sheet1的(1,1)这个栏位
'将这资料存在 Sheet2中
End Sub
-------------------------------------
自己改掉上面写的栏位成你要的就ok啦
要记得先将资料表中 Sheet2.Cells(2, 2), Sheet2.Cells(2, 1) 这两个栏位给 0
不过话说这样出来的资料量会很庞大喔......XD
※ 引述《anygod (GDP)》之铭言：
: ※ 引述《sesee (小七)》之铭言：
: : 大家好
: : 请问如果我想纪录EXCEL里DDE的资料
: : 例如A1 是随时变动的DDE值
: : 从8：45：00 每隔1秒钟纪录在B1 B2 B3.........
: : 这样的VBA要怎麽写呢?
: : 我试过修改别人的VBA 可是跑不出来
: : 侦错也不知道哪边有错误
: : 谢谢回答 ^^
: 有VBA吗? 可以寄给我看看吗?
: 我目前也再弄DDE设定一些模型 但是VBA不熟
--
第一次学摄影就上手.....(吗??)
http://www.wretch.cc/album/steam
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.250.111.46
1F：推 newred:酷唷~真是感谢分享 XD 07/31 19:39
2F：推 newred:让我想到一件事~ 如果你只是单纯要盘後分析用,可以去开宝来 08/10 11:10
3F：→ newred:他们新的 点金灵环球通 K棒的资料是可以用EXCEL转存出来的 08/10 11:11
4F：→ newred:而且如果你在里面设定一些技术指标,里面资料也可以同时汇出 08/10 11:12