作者psion (psion)
看板Office
标题[请益] dde怎样储存资料?
时间Wed Apr 23 01:06:34 2008
※ [本文转录自 Stock 看板]
作者: psion (psion) 看板: Stock
标题: [请益] dde怎样储存资料?
时间: Tue Apr 22 23:05:22 2008
我刚学excel
需要用dde撷取每分钟大盘成交资讯(成交量买卖均张之类)
结果进来的资料无法储存
比方说A1格是dde输入的成交量
我想把每分钟更新的资料依序储存在A2以後的格子
可是发现worksheet_change无法被dde触发(这是我上网找到的原因)
请问还有其他方法可以储存dde资料吗？
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.70.6.55
1F：→ powerair:自行写个VBA程式? :P 04/22 23:28
2F：→ psion:就是不知道怎麽写啊 XD 想找范例都不知从何找起 04/22 23:39
3F：→ psion:worksheet_change也是别人教我的vba语法 04/22 23:39
我刚刚找上网到一种可能的写法(利用dde触发calculate)
想请高手指点一下
Private Sub Worksheet_Calculate()
Application.EnableEvents = False(请问这行跟下面True那行是必要的吗？)
Range("A65536").End(xlUp).Offset(1, 0) = Range("A1").Value
Range("B65536").End(xlUp).Offset(1, 0) = Range("B1").Value
Range("C65536").End(xlUp).Offset(1, 0) = Range("C1").Value
Application.EnableEvents = True
End Sub
A1 B1 C1就是dde资料进来的格子
不知道这样离正确的写法还有多远？
谢谢
--------------------------------------
※ 编辑: psion 来自: 203.70.6.55 (04/23 00:11)
※ 编辑: psion 来自: 203.70.6.55 (04/23 00:13)
4F：→ powerair:读DDE提供的时间 变动时(分+1) 复制到你要的栏位 04/23 00:10
5F：→ psion:ㄟ 问题就在於要怎样复制 ontime是不必要的 因为本来就是每 04/23 00:14
6F：→ psion:分钟更新一次 所以光是dde值变动 还要搭配能触发的事件 04/23 00:16
7F：→ psion:change不能触发 calculate可以 这是我目前上网找到的心得 04/23 00:16
8F：→ psion:不过很感激您的回应 能请您写出来让我学习吗 谢谢 04/23 00:17
9F：→ powerair:Trading版应该蛮多高手的 我只有观念 不会写 抱歉 :) 04/23 00:21
10F：→ psion:呵呵 Trading版人气很低迷啊 04/23 00:25
11F：推 neant:转去office板 看看 excel高手很多 04/23 00:38
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.70.6.55